Come contare il numero di email inviate ogni mese in Outlook?
A volte, potresti voler sapere quante email hai inviato ogni mese. Questo tutorial ti presenterà un codice VBA per contare il numero di email inviate ogni mese in Outlook.
Conta il numero di email inviate ogni mese in Outlook con il codice VBA
Applica il seguente codice VBA per ottenere il numero di email inviate ogni mese come mostrato di seguito:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Clicca su Inserisci > Modulo e incolla il seguente codice nella finestra del Modulo.
Codice VBA: Conta il numero di email inviate ogni 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
3. Nella finestra Microsoft Visual Basic for Applications, clicca su Strumenti > Riferimenti. Nella finestra di dialogo Riferimenti-Progetto, seleziona l'opzione Libreria oggetti Microsoft Excel 16.0 dalla casella dei riferimenti disponibili, vedi screenshot:
4. Poi clicca su OK per chiudere la finestra di dialogo e premi il tasto F5 per eseguire il codice. Successivamente, si aprirà un file Excel che mostra il conteggio delle email inviate ogni mese per l'account specifico, vedi screenshot:
Assistente AI per la Posta in Outlook: Risposte più intelligenti, comunicazione più chiara (magia con un clic!) GRATIS
Semplifica le tue attività quotidiane di Outlook con l'Assistente AI per la Posta di Kutools per Outlook. Questo potente strumento impara dalle tue email precedenti per offrire risposte intelligenti e accurate, ottimizzare il contenuto delle tue email e aiutarti a redigere e perfezionare i messaggi senza sforzo.
Questa funzione supporta:
- Risposte Intelligenti: Ottieni risposte create a partire dalle tue conversazioni passate—personalizzate, precise e pronte all'uso.
- Contenuto Migliorato: Perfeziona automaticamente il testo delle tue email per chiarezza e impatto.
- Composizione Senza Sforzo: Fornisci solo delle parole chiave e lascia che l'IA si occupi del resto, con diversi stili di scrittura.
- Estensioni Intelligenti: Espandi i tuoi pensieri con suggerimenti contestuali.
- Riassunti: Ottieni sintesi concise di email lunghe istantaneamente.
- Portata Globale: Traduci le tue email in qualsiasi lingua con facilità.
Questa funzione supporta:
- Risposte intelligenti alle email
- Contenuto ottimizzato
- Bozze basate su parole chiave
- Estensione intelligente del contenuto
- Riassunto delle email
- Traduzione multilingue
Il meglio di tutto è che questa funzione è completamente gratuita per sempre! Non aspettare—scarica subito Assistente AI per la Posta e goditela
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri il nuovo Kutools per Outlook con oltre100 funzionalità incredibili! Clicca per scaricare ora!
📧 Automazione email: Risposta automatica (disponibile per POP e IMAP) / Programmazione invio email / CC/BCC automatico tramite regola durante l’invio dell’email / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddivisione automatica delle email con più destinatari in email individuali ...
📨 Gestione email: Richiama Email / Blocca email di truffa tramite Oggetto e altro / Elimina Email duplicate / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salvataggio in batch / Distacco in batch / Compressione in batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia dell’interfaccia: 😊Più emoji belle e simpatiche / Ti avvisa quando arrivano email importanti / Minimizza Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a Tutti con Allegati / Email Anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e Calendario: Aggiunta massiva dei contatti dalle email selezionate / Dividi un Gruppo di Contatti in gruppi individuali / Rimuovi promemoria di compleanno ...
Usa Kutools nella lingua che preferisci: supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!
