Hoe tel je het aantal submappen onder een bepaalde map in Outlook?
Stel dat u een aantal mappen onder een hoofdmap heeft gemaakt. Nu wilt u weten hoeveel submappen onder de hoofdmap, hoe kunt u dat doen? Vouw gewoon de hoofdmap uit en tel alle submappen handmatig een voor een? Dit artikel introduceert een eenvoudige methode om dit te bereiken.
Tel het aantal submappen met VBA-code
Tel het aantal submappen met VBA-code
De volgende VBA-code kan u helpen bij het tellen van het aantal submappen onder een bepaalde hoofdmap in Outlook. Ga als volgt te werk.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens onder VBA-code in het codevenster.
VBA-code: tel het aantal submappen 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 Sub
3. druk de F5 sleutel om de code uit te voeren.
4. In de opening map selecteren dialoogvenster, selecteert u een map waarvan u de submappen telt en klikt u vervolgens op de OK knop. Zie screenshot:
5. Vervolgens een Kutools for Outlook Er verschijnt een dialoogvenster waarin wordt aangegeven hoeveel submappen er in de opgegeven map bestaan. Zie schermafbeelding:
Gerelateerde artikelen:
- Hoe tel je het aantal mappen onder het opgegeven e-mailaccount of alle mailboxen in Outlook?
- Hoe alle inboxen van meerdere accounts verenigen om alle e-mails samen in Outlook weer te geven?
- Hoe kan ik een dialoogvenster "Bladeren naar map" weergeven om een map in Outlook te kiezen?
- Hoe vind ik een ontbrekende map die per ongeluk is verplaatst in Outlook?
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.