Metodi 2 per contare rapidamente le e-mail per mittente in Outlook

Se desideri contare le email per mittente, puoi fare riferimento a questo articolo. Qui ti esporremo 2 approcci rapidi.

Per conoscere il most mittente attivo per te, potresti voler contare le e-mail per mittente. Sebbene Outlook non fornisca una funzionalità diretta per questo, puoi comunque cercare alcune soluzioni alternative, come il seguente Metodo 1. Se ritieni che il Metodo 1 sia troppo noioso, puoi optare per il Metodo 2. È molto più efficace in che utilizza VBA per contare rapidamente le e-mail per mittente ed esportare i conteggi in Excel. Ora leggi i due modi in dettaglio. Qui prenderemo come esempio le email in Inbox.

Metodo 1: ottenere i conteggi dopo aver raggruppato gli elementi in base al campo "Da".

1. Per cominciare, avvia l'applicazione Outlook.
2. Quindi, apri la cartella Posta in arrivo.
3. Successivamente, passa alla scheda "Visualizza".
4. Successivamente, scegli "Da" nel gruppo "Arrangiamento".
5. Contemporaneamente, tutti gli elementi della posta in arrivo sono stati separati in diversi gruppi in base ai diversi mittenti.
6. Ora, per contare gli articoli da un mittente specifico, puoi selezionare tutti gli articoli nel gruppo correlato e premere il tasto "Invio". Nell'avviso popup, puoi vedere il conteggio.

Ciò significa che è abbastanza semplice, ma i conteggi degli elementi in realtà includono gli altri tipi di elementi, come gli inviti alle riunioni, le richieste di attività e le ricevute, non solo i conteggi delle email. Pertanto, se desideri solo contare le e-mail, puoi invece utilizzare il seguente modo.

Metodo 2: contare le e-mail per mittente con Outlook VBA

1. Per cometart, premi i pulsanti "Alt + F11" in Outlook.
2. Quindi, abilitare "MS Excel Object Library" secondo "Come aggiungere un oggetto Library Riferimento in VBA".
3. Quindi, copia il codice seguente in un modulo inutilizzato.

Sub CountInboxEmailsbySender()
    Dim objDictionary As Object
    Dim objInbox As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim strSender As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim varSenders As Variant
    Dim varItemCounts As Variant
    Dim nLastRow As Integer
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    For i = objInbox.Items.Count To 1 Step -1
        If objInbox.Items(i).Class = olMail Then
           Set objMail = objInbox.Items(i)
           strSender = objMail.SenderEmailAddress
 
           If objDictionary.Exists(strSender) Then
              objDictionary.Item(strSender) = objDictionary.Item(strSender) + 1
           Else
              objDictionary.Add strSender, 1
           End If
        End If
    Next

    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
 
    With objExcelWorksheet
         .Cells(1, 1) = "Sender"
         .Cells(1, 2) = "Count"
    End With
 
    varSenders = objDictionary.Keys
    varItemCounts = objDictionary.Items
 
    For i = LBound(varSenders) To UBound(varSenders)
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
        With objExcelWorksheet
             .Cells(nLastRow, 1) = varSenders(i)
             .Cells(nLastRow, 2) = varItemCounts(i)
        End With
    Next
 
    objExcelWorksheet.Columns("A:B").AutoFit
End Sub

3. Successivamente, premere il tasto "F5".
4. Al termine della macro, verrà visualizzato un nuovo file Excel.
5. Come puoi vedere, contiene i conteggi delle email di posta in arrivo da diversi mittenti.

Elimina i frustranti problemi di Outlook

Forse sei mai stato soggetto a molti problemi nel tuo Outlook. Per affrontarli in modo efficace, potresti desiderare un modo versatile e potente. Eppure, in realtà, non esiste un tale metodo. Quello che puoi fare è stare attento alle tue operazioni in Outlook ed eseguire backup regolari. Ovviamente, se possibile, ti suggeriamo di tenere a portata di mano uno strumento di riparazione esperto, come DataNumen Outlook Repair. Può risolvere vari problemi PST e riparare PST corrotto file come un gioco da ragazzi.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare Sql Server e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com