如何统计 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 中因意外移动而丢失的文件夹？