Wie zählt man E-Mails nach Kategorien in Outlook?

E-Mails nach Kategorie in Outlook mit der Sofortsuche-Funktion zählen

E-Mails nach Kategorie in Outlook mit VBA zählen

Diese Methode führt Sie durch das Auffinden aller E-Mails, die mit den angegebenen Farbkategorien markiert sind, mithilfe der Sofortsuche-Funktion, und ermöglicht es Ihnen dann, ganz einfach die Gesamtzahl aller Suchergebnisse in der Statusleiste zu erhalten.

1. Drücken Sie in der Postansicht gleichzeitig die Tasten Strg + E , um die Suchtools zu aktivieren.

2. Klicken Sie auf Suchen > Kategorisiert und wählen Sie dann die angegebene Farbkategorie aus, nach der Sie die E-Mails zählen möchten.

3. Nun werden alle mit der angegebenen Farbkategorie markierten E-Mails gefunden und in der E-Mail-Liste aufgeführt. Und Sie können ganz einfach die Gesamtzahl aller Suchergebnisse in der Statusleiste abrufen. Siehe Screenshot:

Hinweise:

(1) Um E-Mails zu zählen, die gleichzeitig mit der Gelb-Kategorie und der Orange-Kategorie markiert sind, geben Sie bitte das Suchkriterium Kategorie:="Gelbe Kategorie" UND "Orange Kategorie" direkt in das Sofortsuche-Feld ein:

(2) Um E-Mails zu zählen, die gleichzeitig mit der Gelb-Kategorie oder der Orange-Kategorie markiert sind, geben Sie bitte das Suchkriterium Kategorie:="Gelbe Kategorie" ODER "Orange Kategorie" direkt in das Sofortsuche-Feld ein.

Diese Methode stellt ein VBA vor, um E-Mails nach Kategorie in einem benutzerdefinierten Datumsbereich in Outlook zu zählen. Bitte gehen Sie wie folgt vor:

1. Wählen Sie im Posteingang die E-Mail-Ordner aus, in denen Sie die E-Mails zählen möchten.

2. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

3. Klicken Sie auf Einfügen > Modul und fügen Sie dann den folgenden VBA-Code in das neu geöffnete Modulfenster ein:

VBA: E-Mails nach Kategorie in Outlook zählen

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. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA auszuführen.

5. (1) Geben Sie im ersten erscheinenden Microsoft Outlook-Dialogfeld bitte das Startdatum des benutzerdefinierten Datumsbereichs ein, innerhalb dessen Sie die E-Mails zählen möchten, und klicken Sie auf die Schaltfläche OK. (2) Geben Sie im zweiten Microsoft Outlook-Dialogfeld das Enddatum ein und klicken Sie auf die Schaltfläche OK . Siehe Screenshots:

Und nun erscheint ein Dialogfeld, das die Anzahl der mit Farbkategorien markierten E-Mails anzeigt. Siehe Screenshot:

Die Gesamtzahl der Suchergebnisse in Outlook zählen

Stunden/Tage/Wochen für einen Termin oder eine Besprechung in Outlook zählen

Die Anzahl der E-Mails nach Betreff in Outlook zählen

Die Gesamtzahl der eingehenden E-Mails pro Tag in Outlook zählen

Die Gesamtzahl der ausgewählten E-Mails in Outlook zählen