Kā ātri iegūt kopējo pielikumu skaitu atlasītajos Outlook e-pastos

Vai jums kādreiz ir bijis pienākums saskaitīt e-pasta pielikumu skaitu atlasītajos e-pastos? Tas būs garlaicīgs, ja jūs tos manuāli saskaitīsit. Šeit mēs jums palīdzēsim daudz vienkāršāk un ātrāk veikt skaitīšanu, izmantojot programmu Outlook VBA.

Dažu iemeslu dēļ jums var būt nepieciešams saskaitīt pielikumu skaitu Outlook e-pastos. Ja vēlaties uzzināt tikai viena e-pasta pielikumu skaitu, tas būs ievērojami vienkāršāk. Bet, ja vēlaties saskaitīt pielikumus vairākos e-pastos, manuāla skaitīšana būs ļoti apgrūtinoša. Parasti viens no visizplatītākajiem veidiem ir saglabāt visus pielikumus lokālā mapē datorā. Pēc tam atlasiet tos, un Windows Explorer statusa joslā parādīs atlasīto vienumu skaitu.

Tomēr nevar noliegt, ka šī metode joprojām ir diezgan apgrūtinoša. Faktiski, izmantojot Outlook VBA, jūs varat ātri iegūt kopējo pielikumu skaitu atlasītajos Outlook e-pastos. Lasiet tālāk, lai uzzinātu detalizētus VBA kodus un darbības.

Ātri iegūstiet kopējo pielikumu skaitu atlasītajos e-pastos

1. Sākumā palaidiet programmu Outlook un dodieties uz cilni “Izstrādātājs”.
2. Tad jūs varat noklikšķināt uz pogas “Visual Basic”. Tas atvērs logu “Microsoft Visual Basic for Applications”.
3. Pēc tam jums vajadzētu atvērt jaunu neizmantotu moduli. Atlasiet “Insert”> “Module”.
4. Pēc tam jums ir jākopē un jāielīmē šādi VBA kodi.

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. Pēc tam jūs varat iziet no loga “Visual Basic” un atgriezties Outlook galvenajā logā. Pēc tam ātrās piekļuves rīkjoslā jāatrod un jānospiež lejupvērstā bultiņa un nolaižamajā sarakstā atlasiet “Vairāk komandu”.
6. Vēlāk veiciet darbības, kas parādītas zemāk esošajā attēlā.
7. Beidzot jūs varat izmēģināt.

• Pēc vairāku e-pasta ziņojumu atlasīšanas ātrās piekļuves rīkjoslā varat nospiest jauno pogu. Pēc tam jūs saņemsit ziņojumu, kurā būs norādīts izvēlēto e-pasta ziņojumu pielikumu skaits. Izskatās, ka šāds attēls:
• Bet, ja e-pastu vietā atlasīsit vienumus, kas ir līdzīgi sapulces pieprasījumiem vai atbildēm, jūs saņemsit brīdinājumu, piemēram, zemāk redzamo attēlu:

Reaģējiet uz neregulārām Outlook problēmām

Ja esat izmantojis programmu Outlook gadu desmitiem, jums, iespējams, ir radušās vairākas problēmas, tostarp Outlook nereaģēšana, Outlook iesaldēšana, bieži kļūdu ziņojumi un Outlook PST e-pasta korupcija un tā tālāk. Vai esat jau apguvis kādus trikus, kā tos novērst? Parasti varat startēt programmu Outlook drošajā režīmā, izveidot jaunu Outlook profilu, labot Office un atspējot trešo pušu pievienojumprogrammas utt. Turklāt jums vajadzētu turēt pa rokai arī spēcīgu labošanas rīku, piemēram, DataNumen Outlook Repair. Tas noderēs, ja neizdosies gan dublējumi, gan iesūtnes labošanas rīks.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot korumpētus SQL datus un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar