Kako brzo dobiti ukupan broj priloga u odabranim Outlook porukama e-pošte

Da li se od vas ikada tražilo da prebrojite broj priloga e-pošte u odabranim e-porukama? Biće dosadno ako ih ručno prebrojite. Ovdje ćemo vam pomoći da brojenje učinite mnogo lakšim i bržim uz Outlook VBA.

Iz nekog razloga, možda ćete morati prebrojati broj priloga u Outlook e-porukama. Ako jednostavno želite dobiti broj priloga u jednoj e-poruci, to će biti znatno lakše. Ali ako želite prebrojati priloge u nekoliko e-poruka, bit će vrlo teško ručno brojati. Općenito, jedan od najčešćih načina je spremanje svih priloga u lokalnu mapu na vašem računaru. Zatim ih odaberite, a Windows Explorer će vam prikazati broj odabranih stavki u statusnoj traci.

Međutim, ne može se poreći da je ova metoda još uvijek prilično glomazna. Zapravo, pomoću Outlook VBA možete brzo dobiti ukupan broj priloga u odabranim Outlook imejlovima. Čitajte dalje da biste saznali detaljne VBA kodove i korake.

Brzo saznajte ukupan broj priloga u odabranim porukama e-pošte

1. Prvo pokrenite Outlook aplikaciju i idite na karticu „Developer“.
2. Zatim možete kliknuti na dugme "Visual Basic". Dovest će vas do prozora „Microsoft Visual Basic za aplikacije“.
3. Zatim biste trebali otvoriti novi modul koji se ne koristi. Odaberite “Insert” > “Module”.
4. Nakon toga, morate kopirati i zalijepiti sljedeće VBA kodove u njega.

Sub CountAttachmentsinSelectedEmails()
    Dim olSel As Selection
    Dim oMail As Object
    Dim AttCount As Long
    Dim strMsg As String
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each oMail In olSel
        'To confirm if the selected items are all emails
        If oMail.Class <> olMail Then
           strMsg = "Please select mail items only!"
           nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
           Exit Sub
        End If
        'Get the total number of the attachments in selected emails
        AttCount = oMail.Attachments.Count + AttCount
    Next
 
    strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
    nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub

5. Nakon toga, možete izaći iz prozora „Visual Basic“ i vratiti se u glavni prozor programa Outlook. Zatim biste trebali pronaći i pritisnuti strelicu prema dolje na alatnoj traci za brzi pristup i odabrati „Više naredbi“ sa padajuće liste.
6. Kasnije slijedite korake prikazane na slici ispod.
7. Konačno možete probati.

• Nakon što odaberete nekoliko e-poruka, možete pritisnuti novo dugme na traci sa alatkama za brzi pristup. Nakon toga ćete dobiti poruku koja vam govori o broju priloga u odabranim e-porukama. Izgleda kao sljedeća slika:
• Ali ako odaberete bilo koje stavke koje su zahtjevi za sastanke ili odgovori umjesto e-poruka, dobit ćete upozorenje, kao na slici ispod:

Reagirajte na povremene probleme sa Outlookom

Ako ste Outlook koristili decenijama, sigurno ste naišli na više problema, uključujući nereagiranje Outlooka, zamrzavanje Outlooka, česte poruke o greškama i Outlook PST oštećenje e-pošte i tako dalje. Jeste li već savladali neke trikove za njihovo rješavanje? Općenito govoreći, možete pokrenuti Outlook u sigurnom načinu rada, kreirati novi Outlook profil, popraviti Office i onemogućiti dodatke trećih strana itd. Osim toga, trebali biste imati i moćan alat za popravak pri ruci, kao što je DataNumen Outlook Repair. Dobro će doći kada i rezervne kopije i alat za popravku prijemnog sandučeta ne uspiju.

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 popraviti oštećene SQL podatke i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com