Hoe telt u het aantal e-mails per categorie in Outlook?

Tel e-mails per categorie in Outlook met de functie Direct zoeken

Tel e-mails per categorie in Outlook met VBA

Met deze methode vindt u alle e-mails die zijn gemarkeerd met de opgegeven kleurcategorie via de Direct zoeken-functie, en ziet u direct het totale aantal zoekresultaten in de Statusbalk.

1. Ga in de Mail-weergave naar Ctrl+E om de Zoekhulpmiddelen te activeren.

2. Klik op Zoeken > Gecategoriseerd en selecteer vervolgens de specifieke kleurcategorie waarmee u e-mails wilt tellen.

3. Alle e-mails met de opgegeven kleurcategorie worden nu gevonden en weergegeven in de e-maillijst. Het totale aantal zoekresultaten ziet u eenvoudig in de statusbalk. Zie schermafbeelding:

Opmerkingen:

(1) Als u e-mails met de categorie Geel enOranje tegelijkertijd wilt tellen, typt u het zoekcriterium category:="Gele categorie" AND "Oranje categorie" rechtstreeks in het vak Direct zoeken.

(2) Als u e-mails met de categorie Geel ofOranje tegelijkertijd wilt tellen, typt u het zoekcriterium category:="Gele categorie" OR "Oranje categorie" rechtstreeks in het vak Direct zoeken.

Deze methode maakt gebruik van een VBA-script om e-mails per categorie te tellen binnen een aangepaste datumbereik in Outlook. Volg deze stappen:

1. Ga in de Mail-weergave naar de e-mailmap waarin u e-mails wilt tellen.

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

3. Klik op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het nieuw geopende Module-venster:

VBA: Tel e-mails per categorie in Outlook

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. Druk op de F5-toets of klik op de knop Uitvoeren om dit VBA-script uit te voeren.

5. (1) Typ in het eerste Microsoft Outlook-dialoogvenster dat verschijnt de startdatum van de aangepaste datumreeks waarbinnen u e-mails wilt tellen en klik op de knop OK. (2) Typ in het tweede Microsoft Outlook-dialoogvenster de einddatum en klik op de knop OK. Zie schermafbeeldingen:

Er verschijnt nu een dialoogvenster waarin het aantal e-mails is gemarkeerd met een kleurcategorie. Zie de schermafbeelding:

Tel het totale aantal zoekresultaten in Outlook

Tel het aantal uren/dagen/weeken besteed aan een afspraak of vergadering in Outlook

Tel de Aantal E-mails per onderwerp in Outlook

Tel het totale aantal binnenkomende e-mails per dag in Outlook

Tel het totale aantal geselecteerde e-mails in Outlook