Come contare le email per categoria in Outlook?

Contare le email per categoria in Outlook con la funzione Ricerca Istantanea

Contare le email per categoria in Outlook con VBA

Questo metodo ti guiderà nel trovare tutte le email contrassegnate con la categoria colore specificata tramite la funzione Ricerca Istantanea, permettendoti di visualizzare facilmente il numero totale dei risultati direttamente nella Barra di stato.

1. Nella visualizzazione Posta, premi contemporaneamente i tasti Ctrl + E per attivare gli Strumenti di ricerca.

2. Fai clic su Ricerca > Per categoria, quindi seleziona la specifica categoria colore in base alla quale desideri contare le email.

3. Ora tutte le email contrassegnate con la categoria di colore specificata vengono individuate e visualizzate nell’elenco Email. Il numero totale dei risultati della ricerca è facilmente visibile nella barra di stato. Vedi screenshot:

Note:

(1) Per contare contemporaneamente le email contrassegnate con la categoria Gialla ela categoria Arancione, digita direttamente nella casella di Ricerca Istantaneail criterio di ricerca: categoria:«Categoria gialla» AND «Categoria arancione»:

(2) Per contare contemporaneamente le email contrassegnate con la categoria Gialla ola categoria Arancione, digita direttamente nella casella di Ricerca Istantaneail criterio di ricerca: categoria:«Categoria gialla» OR «Categoria arancione».

Questo metodo introduce una macro VBA per contare le email per categoria in un intervallo di date personalizzato in Outlook. Procedi come segue:

1. Nella visualizzazione Posta, seleziona la cartella di posta in cui desideri contare i messaggi.

2. Premi contemporaneamente i tasti Alt+F11 per aprire la finestra Microsoft Visual Basic, Applications.

3. Fai clic su Inserisci > Modulo, quindi incolla il seguente codice VBA nella nuova finestra del modulo che si apre:

VBA: Contare le email per categoria in Outlook

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. Premi il tasto F5 oppure fai clic sul pulsante Esegui per avviare questa macro VBA.

5. (1) Nella prima finestra di dialogo di Microsoft Outlook visualizzata, inserisci la data di inizio dell’intervallo di date personalizzato in cui desideri contare le email, quindi fai clic sul pulsante OK. (2) Nella seconda finestra di dialogo di Microsoft Outlook, inserisci la data di fine, quindi fai clic sul pulsante OKVedi screenshot:

Viene ora visualizzata una finestra di dialogo che mostra il conteggio delle email contrassegnate con la categoria colore. Vedi screenshot:

Contare il numero totale dei risultati della ricerca in Outlook

Contare le ore/giorni/settimane trascorsi in un appuntamento o riunione in Outlook

Contare il Conteggio email per oggetto in Outlook

Contare il numero totale di email ricevute al giorno in Outlook

Contare il numero totale di email selezionate in Outlook