Outlook 에서 특정 폴더 아래의 하위 폴더 수를 어떻게 세나요？

루트 폴더 아래에 일부 폴더를 생성했다고 가정해 보세요。 이제 루트 폴더 아래에 하위 폴더가 몇 개인지 알고 싶다면 어떻게 해야 할까요？ 루트 폴더를 확장한 후 하위 폴더를 하나씩 직접 세어야 할까요？ 이 문서에서는 이를 쉽게 수행할 수 있는 방법을 소개합니다。

VBA 코드로 하위 폴더 수 세기

---

VBA 코드로 하위 폴더 수 세기

다음 VBA 코드는 Outlook 에서 특정 루트 폴더 아래의 하위 폴더 수를 세는 데 도움을 줍니다。 다음 단계를 따르세요。

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

2. Microsoft Visual Basic for Applications창에서삽입>모듈을 클릭합니다。 그런 다음 아래의 VBA 코드를 복사하여 코드 창에 붙여넣습니다。

VBA 코드: Outlook 에서 특정 폴더 아래의 하위 폴더 수 세기

Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
    MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
For Each xFolder In xRootFolder.Folders
    If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
        xFolderCount = xFolderCount + 1
        Call ProcessFolders(xFolder, xFolderCount)
    End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
    Call ProcessFolders(xSubFolder, Num)
Next
End Sub

3. F5키를 눌러 코드를 실행합니다。

4. 열리는폴더 선택대화 상자에서 하위 폴더 수를 셀 폴더를 선택한 후확인버튼을 클릭합니다。 스크린샷 참조：

5. 그러면 지정된 폴더에 존재하는 하위 폴더 수를 알려주는Kutools for Outlook대화 상자가 나타납니다。 스크린샷 참조：

---

관련 문서：

• Outlook 에서 지정된 전자 메일 계정 또는 모든 사서함 아래의 폴더 수를 어떻게 세나요？
• Outlook 에서 여러 계정의 모든 받은 편지함을 통합하여 모든 이메일을 함께 표시하려면 어떻게 하나요？
• Outlook 에서 폴더 선택을 위한 “폴더 찾아보기” 대화 상자를 어떻게 표시하나요？
• 실수로 이동한 후 사라진 폴더를 Outlook 에서 어떻게 찾을 수 있나요？