Come contare le email per categoria in Outlook?

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

Conta le email per categoria in Outlook con VBA

Questo metodo ti guiderà a trovare tutte le email contrassegnate con specifiche categorie di colore utilizzando la funzione Ricerca Istantanea, e poi otterrai facilmente il numero totale di tutti i risultati della ricerca nella barra di stato.

1. Nella vista Mail, premi contemporaneamente i tasti Ctrl + E per attivare gli Strumenti di Ricerca.

2. Clicca su Cerca > Categorizzato, e poi seleziona la categoria di colore specificata in base alla quale vuoi contare le email.

3. Ora tutte le email contrassegnate con la categoria di colore specificata sono state trovate ed elencate nell'elenco delle email. E puoi facilmente ottenere il numero totale di tutti i risultati della ricerca nella barra di stato. Vedi screenshot:

Note:

(1) Per contare le email contrassegnate con la categoria Giallo e la categoria Arancione contemporaneamente, digita il criterio di ricerca categoria:="Categoria Gialla" AND "Categoria Arancione" direttamente nella casella di Ricerca Istantanea:

(2) Per contare le email contrassegnate con la categoria Giallo o la categoria Arancione contemporaneamente, digita il criterio di ricerca categoria:="Categoria Gialla" OR "Categoria Arancione" direttamente nella casella di Ricerca Istantanea.

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

1. Nella vista Mail, seleziona la cartella di posta elettronica in cui vuoi contare le email.

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

3. Clicca su Inserisci > Modulo, e poi incolla il seguente codice VBA nella nuova finestra del Modulo che si apre:

VBA: Conta 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 o clicca sul pulsante Esegui per eseguire questo VBA.

5. (1) Nel primo riquadro di dialogo Microsoft Outlook che appare, inserisci la data di inizio dell'intervallo di date personalizzato entro il quale vuoi contare le email, e clicca sul pulsante OK. (2) Nel secondo riquadro di dialogo Microsoft Outlook, inserisci la data di fine, e clicca sul pulsante OK . Vedi screenshot:

A questo punto, apparirà una finestra di dialogo che mostra il numero di email contrassegnate con categorie di colore. Vedi screenshot:

Conta il numero totale dei risultati della ricerca in Outlook

Conta le ore/giorni/settimane spesi per un appuntamento o una riunione in Outlook

Conta il numero di email per oggetto in Outlook

Conta il numero totale di email in arrivo al giorno in Outlook

Conta il numero totale di email selezionate in Outlook