2 metode pentru a număra rapid e-mailurile după expeditor în Outlook

Dacă doriți să numărați e-mailurile după expeditor, puteți consulta acest articol. Aici vă vom expune 2 abordări rapide.

Pentru a cunoaște cel mai activ expeditor pentru dvs., puteți număra e-mailurile după expeditor. Deși Outlook nu oferă o funcție directă pentru acest lucru, puteți căuta totuși câteva soluții, cum ar fi următoarea Metodă 1. Dacă considerați că Metoda 1 este prea plictisitoare, puteți opta pentru Metoda 2. Este mult mai eficientă, deoarece folosește VBA pentru a număra rapid e-mailurile după expeditor și a exporta numărul în Excel. Acum citiți mai departe cele două metode în detaliu. Aici vom lua ca exemplu e-mailurile din Inbox.

Metoda 1: obțineți numărătoare după gruparea articolelor după câmpul „De la”.

1. Pentru început, lansați aplicația Outlook.
2. Apoi, deschideți folderul Inbox.
3. Apoi, comutați la fila „Vizualizare”.
4. Ulterior, alegeți „De la” în grupul „Aranjament”.
5. Deodată, toate articolele din căsuța de e-mail au fost separate în grupuri diferite, conform diferiților expeditori.
6. Acum, pentru a număra articolele de la un anumit expeditor, puteți selecta toate articolele din grupul aferent și apăsați tasta „Enter”. În avertismentul pop-up, puteți vedea numărul.

Acest lucru înseamnă că este destul de ușor, dar numărul de articole include de fapt și celelalte tipuri de articole, cum ar fi invitațiile la întâlniri, solicitările de sarcini și chitanțele, nu numai numărul de e-mailuri. Astfel, dacă doriți doar să numărați e-mailurile, puteți utiliza în schimb următoarea modalitate.

Metoda 2: Numărați e-mailurile după expeditor cu Outlook VBA

1. Pentru început, apăsați tastele „Alt + F11” în Outlook.
2. Apoi, activați „Biblioteca de obiecte MS Excel” conform „Cum se adaugă o referință la o bibliotecă de obiecte în VBA".
3. Apoi, copiați codul de mai jos într-un modul neutilizat.

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. După aceea, apăsați butonul „F5”.
4. Când macro-ul se termină, va fi afișat un nou fișier Excel.
5. După cum puteți vedea, conține numărul de e-mailuri primite de la diferiți expeditori.

Eliminați problemele frustrante ale Outlook

Poate că ați fost supus vreodată la multe probleme în Outlook. Pentru a le aborda în mod eficient, s-ar putea să tânjiți după un mod versatil și puternic. Cu toate acestea, de fapt, nu există o astfel de metodă. Ceea ce poți face este să te ferești de propriile operațiuni în Outlook și să faci copii de rezervă regulate. Desigur, dacă este posibil, vă sugerăm să aveți la îndemână un instrument de reparare experimentat, cum ar fi DataNumen Outlook Repair. Poate rezolva diverse probleme PST și poate repara PST corupt dosar ca o briză.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera Sql Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com