Come contare il numero di messaggi contrassegnati in Outlook?

In Outlook, puoi contrassegnare i messaggi, i contatti o le attività per renderli in sospeso, ma, a volte, devi contare il numero di elementi contrassegnati in Outlook. Come potresti gestire questa attività in Outlook?

Contare il numero di messaggi contrassegnati in un account con le cartelle di ricerca

Contare il numero di messaggi / contatti / attività contrassegnati separatamente in tutti gli account con codice VBA

Contare il numero di messaggi contrassegnati in un account con le cartelle di ricerca

Per contare il numero di messaggi di posta elettronica contrassegnati in un account di Outlook, il file Cartelle di ricerca la funzione può aiutarti, per favore fai come segue:

1. Clic destro Cartelle di ricerca sotto il tuo account e-mail, quindi seleziona Nuova cartella di ricerca, vedi screenshot:

2. Poi un Nuova cartella di ricerca viene visualizzata la finestra di dialogo, fare clic su Posta contrassegnata per il follow-up opzione nel Leggere la posta sezione, vedi screenshot:

3. Quindi fare clic OKe tutti i messaggi contrassegnati vengono copiati nel file Per seguire cartella e il numero totale di e-mail contrassegnate viene visualizzato come mostrato nella seguente schermata:

Contare il numero di messaggi / contatti / attività contrassegnati separatamente in tutti gli account con codice VBA

Se vuoi contare il numero di tutti gli elementi contrassegnati, come e-mail, contatti e attività in Outlook separatamente, il seguente codice VBA può farti un favore.

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi, fare clic inserire > Moduli, copia e incolla sotto il codice nel modulo vuoto aperto, vedi screenshot:

Codice VBA: conta il numero di volte contrassegnate 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. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per dirti il ​​conteggio totale di tutti gli elementi contrassegnati come mostrato nell'immagine sottostante:

---

I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati Pro: Salvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Scopri di più       Scarica gratis      Acquista