Ar kada nors buvo reikalaujama skaičiuoti el. laiškų priedų skaičių pasirinktuose el. laiškuose? Tai bus nuobodu, jei juos suskaičiuosite rankiniu būdu. Čia mes padėsime jums su „Outlook VBA“ skaičiuoti daug lengviau ir greičiau.
Dėl tam tikrų priežasčių gali tekti suskaičiuoti priedų skaičių „Outlook“ el. laiškuose. Jei norite sužinoti tik vieno el. laiško priedų skaičių, tai bus gana paprasta. Tačiau jei norite suskaičiuoti priedus keliuose el. laiškuose, bus labai sunku juos suskaičiuoti rankiniu būdu. Paprastai vienas iš labiausiai paplitusių būdų yra išsaugoti visus priedus vietiniame kompiuterio aplanke. Tada pasirinkite juos, o „Windows Explorer“ būsenos juostoje parodys pasirinktų elementų skaičių.
Tačiau negalima paneigti, kad šis metodas vis dar yra gana sudėtingas. Tiesą sakant, naudodami „Outlook VBA“, galite greitai gauti bendrą pasirinktų „Outlook“ el. laiškų priedų skaičių. Skaitykite toliau, kad sužinotumėte išsamius VBA kodus ir veiksmus.
Greitai gaukite bendrą pasirinktų el. laiškų priedų skaičių
- Pirmiausia paleiskite „Outlook“ programą ir eikite į skirtuką „Kūrėjas“.
- Tada galite spustelėti mygtuką „Visual Basic“. Jis pateks į langą „Microsoft Visual Basic for Applications“.
- Tada turėtumėte atidaryti naują nenaudojamą modulį. Pasirinkite „Įterpti“ > „Modulis“.
- Po to turite nukopijuoti ir įklijuoti šiuos VBA kodus.
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
- Vėliau galite išeiti iš „Visual Basic“ lango ir grįžti į pagrindinį „Outlook“ langą. Tada greitosios prieigos įrankių juostoje turėtumėte rasti ir paspausti rodyklę žemyn ir išskleidžiamajame sąraše pasirinkti „Daugiau komandų“.
- Vėliau atlikite toliau esančiame paveikslėlyje nurodytus veiksmus.
- Pagaliau galite pabandyti.
- Pasirinkę kelis el. laiškus, greitosios prieigos įrankių juostoje galite spustelėti naują mygtuką. Vėliau gausite pranešimą, kuriame bus nurodytas pasirinktų el. laiškų priedų skaičius. Tai atrodo kaip šis paveikslėlis:
- Bet jei pasirinksite bet kokius elementus, kurie yra susitikimo užklausos ar atsakymai, o ne el. laiškai, gausite įspėjimą, kaip parodyta paveikslėlyje žemiau:
Reaguokite į atsitiktines „Outlook“ problemas
Jei „Outlook“ naudojote dešimtmečius, turėjote susidurti su keliomis problemomis, įskaitant „Outlook“ neatsako, „Outlook“ užstrigimą, dažnus klaidų pranešimus ir „Outlook PST“ el. pašto sugadinimas ir taip toliau. Ar jau išmokote kokių nors gudrybių, kaip jas išspręsti? Paprastai tariant, galite paleisti „Outlook“ saugiuoju režimu, sukurti naują „Outlook“ profilį, taisyti „Office“ ir išjungti trečiųjų šalių priedus ir pan. Be to, turėtumėte turėti po ranka galingą taisymo įrankį, pvz., DataNumen Outlook Repair. Tai pravers, kai suges ir atsarginės kopijos, ir gautųjų taisymo įrankis.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sugadintus SQL duomenis ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com