Как подсчитать количество подпапок в заданной папке 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 для Outlook, в котором будет указано количество подпапок в выбранной папке. См. снимок экрана:

---

См. также:

• Как подсчитать количество папок в указанной учетной записи электронной почты или во всех почтовых ящиках Outlook?
• Как объединить входящие нескольких учетных записей, чтобы все письма отображались вместе в Outlook?
• Как отобразить диалоговое окно «Выбор папки» в Outlook, чтобы выбрать нужную папку?
• Как найти папку, случайно перемещённую в Outlook?