Как посчитать количество подпапок в определенной папке в Outlook?

Author: Siluvia Last Modified: 2025-08-07

Предположим, вы создали несколько папок внутри корневой папки. Теперь вы хотите узнать, сколько подпапок находится в корневой папке. Что вы можете сделать? Просто развернуть корневую папку и вручную пересчитать все подпапки одну за другой? Эта статья представит вам простой метод для достижения этой цели.

Подсчет количества подпапок с помощью кода 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. В открывшемся диалоговом окне Выбор папки выберите папку, для которой вы хотите подсчитать подпапки, а затем нажмите кнопку ОК. См. скриншот: