2 metode za brzo brojanje e-pošte po pošiljaocu u vašem Outlooku

Ako želite da brojite e-poruke po pošiljaocima, možete pogledati ovaj članak. Ovdje ćemo vam izložiti 2 brza pristupa.

Da biste saznali koji je najaktivniji pošiljatelj, možda biste željeli brojati e-poruke po pošiljatelju. Iako Outlook ne nudi direktnu funkciju za ovo, i dalje možete potražiti neka rješenja, kao što je sljedeća Metoda 1. Ako mislite da je Metoda 1 previše zamorna, možete se odlučiti za Metodu 2. Mnogo je efikasnija jer koristi VBA za brzo brojanje e-poruka po pošiljatelju i izvoz brojača u Excel. Sada detaljno pročitajte ova dva načina. Ovdje ćemo uzeti e-poruke u Inboxu kao primjer.

Metoda 1: Dobijte brojače nakon grupisanja stavki prema polju „Od“.

1. Za početak pokrenite Outlook aplikaciju.
2. Zatim otvorite folder prijemnog sandučeta.
3. Zatim se prebacite na karticu "Prikaz".
4. Nakon toga, odaberite “Od” u grupi “Aranžman”.
5. Sve stavke prijemnog sandučeta odjednom su razdvojene u različite grupe prema različitim pošiljaocima.
6. Sada, da biste prebrojali stavke od određenog pošiljaoca, možete odabrati sve stavke u povezanoj grupi i pritisnuti tipku “Enter”. U iskačućem upozorenju možete vidjeti broj.

To znači da je prilično jednostavno, ali broj stavki zapravo uključuje druge vrste stavki, kao što su pozivnice za sastanke, zahtjevi za zadatke i priznanice, a ne samo broj e-pošte. Stoga, ako želite samo brojati e-poštu, umjesto toga možete koristiti sljedeći način.

Metod 2: Brojite e-poštu po pošiljaocu pomoću Outlook VBA

1. Za početak, pritisnite tipke "Alt + F11" u Outlooku.
2. Zatim omogućite „MS Excel Object Library“ prema uputstvu „Kako dodati referencu biblioteke objekata u VBA".
3. Zatim kopirajte donji kod u nekorišteni modul.

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. Nakon toga, pritisnite dugme "F5".
4. Kada se makro završi, prikazat će se nova Excel datoteka.
5. Kao što možete vidjeti, sadrži broj primljenih poruka e-pošte od različitih pošiljatelja.

Uklonite frustrirajuće probleme sa Outlookom

Možda ste ikada bili podložni mnogim problemima u svom Outlooku. Da biste ih efikasno riješili, možda žudite za svestranim i moćnim načinom. Ipak, u stvari, takva metoda ne postoji. Ono što možete učiniti je da se čuvate vlastitih operacija u Outlooku i redovno pravite sigurnosne kopije. Naravno, ako je moguće, predlažemo da bolje držite pri ruci iskusan alat za popravku, npr DataNumen Outlook Repair. Može popraviti različite probleme sa PST-om i popraviti ih corrupt PST fajl kao povetarac.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporavi se Sql Server i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com