Hoe e-mails tellen per categorie in Outlook?

E-mails tellen per categorie in Outlook met de Instant Zoeken-functie

E-mails tellen per categorie in Outlook met VBA

Deze methode helpt je om alle e-mails gemarkeerd met de opgegeven kleurcategorieën te vinden met behulp van de Instant Zoeken-functie, en vervolgens eenvoudig het totale aantal zoekresultaten te zien op de Statusbalk.

1. In de Mail-weergave gelijktijdig de toetsen Ctrl + E indrukken om de Zoektools te activeren.

2. Klik op Zoeken > Gecategoriseerd, en selecteer vervolgens de opgegeven kleurcategorie waarop je e-mails wilt tellen.

3. Nu worden alle e-mails gemarkeerd met de opgegeven kleurcategorie gevonden en weergegeven in de e-maillijst. Je kunt eenvoudig het totale aantal zoekresultaten zien op de statusbalk. Zie screenshot:

Opmerkingen:

(1) Om e-mails te tellen die gemarkeerd zijn met de Gele categorie en Oranje categorie tegelijkertijd, voer dan het zoekcriterium category:="Gele Categorie" AND "Oranje Categorie" rechtstreeks in de Instant Zoeken-balk in:

(2) Om e-mails te tellen die gemarkeerd zijn met de Gele categorie of Oranje categorie tegelijkertijd, voer dan het zoekcriterium category:="Gele Categorie" OR "Oranje Categorie" rechtstreeks in de Instant Zoeken-balk in.

Deze methode introduceert een VBA om e-mails te tellen per categorie binnen een aangepast datumbereik in Outlook. Volg deze stappen:

1. Selecteer in de Mail-weergave de e-mailmap waarin je e-mails wilt tellen.

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

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

VBA: E-mails tellen 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 Uitvoeren-knop om deze VBA uit te voeren.

5. (1) Typ in het eerste pop-upvenster van Microsoft Outlook de startdatum van het aangepaste datumbereik waarbinnen je e-mails wilt tellen, en klik op de OK-knop. (2) Typ in het tweede Microsoft Outlook-venster de einddatum, en klik op de OK -knop. Zie screenshots:

Nu verschijnt er een dialoogvenster dat het aantal e-mails weergeeft dat gemarkeerd is met kleurcategorieën. Zie screenshot:

Het totale aantal zoekresultaten tellen in Outlook

Uren/dagen/weken tellen die besteed zijn aan een afspraak of vergadering in Outlook

Het aantal e-mails tellen per onderwerp in Outlook

Totaal aantal binnenkomende e-mails per dag tellen in Outlook

Totaal aantal geselecteerde e-mails tellen in Outlook