Har du nogensinde været forpligtet til at tælle antallet af vedhæftede filer i de valgte e-mails? Det vil være kedeligt, hvis du manuelt tæller dem. Her hjælper vi dig med at gøre tællingen meget nemmere og hurtigere med Outlook VBA.
Af nogle grunde skal du muligvis tælle antallet af vedhæftede filer i Outlook-e-mails. Hvis du blot vil hente antallet af vedhæftede filer i en e-mail, bliver det meget let. Men hvis du ønsker at tælle vedhæftede filer i flere e-mails, vil det være meget besværligt at tælle manuelt. Generelt er en af most almindelige måder er at gemme alle vedhæftede filer i en lokal mappe på din computer. Vælg dem derefter, og Windows Stifinder fortæller dig antallet af de valgte emner i statuslinjen.
Der kan imidlertid ikke benægtes, at denne metode stadig er ret besværlig. Faktisk ved hjælp af Outlook VBA kan du hurtigt få det samlede antal vedhæftede filer i de valgte Outlook-e-mails. Læs videre for at lære de detaljerede VBA-koder og trin.
Få hurtigt det samlede antal vedhæftede filer i valgte e-mails
- Start først Outlook-applikationen, og gå til fanen "Udvikler".
- Derefter kan du klikke på “Visual Basic” -knappen. Det fører dig til vinduet "Microsoft Visual Basic til applikationer".
- Dernæst skal du åbne et nyt modul, der ikke er i brug. Vælg "Indsæt"> "Modul".
- Derefter skal du kopiere og indsætte følgende 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
- Derefter kan du lukke vinduet “Visual Basic” og tilbage til Outlook hovedvindue. Derefter skal du finde og trykke på pil ned i værktøjslinjen Hurtig adgang og vælge “Flere kommandoer” fra rullelisten.
- Senere skal du følge trinene vist i billedet nedenfor.
- Endelig kan du prøve.
- Efter at have valgt flere e-mails kan du trykke på den nye knap i værktøjslinjen Hurtig adgang. Derefter får du en besked, der fortæller dig antallet af vedhæftede filer i valgte e-mails. Det ligner følgende billede:
- Men hvis du vælger nogle emner, der er mødeanmodninger eller svar ens i stedet for e-mails, får du en advarsel som billedet nedenfor:
Reagerer på lejlighedsvise problemer med Outlook
Hvis du har brugt Outlook i årtier, skal du have stødt på flere problemer, herunder Outlook svarer ikke, Outlook fryser, hyppige fejlmeddelelser og Outlook PST-e-mail-korruption og så videre. Har du allerede mestret nogle tricks til at løse dem? Generelt kan du start Outlook i sikker tilstand, opret en ny Outlook-profil, reparer kontor og deaktiver tredjeparts tilføjelsesprogrammer osv. Derudover skal du også have et kraftigt reparationsværktøj i nærheden, såsom DataNumen Outlook Repair. Det vil være nyttigt, når både sikkerhedskopier og reparationsværktøjet til indbakken mislykkes.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparere korrupte SQL-data og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com