Hoe het aantal submappen onder een bepaalde map in Outlook te tellen?
Stel dat je enkele mappen hebt gemaakt onder een hoofdmap. Nu wil je weten hoeveel submappen er onder de hoofdmap zitten, hoe doe je dat? Gewoon de hoofdmap uitklappen en alle submappen handmatig één voor één tellen? Dit artikel introduceert een eenvoudige methode om dit te bereiken.
Aantal submappen tellen met VBA-code
Aantal submappen tellen met VBA-code
De volgende VBA-code kan je helpen bij het tellen van het aantal submappen onder een bepaalde hoofdmap in Outlook. Volg de onderstaande stappen.
1. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Code-venster.
VBA-code: aantal submappen tellen onder een bepaalde map in 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 Sub3. Druk op de F5-toets om de code uit te voeren.
4. Selecteer in het venster Selecteer map een map waarvan je de submappen wilt tellen en klik vervolgens op de knop OK. Zie screenshot:
5. Er verschijnt een dialoogvenster van Kutools voor Outlook dat je vertelt hoeveel submappen er in de gespecificeerde map bestaan. Zie screenshot:
Gerelateerde artikelen:
- Hoe het aantal mappen onder een gespecificeerd e-mailaccount of alle postvakken in Outlook te tellen?
- Hoe alle inboxen van meerdere accounts te verenigen om alle e-mails samen weer te geven in Outlook?
- Hoe een ‘Bladeren naar map’-dialoogvenster weer te geven om een map te kiezen in Outlook?
- Hoe een ontbrekende map die per ongeluk is verplaatst te vinden in Outlook?
Beste productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
