Wie zähle ich die Anzahl der markierten Nachrichten in Outlook?

In Outlook können Sie die Nachrichten, Kontakte oder Aufgaben kennzeichnen, um sie hervorzuheben. Manchmal müssen Sie jedoch die Anzahl der gekennzeichneten Elemente in Ihrem Outlook zählen. Wie können Sie mit dieser Aufgabe in Outlook umgehen?

Zählen Sie die Anzahl der markierten Nachrichten in einem Konto mit Suchordnern

Zählen Sie die Anzahl der gekennzeichneten Nachrichten / Kontakte / Aufgaben in allen Konten mit VBA-Code separat

Zählen Sie die Anzahl der markierten Nachrichten in einem Konto mit Suchordnern

Um die Anzahl der markierten E-Mails in einem Outlook-Konto zu zählen, müssen Sie die Ordner durchsuchen Funktion kann Ihnen helfen, bitte tun Sie Folgendes:

1. Rechtsklick Ordner durchsuchen Klicken Sie unter Ihrem E-Mail-Konto auf und wählen Sie dann Neuer Suchordner, siehe Screenshot:

2. Dann ein Neuer Suchordner Das Dialogfeld wird geöffnet. Klicken Sie auf Mail zur Nachverfolgung markiert Option in der Mail lesen Abschnitt, siehe Screenshot:

3. Dann klick OKund alle gekennzeichneten Nachrichten werden in die kopiert Für Follow-up Ordner, und die Gesamtzahl der markierten E-Mails wird wie folgt angezeigt:

Zählen Sie die Anzahl der gekennzeichneten Nachrichten / Kontakte / Aufgaben in allen Konten mit VBA-Code separat

Wenn Sie die Anzahl aller gekennzeichneten Elemente wie E-Mails, Kontakte und Aufgaben in Outlook separat zählen möchten, kann Ihnen der folgende VBA-Code einen Gefallen tun.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Dann klick Insert > Modul, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein, siehe Screenshot:

VBA-Code: Zählen Sie die Anzahl der markierten Zeiten 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. Dann drücken F5 Wenn Sie den Schlüssel zum Ausführen dieses Codes eingeben, wird ein Eingabeaufforderungsfeld angezeigt, in dem die Gesamtzahl aller markierten Elemente wie im folgenden Screenshot angezeigt wird:

---

Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge Pro: Batch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

Weiterlesen       Free Download      Bezug von MarvelClient