Hoe telt u het aantal submappen onder een specifieke map in Outlook?

Stel dat u enkele mappen hebt gemaakt onder een hoofdmap. Nu wilt u weten hoeveel submappen er onder de hoofdmap staan. Hoe doet u dat? Gewoon de hoofdmap uitvouwen en handmatig alle submappen één voor één tellen? In dit artikel wordt een eenvoudige methode beschreven om dit te bereiken.

Aantal submappen tellen met VBA-code

---

Aantal submappen tellen met VBA-code

De volgende VBA-code helpt u het aantal submappen in een specifieke hoofdmap van Outlook te tellen. Volg deze stappen.

1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het codovenster.

VBA-code: aantal submappen onder een bepaalde map in Outlook tellen

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 op de toets F5 om de code uit te voeren.

4. Selecteer in het venster Map selecteren de map waarvan u de submappen wilt tellen en klik op de knop OK. Zie schermafbeelding:

5. Vervolgens verschijnt een Kutools voor Outlook-dialoogvenster met het aantal submappen in de opgegeven map. Zie schermafbeelding:

---

Gerelateerde artikelen:

• Hoe telt u het aantal mappen onder een specifiek e-mailaccount of in alle postvakken in Outlook?
• Hoe kunt u de inboxen van meerdere accounts samenvoegen zodat alle e-mails samen worden weergegeven in Outlook?
• Hoe opent u het dialoogvenster „Map zoeken” in Outlook om een map te selecteren?
• Hoe vindt u een map in Outlook die per ongeluk is verplaatst?