Hoe telt u het aantal mappen onder een opgegeven e-mailaccount of in alle postvakken in Outlook?
Dit artikel gaat over het tellen van het aantal mappen in een opgegeven e-mailaccount of in alle postvakken in Outlook.
Aantal mappen onder een opgegeven e-mailaccount of alle postvakken tellen met VBA-code
„Aantal mappen onder een opgegeven e-mailaccount of alle postvakken tellen met VBA-code"
U kunt het aantal mappen onder een opgegeven e-mailaccount of in alle postvakken tellen met de onderstaande VBA-code. Volg hiervoor deze eenvoudige stappen.
1. Druk op de toetsencombinatie 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 de schermafbeelding:
3. Voeg vervolgens twee 'Optieknoppen' en twee 'Opdrachtknoppen' toe aan 'UserForm1' en pas de weergavetekst van de knoppen aan zoals in de onderstaande schermafbeelding is weergegeven.
4. Wijzig de naam van de eerste keuzerondje in „opbCurAccount” en stel de eigenschap „value” in op „True”. Zie de schermafbeelding:
5. Wijzig daarna de naam van de tweede optieknop in „opbAllAccounts” en geef de twee opdrachtknoppen vervolgens respectievelijk de namen „cdbOk” en „cdbCancel”.
6. Dubbelklik op een lege plek in UserForm1 en vervang de oorspronkelijke code in het venster UserForm1 (Code) door de onderstaande VBA-code.
VBA-code: Aantal mappen in Outlook tellen
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 Sub8. Druk op de toets **F5** om de code uit te voeren. Er verschijnt dan het dialoogvenster „UserForm1”. - Om het aantal mappen in het huidige account te tellen, selecteert u de optie **„Huidig account”** en klikt u op **„OK”**. - Om het aantal mappen in alle postvakken te tellen, kiest u de optie **„Alle accounts”** en klikt u op **„OK”**. Zie de schermafbeelding:
9. Vervolgens verschijnt het dialoogvenster „Kutools voor Outlook”, waarin wordt weergegeven hoeveel mappen er beschikbaar zijn in het huidige account of in alle postvakken, zoals te zien is op de onderstaande schermafbeelding. Klik op de knop „OK”.
Opmerking: Bij het tellen van mappen worden ook alle verborgen mappen meegerekend, zoals de map „Instellingen voor gesprekshandelingen” en de map „Instellingen voor snelle stappen”.
AI Mail Assistant in Outlook: Slimmere antwoorden, helderder communicatie (magie met één klik!)
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert van uw eerdere e-mails om intelligente, nauwkeurige antwoorden te genereren, uw e-mailinhoud te optimaliseren en u moeiteloos te ondersteunen bij het opstellen en verbeteren van berichten.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld op basis van uw eerdere gesprekken — persoonlijk, nauwkeurig en direct klaar voor gebruik.
- Laat uw e-mailtekst automatisch verfijnen voor meer duidelijkheid en impact.
- Moeiteloos opstellen: Geef gewoon trefwoorden op en laat AI de rest doen, in meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten moeiteloos uit met contextbewuste suggesties.
- Samenvatting: Ontvang direct beknopte samenvattingen van lange e-mails.
- Wereldwijde reikwijdte: Vertaal uw e-mails moeiteloos naar elke gewenste taal.
Deze functie ondersteunt:
- Slimme e-mailantwoorden
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Vertaling in meerdere talen
Gerelateerde artikelen:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins