3 metodi rapidi per contare tutti gli elementi contrassegnati in Outlook

Outlook ti consente di contrassegnare gli elementi per il follow-up, ad esempio contrassegnare e-mail, contatti e così via. In questo scenario, a volte potresti voler contare gli elementi contrassegnati. Qui condivideremo 3 approcci con te.

Forse hai contrassegnato un gran numero di elementi per il follow-up nel tuo Outlook. Ad esempio, puoi contrassegnare un contatto in cui intendi chiamare questo contatto in un secondo momento. Di fronte a così tanti elementi contrassegnati, potresti sperare di contarli. Successivamente, ti presenteremo 3 mezzi.

Metodo 1: contare tramite la cartella di ricerca

Se vuoi semplicemente contare le email contrassegnate, puoi utilizzare la cartella di ricerca. Ecco i passaggi dettagliati.

1. Per iniziare, nel riquadro di navigazione della posta, fai clic con il pulsante destro del mouse su "Cerca cartelle".
2. Quindi, dal suo menu contestuale, seleziona "Nuova cartella di ricerca".
3. Nella finestra di dialogo popup, seleziona "Posta contrassegnata per il follow-up" e fai clic su "OK".
4. Infine, otterrai un numero totale di e-mail contrassegnate nella cartella di ricerca, come lo screenshot seguente.

Metodo 2: contare nell'elenco delle cose da fare

Se hai contrassegnato non solo email ma anche contatti, gruppi di contatti e così via, potresti voler ottenere un conteggio totale di tutti questi elementi contrassegnati. In questa situazione, puoi usare il seguente modo.

1. Innanzitutto, passa al riquadro di navigazione delle attività con "Ctrl + 4".
2. Quindi, accedi alla "Lista delle cose da fare", dove vedrai tutti gli elementi contrassegnati, mostrati come l'immagine qui sotto:
3. Successivamente, seleziona tutti questi elementi e premi il tasto "Invio", cercando di aprirli in batch.
4. Successivamente, riceverai un avviso sull'apertura di troppi elementi, come nell'immagine seguente. Nell'avviso è presente un conteggio totale degli elementi contrassegnati.

Metodo 3: contare con Outlook VBA

Forse non solo vuoi ottenere un conteggio totale di tutti gli elementi contrassegnati, ma desideri anche ottenere i conteggi di tipi separati di elementi contrassegnati. Ecco una soluzione in questo senso.

1. Per cominciare, accedi all'editor VBA di Outlook facendo riferimento al post "Come eseguire il codice VBA in Outlook".
2. Quindi copia il codice VBA di seguito in un modulo o progetto.

Dim lSeparateCount, lMailCount, lContactCount, lTaskCount As Long

Sub CountFlaggedItems()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
    Dim strMsg As String

    lTotalCount = 0
    lMailCount = 0
    lContactCount = 0
    lTaskCount = 0
 
    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            Call ProcessFolders(objFolder, lTotalCount)
        Next
    Next
 
    strMsg = lTotalCount & " items have been flagged, as follows: " & vbCr & vbCr & "Emails: " & lMailCount & vbCr & "Contacts: " & lContactCount & vbCr & "Tasks: " & lTaskCount
    MsgBox strMsg, vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    Select Case objCurrentFolder.DefaultItemType
       Case olMailItem
            Call Count(objCurrentFolder, lCount)
            lMailCount = lMailCount + lSeparateCount
       Case olContactItem
            Call Count(objCurrentFolder, lCount)
            lContactCount = lContactCount + lSeparateCount
       Case olTaskItem
            Call Count(objCurrentFolder, lCount)
            lTaskCount = lTaskCount + lSeparateCount
            lCount = lCount + objCurrentFolder.Items.Count
    End Select
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

Sub Count(objCurfolder As Outlook.Folder, lCurCount As Long)
    Dim objItem As Object
 
    lSeparateCount = 0
    For Each objItem In objCurfolder.Items
        Select Case objItem.Class
           Case olMail, olPost, olContact, olDistList, olSharing
                If objItem.IsMarkedAsTask = True Then
                   lSeparateCount = lSeparateCount + 1
                   lCurCount = lCurCount + 1
                End If
           Case olTask
                lSeparateCount = lSeparateCount + 1
        End Select
    Next
End Sub

3. Infine, fai clic sulla subroutine "CountFlaggedItems" e premi il pulsante "F5".
4. Al termine della macro, riceverai un messaggio che richiede il conteggio totale di tutti gli elementi contrassegnati, come nell'immagine seguente.

Elimina i fastidiosi problemi di Outlook

In Outlook, i problemi di Outlook possono verificarsi di tanto in tanto. Quindi, faresti meglio a procurarti un tip-top e affidabile Correzione di Outlook utilità, come DataNumen Outlook Repair. Può scansionare il tuo file di Outlook in modo intelligente e riparare gli errori del file in pochi minuti.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correzione del mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com