Wie zählt man die Anzahl der markierten E-Mails in Outlook?
In Outlook können Sie E-Mails, Kontakte oder Aufgaben markieren, um sie hervorzuheben. Manchmal möchten Sie jedoch die Anzahl der markierten Elemente in Ihrem Outlook zählen. Wie könnten Sie diese Aufgabe in Outlook bewältigen?
Anzahl der markierten E-Mails in einem Konto mit Suchordnern zählen
Anzahl der markierten E-Mails / Kontakte / Aufgaben separat in allen Konten mit VBA-Code zählen
a name="a1"> Anzahl der markierten E-Mails in einem Konto mit Suchordnern zählen
Um die Anzahl der markierten E-Mails in einem Outlook-Konto zu zählen, kann Ihnen die Funktion „Suchordner“ helfen. Gehen Sie wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf „Suchordner“ unter Ihrem E-Mail-Konto und wählen Sie dann „Neuer Suchordner“, siehe Screenshot:
2. Dann öffnet sich ein Dialogfeld „Neuer Suchordner“. Klicken Sie auf die Option „E-Mails für Nachverfolgung markiert“ im Abschnitt „E-Mails lesen“, siehe Screenshot:
3. Klicken Sie dann auf „OK“ und alle markierten Nachrichten werden in den Ordner „ Für Nachverfolgung“ kopiert. Die Gesamtanzahl der markierten E-Mails wird wie im folgenden Screenshot angezeigt:
a name="a2"> Anzahl der markierten E-Mails / Kontakte / Aufgaben separat in allen Konten mit VBA-Code zählen
Wenn Sie die Anzahl aller markierten Elemente, wie E-Mails, Kontakte und Aufgaben, in Outlook separat zählen möchten, kann Ihnen der folgende VBA-Code helfen.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie dann auf „Einfügen“ > „Modul“ und kopieren und fügen Sie den unten stehenden Code in das geöffnete leere Modul ein, siehe Screenshot:
VBA-Code: Anzahl der markierten Elemente in Outlook zählen:
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 dann die F5-Taste, um diesen Code auszuführen, und es erscheint ein Hinweisfenster, das Ihnen die Gesamtanzahl aller markierten Elemente anzeigt, wie im folgenden Screenshot gezeigt:
Anzahl der heutigen, gestrigen, gelesenen, ungelesenen, Gesamtelemente... in Outlook zählen Mit dem leistungsstarken Statistik-Feature von Kutools für Outlook können Sie die Anzahl der Elemente basierend auf dem Datum, ausgewählten Elementen, gelesen, ungelesen und vieles mehr erhalten, je nach Bedarf.  Kutools für Outlook: Mit über 70+ praktischen und kostenlosen Outlook-Add-ins, laden Sie jetzt die kostenlose Version herunter. |
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
