Come si fa a contare il numero di email contrassegnate in Outlook?

In Outlook è possibile contrassegnare con un flag messaggi, contatti o attività per renderli più visibili, ma a volte potrebbe essere necessario contare quanti elementi sono stati così evidenziati. Come si può eseguire questa operazione in Outlook?

Conta il numero di Email contrassegnate in un account tramite Cartelle di ricerca

Conta separatamente il numero di Email contrassegnate / contatti / attività in tutti gli account con codice VBA

---

a name="a1">Conta il numero di Email contrassegnate in un account tramite Cartelle di ricerca

Per contare il numero di email contrassegnate in un account di Outlook, la funzionalità Cartelle di ricercapuò esserti d’aiuto; procedi come segue:

1. Fai clic con il pulsante destro del mouse su Cartelle di ricerca sotto il tuo account email, quindi seleziona Nuova cartella di ricerca. Vedi screenshot:

2. Si aprirà quindi la finestra di dialogo Nuova cartella di ricerca; fai clic sull’opzione Posta contrassegnata per il follow-up nella sezione Lettura posta, vedi screenshot:

3. Fai quindi clic su OK e tutte le email contrassegnate verranno copiate nella cartella Da seguire, dove verrà visualizzato il numero totale di email contrassegnate, come mostrato nello screenshot seguente:

---

a name="a2">Conta separatamente il numero di Email contrassegnate / contatti / attività in tutti gli account con codice VBA

Se desideri contare separatamente il numero totale di tutti gli elementi contrassegnati—come email, contatti e attività—in Outlook, il seguente codice VBA potrà esserti utile.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Quindi, fai clic su Inserisci > Modulo, copia e incolla il codice seguente nel modulo vuoto aperto. Vedi screenshot:

Codice VBA: Conta il numero di elementi contrassegnati 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. Premi quindi il tasto F5 per eseguire questo codice: si aprirà una finestra di avviso che ti mostrerà il conteggio totale di tutti gli elementi contrassegnati, come illustrato nello screenshot seguente:

---

Conta il numero di elementi di oggi, ieri, letti, non letti, numero totale di elementi... in Outlook Grazie alla potente funzione Statistiche di Kutools per Outlook, puoi ottenere il conteggio degli elementi per data, il numero di elementi selezionati, letti, non letti e molto altro, tutto personalizzato sulle tue esigenze. Kutools per Outlook: con oltre 70 comodi componenti aggiuntivi gratuiti per Outlook,scarica subito la versione gratuita. Grazie alla potente funzionalità Statistiche di Kutools per Outlook, puoi ottenere il numero di elementi in base a data, il numero di elementi selezionati, letti, non letti e molto altro, tutto secondo le tue esigenze. Kutools per Outlook: con oltre 70+ comodi e gratuiti componenti aggiuntivi per Outlook,scarica subito la versione gratuita.