Moet u ooit het aantal e-mailbijlagen in geselecteerde e-mails tellen? Het zal vervelend zijn als u ze handmatig telt. Hier zullen we u helpen het tellen veel gemakkelijker en sneller te maken met Outlook VBA.
Om verschillende redenen kan het nodig zijn om het aantal bijlagen in Outlook-e-mails te tellen. Als u alleen het aantal bijlagen in één e-mail wilt weten, is dat vrij eenvoudig. Maar als u de bijlagen in meerdere e-mails wilt tellen, is handmatig tellen erg omslachtig. Over het algemeen is een van de meest gebruikte methoden om alle bijlagen op te slaan in een lokale map op uw computer. Selecteer ze vervolgens en Windows Verkenner toont u het aantal geselecteerde items in de statusbalk.
Het valt echter niet te ontkennen dat deze methode nog steeds behoorlijk omslachtig is. Eigenlijk kunt u via Outlook VBA snel het totale aantal bijlagen in de geselecteerde Outlook-e-mails opvragen. Lees verder om de gedetailleerde VBA-codes en -stappen te leren.
Krijg snel het totale aantal bijlagen in geselecteerde e-mails
- Start eerst de Outlook-applicatie en ga naar het tabblad "Ontwikkelaar".
- Vervolgens kunt u op de knop "Visual Basic" klikken. Het brengt u naar het venster "Microsoft Visual Basic for Applications".
- Vervolgens moet u een nieuwe module openen die niet in gebruik is. Selecteer "Invoegen"> "Module".
- Daarna moet u de volgende VBA-codes erin kopiëren en plakken.
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
- Vervolgens kunt u het “Visual Basic” -venster verlaten en teruggaan naar het hoofdvenster van Outlook. Dan zou je de pijl naar beneden moeten zoeken en indrukken in de werkbalk Snelle toegang en "Meer opdrachten" selecteren in de vervolgkeuzelijst.
- Volg later de stappen die in de onderstaande afbeelding worden weergegeven.
- Eindelijk kun je het proberen.
- Nadat u verschillende e-mails heeft geselecteerd, kunt u op de nieuwe knop in de werkbalk Snelle toegang klikken. Vervolgens krijgt u een bericht met het aantal bijlagen in geselecteerde e-mails. Het ziet eruit als de volgende afbeelding:
- Maar als u items selecteert die zowel vergaderverzoeken als reacties zijn in plaats van e-mails, krijgt u een melding, zoals op de onderstaande afbeelding:
Reageer op incidentele Outlook-problemen
Als u Outlook al decennia gebruikt, moet u meerdere problemen hebben ondervonden, waaronder Outlook reageert niet, Outlook loopt vast, frequente foutmeldingen en Outlook PST-e-mailcorruptie enzovoort. Heb je al trucs onder de knie om deze problemen aan te pakken? Over het algemeen kun je Outlook in de veilige modus starten, een nieuw Outlook-profiel aanmaken, Office repareren en add-ins van derden uitschakelen, enzovoort. Daarnaast is het handig om een krachtige reparatietool bij de hand te hebben, zoals... DataNumen Outlook Repair. Het is handig wanneer zowel back-ups als de reparatietool voor het inbox mislukken.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel corrupte SQL-gegevens en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com