Hoe het aantal mappen onder een specifiek e-mailaccount of alle postvakken in Outlook te tellen?

Dit artikel gaat over het tellen van het aantal mappen onder een specifiek e-mailaccount of alle postvakken in Outlook.

Tel het aantal mappen onder een specifiek e-mailaccount of alle postvakken met VBA-code

"Tel het aantal mappen onder een specifiek e-mailaccount of alle postvakken met VBA-code"

U kunt het aantal mappen onder een specifiek e-mailaccount of alle postvakken tellen met de volgende VBA-code. Volg de onderstaande stappen.

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

2. Klik in het venster "Microsoft Visual Basic for Applications" op "Invoegen" > "Gebruikersformulier". Zie screenshot:

3. Voeg vervolgens twee "Optieknoppen" en twee "Opdrachtknoppen" in "UserForm1" in, en wijzig de tekst van de knoppen zoals in de onderstaande screenshot wordt getoond.

4. Wijzig de naam van de eerste optieknop in “opbCurAccount” en wijzig de eigenschap "waarde" naar "True". Zie screenshot:

5. Ga door met het wijzigen van de naam van de tweede optieknop in "opbAllAccounts". Specificeer vervolgens de namen van de twee opdrachtknoppen als "cdbOk” en ”cdbCancel".

6. Dubbelklik op een lege plek van UserForm1 en vervang vervolgens de originele code door de volgende VBA-code in het venster Userform1 (Code).

VBA-code: Tel het aantal mappen in Outlook

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. Druk op de toets "F5" om de code uit te voeren. Er verschijnt een dialoogvenster "UserForm1", om het aantal mappen in het huidige account te tellen, selecteert u de optie "Huidig Account" en klikt u op de knop "OK". Om het aantal mappen in alle postvakken te tellen, kiest u de optie "Alle Accounts" en klikt u vervolgens op de knop "OK". Zie screenshot:

9. Er verschijnt een dialoogvenster "Kutools voor Outlook" dat u vertelt hoeveel mappen er bestaan in het huidige account of alle postvakken zoals in de onderstaande screenshot. Klik op de knop "OK".

Notitie: Alle verborgen mappen, zoals de map Conversatieactie-instellingen en de map Snelle Stap-instellingen, worden meegenomen in de maptelling.

AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS

Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.

Deze functie ondersteunt:

• Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
• Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
• Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
• Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
• Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
• Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.

Deze functie ondersteunt:

• Slimme e-mailreacties
• Geoptimaliseerde inhoud
• Op trefwoorden gebaseerde concepten
• Intelligente inhoudsuitbreiding
• E-mailsamenvatting
• Meertalige vertaling

Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet

Gerelateerde artikelen:

• Hoe een ‘Bladeren naar map’-dialoogvenster weergeven om een map te kiezen in Outlook?