如何計算 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 中找回不慎移動而遺失的資料夾？