Kako brzo dobiti ukupan broj e-poruka od određenog pošiljaoca u Outlooku

Ponekad ćete možda htjeti da izbrojite ukupan broj e-poruka od određenog pošiljatelja u Outlooku. Ovaj članak će vam predstaviti zgodan način da brzo dobijete ukupan broj pomoću Outlook VBA.

Iz nekih razloga, kao što je statistika podataka, možda ćete morati da prebrojite ukupan broj e-poruka od određenog pošiljaoca. Bez ikakve sumnje, ako imate mnogo mailova, ručno brojanje jedne po jedne će biti prilično problematično i sklono greškama. U ovom slučaju, zašto se ne vratiti na VBA? Evo detaljnih operacija i prema VBA kodovima.

Dobijte ukupan broj e-poruka od određenog pošiljaoca u određenoj fascikli

1. Na samom početku pokrenite Outlook i pređite na karticu "Programer".
2. Zatim kliknite na dugme "Visual Basic" ispod ove kartice.
3. Zatim u iskačućem prozoru „Microsoft Visual Basic za aplikacije“ možete otvoriti modul koji nije u upotrebi i zatim kopirati sljedeće VBA kodove u njega.

Sub CountEmailsfromSpecificSenderinCurrentFolder()
    Dim objSelection As Selection
    Dim objSelectedMail As MailItem
    Dim strSenderEmailAddress As String
    Dim objCurrentFolder As Folder
    Dim objItem As Object
    Dim objVariant As Variant
    Dim i As Long
    Dim strPrompt As String
    Dim nResponse As Integer
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    i = 0

    If TypeOf objSelection.Item(1) Is MailItem Then
 
       Set objSelectedMail = objSelection.Item(1)
       strSenderEmailAddress = objSelectedMail.SenderEmailAddress
       Set objCurrentFolder = Outlook.Application.ActiveExplorer.CurrentFolder
 
       For Each objItem In objCurrentFolder.Items
           Set objVariant = objItem
           If (objVariant.Class = olMail) And (objVariant.SenderEmailAddress = strSenderEmailAddress) Then
              i = i + 1
           End If
       Next
    End If
 
    strPrompt = "There are " & i & " emails from " & objSelectedMail.SenderName & " in the current " & objCurrentFolder.Name & " folder."
    nResponse = MsgBox(strPrompt, vbOKOnly + vbInformation, "Count Emails from Specific Sender")
End Sub

4. Zatim zatvorite trenutni prozor da biste se vratili na glavni ekran programa Outlook.
5. Nakon toga, možete nastaviti s dodavanjem novog makroa na alatnu traku za brzi pristup.

• Prvo, kliknite na strelicu nadole na alatnoj traci za brzi pristup i izaberite „Više komandi“.
• Zatim dodajte makro na traku sa alatkama za brzi pristup prateći korake u nizu prikazane na sledećoj slici.

6. Konačno možete isprobati ovo dugme.

• Prvo otvorite određeni folder i odaberite e-poštu od određenog pošiljatelja.
• Zatim kliknite na dugme na traci sa alatkama za brzi pristup.
• Na kraju, dobit ćete poruku koja vam govori broj e-poruka od određenog pošiljatelja u trenutnoj mapi.

Rekurzivno prelazite kroz sve podfoldere

Gornji dio vam samo predstavlja kako da dobijete ukupan broj svih poruka pošte od određenog pošiljaoca u jednom folderu pošte. Ako imate mnogo podfoldera u Inbox-u i želite da uključite i primljene poruke e-pošte u podfoldere, moraćete rekurzivno da nabrojite sve ove podfoldere. U ovom slučaju, možete pogledati još jedan članak na našem blogu – “Kako rekurzivno preći stablo mape u Outlooku putem VBA".

Nikada nemojte vjerovati nepouzdanom Outlook alatu za popravak

Zbog činjenice da je Outlook sklon greškama, pa se mnogi korisnici naviknu na čuvanje Outlook alat za popravku grešaka zgodno. Ali na današnjem tržištu postoji previše takvih nepouzdanih alata. Stoga treba biti oprezan pri odabiru. Jednom kada pokušate da ispravite greške pomoću nepouzdana alata, velike su šanse da će to dovesti do gorih situacija.

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 popravka mdf problema i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com