Kako hitro pridobiti skupno število prilog v izbranih e-poštnih sporočilih Outlook

Ste že kdaj morali izšteti število e-poštnih prilog v izbranih e-poštnih sporočilih? Dolgočasno bo, če jih boste ročno prešteli. Tu vam bomo pomagali olajšati in pospešiti štetje z Outlook VBA.

Iz nekaterih razlogov boste morda morali prešteti število prilog v e-poštnih sporočilih programa Outlook. Če želite le dobiti število prilog v enem e-poštnem sporočilu, bo to precej enostavno. Če pa želite prešteti priloge v več e-poštnih sporočilih, bo ročno štetje zelo težavno. Na splošno je eden najpogostejših načinov shranjevanje vseh prilog v lokalno mapo v računalniku. Nato jih izberite in Raziskovalec vam bo v vrstici stanja prikazal število izbranih elementov.

Vendar ni mogoče zanikati, da je ta metoda še vedno precej okorna. Pravzaprav lahko s pomočjo programa Outlook VBA hitro pridobite skupno število prilog v izbranih Outlookovih e-poštnih sporočilih. Preberite, če želite izvedeti podrobne kode in korake VBA.

Hitro pridobite skupno število prilog v izbranih e-poštnih sporočilih

1. Najprej zaženite aplikacijo Outlook in pojdite na zavihek »Razvijalec«.
2. Nato lahko kliknete gumb »Visual Basic«. Odprlo vas bo okno »Microsoft Visual Basic for Applications«.
3. Nato odprite nov modul, ki ni v uporabi. Izberite “Vstavi”> “Modul”.
4. Po tem morate vanj kopirati in prilepiti naslednje kode VBA.

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. Nato lahko zaprete okno »Visual Basic« in se vrnete v glavno okno programa Outlook. Nato v orodni vrstici za hitri dostop poiščite in pritisnite puščico navzdol in na spustnem seznamu izberite »Več ukazov«.
6. Kasneje sledite korakom, prikazanim na spodnji sliki.
7. Končno lahko poskusite.

• Po izbiri več e-poštnih sporočil lahko v orodni vrstici za hitri dostop pritisnete nov gumb. Nato boste prejeli sporočilo, ki vam pove število prilog v izbranih e-poštnih sporočilih. Videti je takole na naslednji sliki:
• Če pa namesto e-pošte izberete kateri koli element, ki je podoben zahtevam za sestanke ali odzivom, boste prejeli opozorilo, kot je spodnja slika:

Odzovite se na občasne težave z Outlookom

Če Outlook uporabljate desetletja, ste se verjetno srečali z več težavami, vključno s tem, da se Outlook ne odziva, zamrznitev Outlooka, pogosta sporočila o napakah in Poškodba e-pošte v programu Outlook PST in tako naprej. Ste že osvojili kakšne trike za njihovo odpravo? Na splošno lahko Outlook zaženete v varnem načinu, ustvarite nov Outlookov profil, popravite Office in onemogočite dodatke drugih ponudnikov itd. Poleg tega imejte pri roki tudi močno orodje za popravilo, kot je na primer DataNumen Outlook Repair. Prišel bo prav, ko bodo varnostne kopije in orodje za popravilo nabiralnika odpovedali.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo poškodovanih podatkov SQL in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com