Outlook 에서 지정된 전자메일 계정 또는 모든 사서함 아래의 폴더 수를 세는 방법은 무엇입니까？

이 문서에서는 Outlook 에서 지정된 전자메일 계정 또는 모든 사서함 아래의 폴더 수를 세는 방법에 대해 설명합니다。

VBA 코드로 지정된 전자메일 계정 또는 모든 사서함 아래의 폴더 수 세기

「VBA 코드로 지정된 전자메일 계정 또는 모든 사서함 아래의 폴더 수 세기」

아래 VBA 코드를 사용하여 지정된 전자메일 계정 또는 모든 사서함 아래의 폴더 수를 셀 수 있습니다。 다음 단계를 따르세요。

1. 「Alt」 + “F11" 키를 눌러 「Microsoft Visual Basic for Applications」 창을 엽니다。

2. 「Microsoft Visual Basic for Applications」 창에서 「삽입(Insert)」 > 「사용자 폼(Userform)」을 클릭합니다。 스크린샷 참조：

3. 그런 다음 “UserForm1"에 옵션 버튼 두 개와 명령 단추 두 개를 삽입하고， 아래 스크린샷과 같이 단추의 표시 텍스트를 변경합니다。

4. 첫 번째 옵션 단추의 이름을 “opbCurAccount”로 변경하고， 「value」 속성을 「True」로 설정합니다。 스크린샷 참조：

5. 두 번째 옵션 단추의 이름을 「opbAllAccounts」로 계속 변경합니다。 그런 다음 두 명령 단추의 이름을 각각 「cdbOk」 및 「cdbCancel」으로 지정합니다。

6. UserForm1 의 빈 영역을 두 번 클릭한 후， UserForm1(코드) 창에서 기존 코드를 아래 VBA 코드로 바꿉니다。

VBA 코드: Outlook 에서 폴더 수 세기

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. “F5" 키를 눌러 코드를 실행합니다。 그러면 폴더 수를 세기 위한 “UserForm1" 대화 상자가 나타납니다。 현재 계정의 폴더 수를 세려면 선택하세요 「현재 계정(Current Account)」 옵션을 선택하고 「확인(OK)」 단추를 클릭하세요。 모든 사서함의 폴더 수를 세려면 「모든 계정(All Accounts)」 옵션을 선택한 후 「확인(OK)」 단추를 클릭하세요。 스크린샷 참조：

9. 그런 다음 아래 스크린샷과 같이 현재 계정 또는 모든 사서함에 존재하는 폴더 수를 알려주는 「Kutools for Outlook」 대화 상자가 나타납니다。 「확인(OK)」 단추를 클릭하세요。

참고： 대화형 작업 설정(Conversation Action Settings) 폴더 및 빠른 단계 설정(Quick Step Settings) 폴더와 같은 숨겨진 폴더도 폴더 수 집계에 포함됩니다。

Outlook 의 AI 메일 어시스턴트： 더 스마트한 답장， 더 명확한 커뮤니케이션(클릭 한 번으로 마법처럼！)

Kutools for Outlook 에서 제공하는 AI 메일 어시스턴트로 일상적인 Outlook 작업을 간편하게 처리하세요。 이 강력한 도구는 과거 이메일에서 학습하여 지능적이고 정확한 응답을 제안하고， 이메일 콘텐츠를 최적화하며， 메시지 작성을 손쉽게 도와줍니다。

이 기능은 다음을 지원합니다：

• 스마트 답장： 과거 대화를 기반으로 맞춤형， 정확하고 바로 사용 가능한 응답을 받아보세요。
• 향상된 콘텐츠： 이메일 문구를 자동으로 다듬어 명확성과 효과를 높입니다。
• 손쉬운 작문: 키워드만 입력하면 AI 가 나머지를 처리해 드립니다。 다양한 글쓰기 스타일 제공。
• 지능형 확장 기능： 맥락을 이해하는 제안으로 생각을 자연스럽게 확장하세요。
• 요약 기능： 긴 이메일을 즉시 간결하게 요약해 드립니다。
• 글로벌 지원： 이메일을 손쉽게 모든 언어로 번역하세요。

이 기능은 다음을 지원합니다：

• 스마트 이메일 답장
• 최적화된 콘텐츠
• 키워드 기반 초안 작성
• 지능형 콘텐츠 확장
• 이메일 요약
• 다국어 번역

기다리지 마세요—지금 AI 메일 어시스턴트를 다운로드하고!

관련 문서：

• Outlook 에서 폴더를 선택하기 위해 ‘폴더 찾아보기’ 대화 상자를 표시하는 방법은 무엇입니까？

최고의 Office 생산성 도구

🤖	KUTOOLS AI 도우미： 다음을 기반으로 데이터 분석 혁신하기：지능형 실행   |  코드 생성|  사용자 지정 수식 생성  |  데이터 분석 및 차트 생성|  향상된 함수 호출…
	인기 기능:찾기， 강조 표시 또는 중복 표시   |  빈 행 삭제   |  데이터 손실 없이 열 결합 또는 셀 제거   |  공식을 사용하지 않는 반올림...
	슈퍼 LOOKUP:다중 조건 VLookup  |  다중 값 VLookup  |   여러 시트에서 VLookup   |   퍼지 매치....
	고급 드롭다운 목록:드롭다운 목록 빠르게 생성   |  종속형 드롭다운 목록   |  다중 선택 드롭다운 목록....
	열 관리자:특정 수의 열 추가|열 이동|숨겨진 열의 표시 상태 전환|범위 및 열 비교...
	주요 기능:그리드 포커스   |  디자인 보기   |향상된 수식 표시줄   | 워크북 및 시트 관리자   |  자원 라이브러리(자동 텍스트)|  날짜 선택기   |  워크시트 병합  |  암호화/셀 해독   | 목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터(굵은 글꼴이 있는 셀 필터링/기울임꼴/취소선。。。) 。。。
	상위 15 도구 모음:12 텍스트도구(텍스트 추가,특정 문자 삭제, ...)|   50+차트유형(간트 차트, ...)|   40+ 실용적인수식(생일을 기준으로 나이 계산, ...)|   19 삽입도구(QR 코드 삽입,경로에서 그림 삽입, ...)|   12 변환도구(단어로 변환하기,환율 변환, ...)|   7 병합 및 분할도구(고급 행 병합,셀 분할, ...)|그 외 더 많은 기능

Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 및 40+개 이상의 언어를 지원합니다！

Kutools for Excel 로 Excel 역량을 한 단계 업그레이드하고 전례 없는 효율성을 경험하세요。Kutools for Excel 는 생산성과 저장 시간을 향상시키는 300 개 이상의 고급 기능을 제공합니다。가장 필요한 기능을 지금 바로 확인하세요。。。

Kutools for Excel 에 대한 자세한 정보。。。무료 다운로드。。。

---

Office Tab 가 Office 에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만들어 줍니다

• Word, Excel, PowerPoint 에서 탭 기반 편집 및 읽기 기능을 활성화합니다, Publisher, Access, Visio 및 Project 에서도 사용 가능합니다。
• 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 생성할 수 있습니다。
• 50% 만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄여줍니다！

Office Tab 에 대한 자세한 정보。。。무료 다운로드。。。

---

모든 Kutools 애드인。 하나의 설치 프로그램

Kutools for Office스위트 번들은 Excel, Word, Outlook 및 PowerPoint 용 애드인과 Office Tab Pro 를 포함하며， 다양한 Office 앱을 사용하는 팀에 이상적입니다。

• 올인원 스위트— Excel， Word， Outlook 및 PowerPoint 애드인 + Office Tab Pro
• 하나의 설치 프로그램， 하나의 라이선스— 몇 분 안에 설정 완료(MSI 지원)
• 함께 사용할수록 더 효과적입니다— Office 앱 전반에서 생산성 향상
• 30 일간 모든 기능 무료 체험— 등록이나 신용카드 필요 없음
• 최고의 가성비— 개별 애드인 구매 대비 절약

Kutools for Office 에 대한 자세한 정보。。。무료 다운로드。。。