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 das komplett neue Kutools für Outlook mit über100 beeindruckenden Funktionen! Jetzt herunterladen!
📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP) /E-Mails zeitgesteuert senden /Automatische CC/BCC nach Regel beim Senden von E-Mails /Automatische Weiterleitung (Erweiterte Regeln) /Automatisches Hinzufügen von Begrüßungen / Mehrfache Empfänger-E-Mails automatisch in einzelne E-Mail-Nachrichten aufteilen...
📨 E-Mail-Verwaltung: E-Mails zurückrufen /Betrugsversuche anhand des Betreffs und anderer Kriterien blockieren /Duplikate E-Mails löschen /Erweiterte Suche /Ordner organisieren...
📁 Anhänge Pro:Stapelweise speichern /Stapelweise abtrennen /Stapelweise komprimieren /Automatisch speichern /Automatisch abtrennen/Automatische Komprimierung...
🌟 Interface-Magie: 😊Mehr attraktive und coole Emojis /Benachrichtigung bei wichtigen E-Mails /Outlook minimieren statt schließen...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten /Anti-Phishing-E-Mails /🕘Zeitzone des Absenders anzeigen...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte stapelweise aus ausgewählten E-Mails hinzufügen /Eine Kontaktgruppe in einzelne Gruppen aufteilen /Geburtstagserinnerung entfernen...
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!
