Як підрахувати кількість підпапок у певній папці в Outlook?

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

Підрахуйте кількість підпапок з кодом VBA

Підрахуйте кількість підпапок з кодом VBA

Наступний код VBA може допомогти вам підрахувати кількість вкладених папок у певній кореневій папці в Outlook. Будь ласка, виконайте наступне.

1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте нижче код 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. Тоді a Kutools для Outlook спливає діалогове вікно, щоб повідомити, скільки підпапок існує у вказаній папці. Дивіться знімок екрана:

Статті по темі:

• Як підрахувати кількість папок у зазначеному обліковому записі електронної пошти або всіх поштових скриньках в Outlook?
• Як об’єднати всі вхідні скриньки кількох облікових записів, щоб відображати всі електронні листи разом у програмі Outlook?
• Як відобразити діалогове вікно "Перегляд папки" для вибору папки в Outlook?
• Як знайти відсутню папку, яку випадково перемістили в Outlook?

---

Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення Pro: Пакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

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

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

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

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

Детальніше       Безкоштовне завантаження      Купити