Note: The other languages of the website are Google-translated. Back to English

Come contare le e-mail per categoria in Outlook?

Potresti aver evidenziato e-mail con categorie di colori in Outlook. Ma sai come contare le e-mail per categorie? Questo articolo condividerà due soluzioni:

Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzionalità avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2021 - 2010 o Office 365. Funzionalità complete Prova gratuita di 60 giorni.

freccia blu freccia destra Contare le e-mail per categoria in Outlook con la funzione di ricerca istantanea

Questo metodo ti guiderà a scoprire tutte le email contrassegnate con le categorie di colore specificate dal file ricerca istantanea e quindi ottenere facilmente il numero totale di tutti i risultati della ricerca nel file Barra di stato.

1. Nel posta visualizzare, premere Ctrl + E contemporaneamente i tasti per attivare il Strumenti di ricerca.

2. Clic Cerca > Classificato, quindi seleziona la categoria di colore specificata in base alla quale conterai le email.

3. Ora tutte le e-mail contrassegnate con la categoria di colore specificata vengono rilevate ed elencate nella lista di posta. E puoi facilmente ottenere il numero totale di tutti i risultati della ricerca sulla barra di stato. Vedi screenshot:

Note:

(1) Per il conteggio dei messaggi di posta elettronica contrassegnati con Categoria gialla di Categoria arancione contemporaneamente, digita i criteri di ricerca categoria: = "Categoria gialla" AND "Categoria arancione" nella ricerca istantanea scatola direttamente:

(2) Per il conteggio dei messaggi di posta elettronica contrassegnati con Categoria gialla or Categoria arancione contemporaneamente, digita i criteri di ricerca categoria: = "Categoria gialla" O "Categoria arancione" nella ricerca istantanea scatola direttamente.


freccia blu freccia destra Conta le email per categoria in Outlook con VBA

Questo metodo introdurrà un VBA per contare le e-mail per categoria in un intervallo di date personalizzato in Outlook. Si prega di fare quanto segue:

1. Nel posta visualizza, seleziona la cartella di posta elettronica in cui conterai le email.

2. Stampa altro + F11 tasti contemporaneamente per aprire la finestra di Microsoft Visual Basic, Applications Edition.

3. Clic inserire > Modulo, quindi incolla sotto il codice VBA nella nuova finestra del modulo di apertura:

VBA: conta le e-mail 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 F5 o fare clic sul pulsante Esegui per eseguire questo VBA.

5. (1) Nella prima finestra di dialogo di Microsoft Outlook che si apre, digita la data di inizio dell'intervallo di date personalizzato in cui conterai le e-mail e fai clic su OK pulsante. (2) Nella seconda finestra di dialogo di Microsoft Outlook, digitare la data di fine e fare clic su OK pulsante. Vedi screenshot:

E ora viene visualizzata una finestra di dialogo che mostra il numero di e-mail contrassegnate con categorie di colori. Vedi screenshot:


freccia blu freccia destraArticoli Correlati


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (17)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Questo è perfetto, ma come posso modificare il VBA per includere le sottocartelle della cartella corrente nel conteggio?
Questo commento è stato fatto dal moderatore sul sito
Ciao, grazie, funziona perfettamente, solo una rapida query: possiamo visualizzare i risultati di Msgbox in Excel, poiché ogni volta che voglio eseguire la macro dovrebbe essere visualizzato in Excel.
ogni volta uno sotto i risultati precedenti.
Questo commento è stato fatto dal moderatore sul sito
Sarebbe fantastico!
Questo commento è stato fatto dal moderatore sul sito
Ciao, grazie ha funzionato perfettamente per il mese di giugno, ma quando lo eseguo a luglio, mostra solo il numero totale di email... qualche idea?
Questo commento è stato fatto dal moderatore sul sito
c'è un modo per trasformarlo in una tabella excel?
Questo commento è stato fatto dal moderatore sul sito
Ciao Dylan,
Sotto il codice VBA verranno inseriti i risultati del conteggio in una nuova cartella di lavoro di Excel.
Cordiali saluti, abilita il riferimento a "Libreria di oggetti di Microsoft Excel 16.0" prima di eseguire VBA.
SottocategorieE-mail()
Dim xFolder come MAPIFolder
Dim xDict come oggetto
Dim xStartDate come stringa, xEndDate come stringa
Dim xItems come Outlook.Items
Dim xStr come stringa, xMsg come stringa
Dim xExlApp come oggetto
Dim xWb come cartella di lavoro, xWs come foglio di lavoro
Dim I come intero
On Error Resume Next
Imposta xExlApp = CreateObject ("Excel.Application")
Imposta xWb = xExlApp.Workbooks.Add
Imposta xWs = xWb.Sheets.Item(1)
Imposta xCartella = Application.ActiveExplorer.CurrentFolder
Imposta xDict = CreateObject("Scripting.Dictionary")
xStartDate = InputBox("Digita la data di inizio (formato MM/GG/AAAA)")
xEndDate = InputBox("Digita la data di fine (formato MM/GG/AAAA)")
Imposta xItems = xFolder.Items.Restrict("[ReceivedTime] >= '" & xStartDate & "' And [ReceivedTime] <= '" & xEndDate & "'")
'xItems.SetColumns ("Categorie")
Per ogni xItem in xItems
xStr = xItem.Categories
Se non xDict.Exists(xStr) Allora
xDict(xStr) = 0
End If
xDict(xStr) = CLng(xDict(xStr)) + 1
Prossimo xItem
xMsg = ""
xWs.Range("A1", "B1").Font.Bold = True
Con xWs.Range("A1", "B1")
.HorizontalAlignment = xlCenter
.AllineamentoVerticale = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = Falso
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Fine Con
xWs.Cells(1, 1) = "Categorie"
xWs.Cells(1, 2) = "Conteggio"
Io = 2
Per ogni xKey In xDict.Keys
Se xKey <> "" Allora
xWs.Cells(I, 1) = xChiave
xWs.Cells(I, 2) = xDict(xKey)
io = io + 1
End If
Successiva
xWs.Range("A1", "B" + CStr(I)).Columns.AutoFit
xExlApp.Visible = Vero
Imposta xCartella = Niente
End Sub
Questo commento è stato fatto dal moderatore sul sito
Questo è stato utile anche per me, grazie mille per averlo condiviso!
Questo commento è stato fatto dal moderatore sul sito
So che questo è un thread più vecchio, ma se qualcuno può aiutarmi sarebbe molto apprezzato. Durante l'esecuzione del codice ricevo un errore di compilazione "Tipo definito dall'utente non definito" per l'ottava riga "Dim xWB As Workbook, xWs As Worksheet"
Questo commento è stato fatto dal moderatore sul sito
Hi
Sei riuscito a risolvere questo?
Ho lo stesso problema
Soluzione:
Elimina semplicemente la riga: Dim xWb As Workbook, xWs As Worksheet
Questo commento è stato fatto dal moderatore sul sito
Puoi aggiungere un modo per suddividere le colonne del conteggio per giorno? Quindi potrei correre un mese intero e poi avere i conteggi suddivisi per giorno.
Questo commento è stato fatto dal moderatore sul sito
Ciao Hannah,

Si prega di provare il codice qui sotto:

SottocategorieE-mail()
Dim oFolder As MAPIFolder
Dim oDict come oggetto
Dim sStartDate come stringa
Dim sEndDate come stringa
Dim oItems come Outlook.Items
Dim sStr come stringa
Dim sMsg come stringa
Dim xStr, xStrDate, xStrDate_D come stringa
Dim xArr come variante
Dim xNum come intero
Dim xRlt come stringa
On Error Resume Next
Imposta oFolder = Application.ActiveExplorer.CurrentFolder
xNumero = 0
Imposta oDict = CreateObject("Scripting.Dictionary")
sStartDate = InputBox("Digita la data di inizio (formato MM/GG/AAAA)")
sEndDate = InputBox("Digita la data di fine (formato MM/GG/AAAA)")
Imposta oItems = oFolder.Items.Restrict("[ReceivedTime] >= '" & sStartDate & "' And [ReceivedTime] <= '" & sEndDate & "'")
oItems.SetColumns ("ReceivedTime")
xStrDate_D = ""
xRlt = ""
Per ogni oggetto in oItems
xStr = aitem.ReceivedTime
Se Trim(xStr) <> "" Allora
xArr = Dividi(xStr, " ")
xStrDate = xArr(0)
Se xStrDate_D = "" Allora
xStrDate_D = xStrDate
xNumero = 1
Altro
Se xStrDate <> "" Allora
Se xStrDate = xStrDate_D Allora
xNum = xNum + 1
Altro
Se xRlt = "" Allora
xRlt = xStrDate_D & ":" & xNum
Altro
xRlt = xRlt & vbCrLf & xStrDate_D & ":" & xNum
End If
xStrDate_D = xStrDate
xNumero = 1
End If
End If
End If
End If
Successiva
Se xRlt <> "" Allora
MsgBox xRlt
Altro
MsgBox "Nessun dato trovato."
End If
End Sub
Inoltre, per ulteriori analisi statistiche, vai alla scheda Kutools Plus > Statistiche se hai installato Kutools per Outlook. Se no, per favoreextendoffice.com/download/kutools-for-outlook.html">fai clic qui per scaricare e ottenere gratuitamente un percorso di 30 giorni.
Amanda
Questo commento è stato fatto dal moderatore sul sito
Grazie mille per il vostro aiuto!! Non credo di essere stato abbastanza chiaro nella mia domanda iniziale. C'è un modo per farlo suddividere per categoria e poi contare per giorno? Quindi la categoria X verrebbe suddivisa in base al conteggio in colonne di data?
Questo commento è stato fatto dal moderatore sul sito
Ciao ragazzi,
Per eseguire correttamente il codice sopra, abilitare prima il riferimento di "Libreria di oggetti di Microsoft Excel 16.0".
Per fare ciò, eseguire le seguenti operazioni:1. In Outlook, vai alla scheda Costruttori > Visual Basic.2. Nella finestra pop-up, fare clic su Strumenti.3. Nella finestra di dialogo pop-up, controlla Libreria di oggetti di Microsoft Excel 16.0, quindi fare clic OK, vedi screenshot.
Notare quello 16.0 indica il numero di versione, quindi se non è lo stesso nella tua finestra di dialogo, non importa. Tuttavia, se non riesci a trovare il Libreria oggetti di Microsoft Excel (numero di versione)., assicurati di avere Excel installato sul tuo computer.
Dopo aver abilitato il riferimento, utilizzare il codice sopra.
Se hai altre domande, non esitare a farmelo sapere.
Amanda
Questo commento è stato fatto dal moderatore sul sito
Ciao, c'è la possibilità di contare le lettere contrassegnate da categorie se in una lettera abbiamo pochi casi e devono essere contati: ad esempio categoria verde - 1 lettera con 3 casi all'interno = 3 casi di categoria verde?


Grazie
Questo commento è stato fatto dal moderatore sul sito
Ciao,
Invece di calcolare solo dalla cartella selezionata, c'è un modo per includere anche tutte le sottocartelle?
Questo commento è stato fatto dal moderatore sul sito
Hi
Sei riuscito a risolvere questo?
Vorrei contare nelle sottocartelle in.
Questo commento è stato fatto dal moderatore sul sito
Il numero totale di email appena utilizzate per apparire accanto al Nome della categoria. Qualcuno sa come impostare questo?
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL