Outlook의 특정 폴더 아래에있는 하위 폴더 수를 계산하는 방법은 무엇입니까?

작가: 실루비아 최종 수정 날짜: 2024-09-03

루트 폴더 아래에 일부 폴더를 만들었다 고 가정합니다. 이제 루트 폴더 아래에 몇 개의 하위 폴더가 있는지 알고 싶습니다. 어떻게 할 수 있습니까? 루트 폴더를 확장하고 모든 하위 폴더를 하나씩 수동으로 계산 하시겠습니까? 이 기사에서는 쉽게 달성 할 수있는 방법을 소개합니다.

VBA 코드로 하위 폴더 수 계산

VBA 코드로 하위 폴더 수 계산

다음 VBA 코드는 Outlook의 특정 루트 폴더 아래에있는 하위 폴더 수를 계산하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 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. 오프닝에서 폴더 선택 대화 상자에서 하위 폴더 수를 계산할 폴더를 선택한 다음 OK 단추. 스크린 샷보기 :