Kako brzo dobiti ukupan broj privitaka u odabranim Outlook e-porukama

Jeste li ikada morali prebrojati privitke e-pošte u odabranim e-porukama? Bit će zamorno ako ih ručno brojite. Ovdje ćemo vam pomoći da brojanje učinite mnogo lakšim i bržim uz Outlook VBA.

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

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

Brzo dohvatite ukupan broj privitaka u odabranim porukama e-pošte

1. Najprije pokrenite Outlook aplikaciju i idite na karticu “Developer”.
2. Zatim možete kliknuti gumb "Visual Basic". Dovest će vas do prozora "Microsoft Visual Basic za aplikacije".
3. Zatim biste trebali otvoriti novi modul koji nije u upotrebi. Odaberite “Umetni” > “Modul”.
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 s padajućeg popisa odabrati "Više naredbi".
6. Kasnije slijedite korake prikazane na slici ispod.
7. Konačno možete pokušati.

• Nakon odabira nekoliko e-poruka, možete pritisnuti novi gumb na alatnoj traci za brzi pristup. Nakon toga ćete dobiti poruku koja vam govori o broju privitaka u odabranim e-porukama. Izgleda kao sljedeća slika:
• Ali ako odaberete bilo koju stavku koja je podjednako zahtjev za sastanak ili odgovor umjesto e-pošte, dobit ćete upozorenje, kao na slici ispod:

Reagirajte na povremene probleme s Outlookom

Ako ste desetljećima koristili Outlook, sigurno ste se susreli s višestrukim problemima, uključujući Outlook koji ne reagira, Outlook se zamrzava, česte poruke o pogrešci 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, stvoriti novi Outlook profil, popraviti Office i onemogućiti dodatke trećih strana itd. Osim toga, trebali biste imati i moćan alat za popravak u blizini, kao što je DataNumen Outlook Repair. Dobro će doći kada sigurnosne kopije i alat za popravak pristigle pošte zakažu.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti oštećene SQL podatke i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com