Wie zählt man die Anzahl der markierten E-Mails in Outlook?

In Outlook können Sie Nachrichten, Kontakte oder Aufgaben kennzeichnen, um sie hervorzuheben. Doch wie zählen Sie die Anzahl der gekennzeichneten Elemente in Ihrem Outlook?

Zählen Sie die Anzahl der Markierte E-Mails in einem Konto mithilfe von Suchordnern

Zählen Sie die Anzahl der Markierte E-Mails / Kontakte / Aufgaben getrennt in allen Konten mithilfe von VBA-Code

---

a name="a1">Zählen Sie die Anzahl der Markierte E-Mails in einem Konto mithilfe von Suchordnern

Um die Anzahl der gekennzeichneten E-Mails in einem Outlook-Konto zu ermitteln, hilft Ihnen die Suchordner-Funktion. Gehen Sie dazu wie folgt vor:

1. Klicken Sie mit der rechten Maustaste auf Suchordner unter Ihrem E-Mail-Konto und wählen Sie anschließend Neuer Suchordner aus (siehe Screenshot):

2. Daraufhin wird das Dialogfeld Neuer Suchordner geöffnet. Klicken Sie im Abschnitt E-Mails lesen auf die Option Für Nachverfolgung gekennzeichnete E-Mails (siehe Screenshot):

3. Klicken Sie dann auf OK, und alle markierten E-Mails werden in den Ordner Für Nachverfolgung kopiert. Die Gesamtanzahl der gekennzeichneten E-Mails wird wie im folgenden Screenshot angezeigt:

---

a name="a2">Zählen Sie die Anzahl der Markierte E-Mails / Kontakte / Aufgaben getrennt in allen Konten mithilfe von VBA-Code

Wenn Sie die Anzahl aller gekennzeichneten Elemente – etwa E-Mails, Kontakte und Aufgaben – in Outlook einzeln ermitteln möchten, unterstützt Sie der folgende VBA-Code.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie dann auf Einfügen > Modul, und fügen Sie den folgenden Code in das geöffnete leere Modul ein (siehe Screenshot):

VBA-Code: Zählen der Anzahl der gekennzeichneten Elemente in Outlook:

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub

3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Meldungsfeld, das Ihnen die Gesamtanzahl aller markierten Elemente anzeigt (siehe folgender Screenshot):

---

Zählen Sie die Anzahl von heute, gestern, gelesen, ungelesen, Gesamtzahl der Elemente … in Outlook Mit der leistungsstarken Kutools für Outlook-Statistik-Funktion erhalten Sie auf Wunsch die Anzahl der Elemente nach Datum, die Anzahl der ausgewählten Elemente, gelesene, ungelesene und vieles mehr. Kutools für Outlook: Mit mehr als 70+ praktischen und kostenlosen Outlook-Add-Ins laden Sie jetzt die kostenlose Version herunter.