Come si fa a contare il numero di email inviate ogni mese in Outlook?

AutoreXiaoyang Data di modifica2024-09-18

A volte potresti voler sapere quante email invii ogni mese. Questo tutorial ti mostra un codice VBA per contare il numero di email inviate mensilmente in Outlook.

Conta il numero di email inviate al mese in Outlook con un codice VBA

Applica il codice VBA riportato di seguito per ottenere il numero di email inviate ogni mese, come mostrato qui sotto:

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

2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del Modulo.

Codice VBA: Conta il numero di email inviate al mese:

Dim GDictionary As Object
Sub CountSentMailsByMonth()
'Updateby Extendoffice
Dim xSentFolder As Outlook.Folder
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMonths As Variant
Dim xItemsCount As Variant
Dim xLastRow As Integer
Dim I As Integer
Dim xAccount As Account
On Error Resume Next
Set GDictionary = CreateObject("Scripting.Dictionary")
For Each xAccount In Application.Session.Accounts
  If VBA.LCase$(xAccount.SmtpAddress) = VBA.LCase$("yy@addin99.com") Then  'Specify the Email Account
    Set xSentFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderSentMail)
    If xSentFolder.DefaultItemType = olMailItem Then
      Call ProcessFolders(xSentFolder)
    End If
  End If
Next
Set xSentFolder = Nothing
Set xExcelApp = CreateObject("Excel.Application")
xExcelApp.Visible = True
Set xWb = xExcelApp.Workbooks.Add
Set xWs = xWb.Sheets(1)
With xWs
  .Cells(1, 1) = "Month"
  .Cells(1, 2) = "Count"
  .Cells(1, 1).Font.Bold = True
  .Cells(1, 2).Font.Bold = True
  .Cells(1, 1).HorizontalAlignment = xlCenter
  .Cells(1, 2).VerticalAlignment = xlCenter
End With
xMonths = GDictionary.Keys
xItemsCount = GDictionary.Items
For I = LBound(xMonths) To UBound(xMonths)
  xLastRow = xWs.Range("A" & xWs.Rows.Count).End(xlUp).Row + 1
  With xWs
    .Cells(xLastRow, 1) = xMonths(I)
    .Cells(xLastRow, 2) = xItemsCount(I)
  End With
Next
xWs.Columns("A:B").AutoFit
xExcelApp.Visible = True
Set xExcelApp = Nothing
Set xWb = Nothing
Set xWs = Nothing
End Sub

Sub ProcessFolders(ByVal Fld As Outlook.Folder)
Dim I As Long
Dim xMail As Outlook.MailItem
Dim xMonth As String
Dim xSubFolder As Folder
On Error Resume Next
For I = Fld.Items.Count To 1 Step -1
  If Fld.Items(I).Class = olMail Then
    Set xMail = Fld.Items(I)
    xMonth = Year(xMail.SentOn) & "/" & Month(xMail.SentOn)
    If GDictionary.Exists(xMonth) Then
      GDictionary(xMonth) = GDictionary(xMonth) + 1
    Else
      GDictionary.Add xMonth, 1
    End If
  End If
Next
If Fld.Folders.Count > 0 Then
  For Each xSubFolder In Fld.Folders
    Call ProcessFolders(xSubFolder)
  Next
End If
End Sub

Nota: Nel codice, sostituisci l’indirizzo email “yy@addin99.com” con il tuo.

3. Sempre nella finestra di Microsoft Visual Basic for Applications, fai clic su Strumenti > Riferimenti. Nella finestra di dialogo Riferimenti - Progetto, seleziona l’opzione Microsoft Excel 16,0 Object Library dall’elenco dei Riferimenti disponibili. Vedi screenshot:

doc-count-sent-emails-per-month-1

4. Fai quindi clic su OK per chiudere la finestra di dialogo e premi il tasto F5 per eseguire il codice. Si aprirà un file Excel che mostra il conteggio delle email inviate ogni mese per l’account specifico, vedi screenshot:

doc-count-sent-emails-per-month-2

Assistente email IA in Outlook: risposte più intelligenti, comunicazione più chiara (magia con un clic!)

Ottimizza le tue attività quotidiane in Outlook con l’Assistente email IA di Kutools per Outlook: uno strumento potente che impara dalle tue email precedenti per suggerirti risposte intelligenti e precise, ottimizzare il contenuto dei messaggi e aiutarti a scrivere e perfezionare le tue email in modo rapido e senza sforzo.

Questa funzionalità supporta:

Risposte intelligenti: ottieni risposte generate dalle tue conversazioni precedenti—personalizzate, precise e pronte all’uso.
Contenuto migliorato: affina automaticamente il testo delle tue email per renderlo più chiaro ed efficace.
Composizione senza sforzo: inserisci solo alcune parole chiave e lascia che l’IA si occupi del resto, con più stili di scrittura.
Estensioni intelligenti: amplia i tuoi pensieri con suggerimenti contestuali.
Sintesi: ottieni subito una panoramica rapida e concisa delle email più lunghe.
Portata globale: traduci le tue email in qualsiasi lingua con estrema facilità.

Questa funzionalità supporta:

Risposte email intelligenti
Contenuto ottimizzato
Bozze basate su parole chiave
Estensione intelligente del contenuto
Sintesi delle email
Traduzione multilingue

Non aspettare—scarica subito l’Assistente email IA e approfitta di!

Migliori strumenti per la produttività in Office

Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!

🤖KUTOOLS AI:Utilizza tecnologia AI avanzata per gestire le email senza sforzo, inclusi rispondere, riassumere, ottimizzare, estendere, tradurre e comporre email.

📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...

📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...

📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…

🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...

👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...

👩🏼‍🤝‍👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...

Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!

Sblocca istantaneamente Kutools per Outlook con un solo clic! Non aspettare oltre: scaricalo ora e aumenta subito la tua efficienza!

Elenco funzionalità di Kutools per Outlook Scarica ora Vai all’acquisto

🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office

Fortemente consigliato: Kutools for Office (5-in-1)

Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!

✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite