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

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

Подсчитайте количество подпапок с кодом 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 кнопка. Смотрите скриншот:

5. Затем Kutools for Outlook появится диалоговое окно, в котором указано, сколько вложенных папок существует в указанной папке. Смотрите скриншот:

Статьи по теме:

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

---

Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения Pro: Пакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

Узнать больше       Бесплатная загрузка      покупка