Как посчитать количество подпапок в определенной папке в 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?
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Kutools для Outlook запускает бесплатную версию!
Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...
👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...

