Kuinka saada nopeasti liitteiden kokonaismäärä valituissa Outlook-sähköpostiviesteissä

Onko sinua koskaan vaadittu laskemaan valituissa sähköpostiviesteissä olevien sähköpostiliitteiden määrä? Se on tylsää, jos lasket ne manuaalisesti. Täällä autamme sinua tekemään laskemisesta paljon helpompaa ja nopeampaa Outlook VBA:n avulla.

Jostain syystä saatat joutua laskemaan Outlook-sähköpostien liitteiden määrän. Jos haluat vain saada selville yhden sähköpostin liitteiden määrän, se on huomattavasti helppoa. Mutta jos haluat laskea useiden sähköpostien liitteet, niiden laskeminen manuaalisesti on erittäin hankalaa. Yleisesti ottaen yksi yleisimmistä tavoista on tallentaa kaikki liitteet paikalliseen kansioon tietokoneellasi. Valitse sitten ne, ja Windowsin Resurssienhallinta näyttää valittujen kohteiden määrän tilarivillä.

Ei kuitenkaan voida kiistää, että tämä menetelmä on edelleen melko hankala. Itse asiassa Outlook VBA:n avulla voit nopeasti saada valittujen Outlook-sähköpostien liitteiden kokonaismäärän. Lue yksityiskohtaiset VBA-koodit ja vaiheet.

Hanki nopeasti valituissa sähköpostiviesteissä olevien liitteiden kokonaismäärä

1. Käynnistä ensin Outlook-sovellus ja siirry "Kehittäjä"-välilehteen.
2. Sitten voit napsauttaa "Visual Basic" -painiketta. Se vie sinut "Microsoft Visual Basic for Applications" -ikkunaan.
3. Seuraavaksi sinun pitäisi avata uusi moduuli, joka ei ole käytössä. Valitse "Lisää" > "Moduuli".
4. Sen jälkeen sinun on kopioitava ja liitettävä seuraavat VBA-koodit siihen.

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. Tämän jälkeen voit poistua Visual Basic -ikkunasta ja palata Outlookin pääikkunaan. Sitten sinun pitäisi löytää ja painaa alanuolta Pikakäyttötyökalupalkissa ja valita "Lisää komentoja" avattavasta luettelosta.
6. Noudata myöhemmin alla olevan kuvan ohjeita.
7. Lopuksi voit kokeilla.

• Kun olet valinnut useita sähköpostiviestejä, voit painaa pikatyökalupalkin uusi-painiketta. Tämän jälkeen saat viestin, joka kertoo valituissa sähköpostiviesteissä olevien liitteiden lukumäärän. Se näyttää seuraavalta kuvalta:
• Mutta jos valitset kohteet, jotka ovat yhtä lailla kokouspyyntöjä tai vastauksia sähköpostien sijaan, saat alla olevan kuvan kaltaisen hälytyksen:

Reagoi satunnaisiin Outlook-ongelmiin

Jos olet käyttänyt Outlookia vuosikymmeniä, sinulla on täytynyt havaita useita ongelmia, kuten Outlook ei vastaa, Outlookin jumiutuminen, toistuvat virheilmoitukset ja Outlook PST -sähköpostin korruptio ja niin edelleen. Oletko jo oppinut mitään kikkoja niiden ratkaisemiseksi? Yleisesti ottaen voit käynnistää Outlookin vikasietotilassa, luoda uuden Outlook-profiilin, korjata Officen ja poistaa käytöstä kolmannen osapuolen lisäosat jne. Lisäksi sinun tulisi pitää tehokas korjaustyökalu saatavilla, kuten DataNumen Outlook Repair. Se on hyödyllinen, kun sekä varmuuskopiointi että postilaatikon korjaustyökalu epäonnistuvat.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjata vioittuneet SQL-tiedot ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com