Kuidas kiiresti hankida valitud Outlooki meilide manuste koguarv

Kas olete kunagi olnud kohustatud loendama valitud meilide manuste arvu? See on tüütu, kui te neid käsitsi loendate. Siin aitame teil Outlook VBA abil loendamise palju lihtsamaks ja kiiremaks muuta.

Mõnel põhjusel peate võib-olla lugema Outlooki meilides manuste arvu. Kui soovite lihtsalt teada saada ühe meili manuste arvu, on see märkimisväärselt lihtne. Aga kui soovite loendada manuseid mitmes meilis, on käsitsi loendamine väga tülikas. Üldiselt on üks levinumaid viise salvestada kõik manused oma arvuti kohalikku kausta. Seejärel valige need ja Windows Explorer näitab teile olekuribal valitud üksuste arvu.

Siiski ei saa eitada, et see meetod on endiselt üsna tülikas. Tegelikult saate Outlook VBA abil kiiresti hankida valitud Outlooki meilide manuste koguarvu. Üksikasjalike VBA koodide ja sammude õppimiseks lugege edasi.

Hankige kiiresti valitud meilide manuste koguarv

1. Kõigepealt käivitage Outlooki rakendus ja minge vahekaardile "Arendaja".
2. Seejärel saate klõpsata nupul "Visual Basic". See viib teid "Microsoft Visual Basic for Applications" aknasse.
3. Järgmisena peaksite avama uue mooduli, mida ei kasutata. Valige "Sisesta" > "Moodul".
4. Pärast seda peate sellesse kopeerima ja kleepima järgmised VBA-koodid.

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. Seejärel saate Visual Basicu aknast väljuda ja tagasi Outlooki peaaknasse. Seejärel peaksite kiirpääsu tööriistaribal leidma ja vajutama allanoolt ning valima ripploendist "Veel käske".
6. Hiljem järgige alloleval pildil näidatud samme.
7. Lõpuks saate proovida.

• Pärast mitme meili valimist võite kiirpääsu tööriistaribal vajutada uut nuppu. Seejärel saate teate, mis ütleb teile valitud e-kirjade manuste arvu. See näeb välja nagu järgmine pilt:
• Kuid kui valite e-kirjade asemel mõne üksuse, mis on samamoodi koosolekukutsed või vastused, saate hoiatuse, nagu alloleval pildil:

Reageerige aeg-ajalt esinevatele väljavaateprobleemidele

Kui olete Outlooki aastakümneid kasutanud, peab teil olema esinenud mitmeid probleeme, sealhulgas Outlook ei reageeri, Outlooki hangumine, sagedased veateated ja Outlook PST e-posti rikkumine ja nii edasi. Kas olete juba omandanud mingeid nippe nende lahendamiseks? Üldiselt saate Outlooki käivitada turvarežiimis, luua uue Outlooki profiili, parandada Office'i ja keelata kolmandate osapoolte lisandmoodulid jne. Lisaks peaksite käepärast hoidma ka võimsat parandustööriista, näiteks DataNumen Outlook Repair. See on kasulik, kui nii varukoopiad kui ka postkasti parandamise tööriist ebaõnnestuvad.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud SQL-andmete parandamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom