Ako rýchlo získať celkový počet príloh vo vybraných e-mailoch programu Outlook

Už sa od vás vyžadovalo, aby ste vo vybraných e-mailoch spočítali počet príloh e-mailov? Bude to namáhavé, ak ich spočítate ručne. Tu vám pomôžeme výrazne uľahčiť a zrýchliť počítanie pomocou aplikácie Outlook VBA.

Z niektorých dôvodov možno budete musieť spočítať počet príloh v e-mailoch programu Outlook. Ak chcete získať počet príloh iba v jednom e-maile, bude to značne jednoduché. Ak však chcete spočítať prílohy vo viacerých e-mailoch, manuálne počítanie bude veľmi zložité. Vo všeobecnosti je jedným z najbežnejších spôsobov uloženie všetkých príloh do lokálneho priečinka v počítači. Potom ich vyberte a Prieskumník systému Windows vám v stavovom riadku zobrazí počet vybratých položiek.

Nemožno však poprieť, že táto metóda je stále dosť ťažkopádna. V skutočnosti pomocou aplikácie Outlook VBA môžete rýchlo získať celkový počet príloh vo vybraných e-mailoch programu Outlook. Čítajte ďalej a dozviete sa podrobné kódy a kroky VBA.

Rýchlo získajte celkový počet príloh vo vybraných e-mailoch

1. Najskôr spustite aplikáciu Outlook a prejdite na kartu Vývojár.
2. Potom môžete kliknúť na tlačidlo „Visual Basic“. Dostanete sa do okna „Microsoft Visual Basic for Applications“.
3. Ďalej by ste mali otvoriť nový nepoužívaný modul. Vyberte „Vložiť“> „Modul“.
4. Potom musíte do neho skopírovať a prilepiť nasledujúce kódy 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. Následne môžete opustiť okno „Visual Basic“ a späť do hlavného okna Outlooku. Potom by ste mali nájsť a stlačiť šípku nadol na paneli s nástrojmi Rýchly prístup a vybrať z rozbaľovacieho zoznamu možnosť „Viac príkazov“.
6. Neskôr postupujte podľa pokynov na obrázku nižšie.
7. Nakoniec to môžete vyskúšať.

• Po výbere niekoľkých e-mailov môžete kliknúť na nové tlačidlo na paneli s nástrojmi Rýchly prístup. Následne dostanete správu, ktorá vám oznámi počet príloh vo vybraných e-mailoch. Vyzerá to na nasledujúcom obrázku:
• Ak ale namiesto e-mailov vyberiete akékoľvek položky, ktoré sú podobnými žiadosťami o schôdzku alebo odpoveďou, zobrazí sa upozornenie, ako napríklad na obrázku nižšie:

Reagujte na občasné problémy s programom Outlook

Ak ste Outlook používali už celé desaťročia, museli ste sa stretnúť s viacerými problémami, napríklad s Outlookom, ktorý nereaguje, zmrazením Outlooku, častými chybovými hláseniami a Poškodenie e-mailu programu Outlook PST a tak ďalej. Už ste zvládli nejaké triky, ako ich riešiť? Vo všeobecnosti môžete spustiť Outlook v núdzovom režime, vytvoriť nový profil v Outlooku, opraviť balík Office a zakázať doplnky tretích strán atď. Okrem toho by ste mali mať po ruke aj silný nástroj na opravu, ako napríklad DataNumen Outlook Repair. Bude sa hodiť, keď zlyhajú zálohy aj nástroj na opravu doručenej pošty.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť poškodené údaje SQL a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S