Så här får du snabbt det totala antalet bilagor i valda Outlook-e-postmeddelanden

Har du någonsin varit skyldig att räkna antalet e-postbilagor i valda e-postmeddelanden? Det blir tråkigt om du räknar dem manuellt. Här hjälper vi dig att göra räkningen mycket enklare och snabbare med Outlook VBA.

Av vissa skäl kan du behöva räkna antalet bilagor i Outlook-e-postmeddelanden. Om du bara vill få antalet bilagor i ett e-postmeddelande blir det väldigt enkelt. Men om du vill räkna bilagorna i flera e-postmeddelanden kommer det att vara mycket besvärligt att räkna manuellt. I allmänhet är en av most vanliga sätt är att spara alla bilagor till en lokal mapp på din dator. Välj dem sedan och Windows Explorer kommer att berätta antalet valda objekt i statusfältet.

Det kan emellertid inte förnekas att denna metod fortfarande är ganska besvärlig. Med Outlook VBA kan du faktiskt snabbt få det totala antalet bilagor i de valda Outlook-e-postmeddelandena. Läs vidare för att lära dig detaljerade VBA-koder och steg.

Få snabbt det totala antalet bilagor i valda e-postmeddelanden

1. Starta först Outlook-applikationen och gå till fliken "Utvecklare".
2. Sedan kan du klicka på “Visual Basic” -knappen. Det tar dig till fönstret "Microsoft Visual Basic for Applications".
3. Därefter ska du öppna en ny modul som inte används. Välj "Infoga"> "Modul".
4. Därefter måste du kopiera och klistra in följande VBA-koder i den.

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. Därefter kan du stänga fönstret “Visual Basic” och tillbaka till huvudfönstret i Outlook. Då bör du hitta och trycka på nedåtpilen i snabbåtkomstverktygsfältet och välja "Fler kommandon" i listrutan.
6. Följ senare stegen som visas i bilden nedan.
7. Äntligen kan du prova.

• Efter att ha valt flera e-postmeddelanden kan du trycka på den nya knappen i verktygsfältet Snabbåtkomst. Därefter får du ett meddelande som berättar antalet bilagor i valda e-postmeddelanden. Det ser ut som följande bild:
• Men om du väljer några objekt som är mötesförfrågningar eller svar lika i stället för e-postmeddelanden får du en varning, som bilden nedan:

Reagera på tillfälliga Outlook-problem

Om du har använt Outlook i årtionden måste du ha stött på flera problem, inklusive Outlook som inte svarar, Outlook-frysning, frekventa felmeddelanden och Outlook PST-korruption och så vidare. Har du redan behärskat några knep för att ta itu med dem? Generellt sett kan du start Outlook i säkert läge, skapa en ny Outlook-profil, reparera kontor och inaktivera tillägg från tredje part osv. Dessutom bör du också ha ett kraftfullt reparationsverktyg i närheten, t.ex. DataNumen Outlook Repair. Det kommer att vara till nytta när både säkerhetskopior och reparationsverktyget för inkorgen misslyckas.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera korrupta SQL-data och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com