Mussten Sie jemals die Anzahl der E-Mail-Anhänge in ausgewählten E-Mails zählen? Es ist mühsam, wenn Sie sie manuell zählen. Hier helfen wir Ihnen, das Zählen mit Outlook VBA viel einfacher und schneller zu machen.
Aus verschiedenen Gründen kann es nötig sein, die Anzahl der Anhänge in Outlook-E-Mails zu zählen. Die Anzahl der Anhänge in einer einzelnen E-Mail zu ermitteln, ist recht einfach. Möchte man jedoch die Anhänge in mehreren E-Mails zählen, ist das manuelle Zählen sehr aufwendig. Eine der gängigsten Methoden ist, alle Anhänge in einem lokalen Ordner auf dem Computer zu speichern. Anschließend wählt man sie aus, und der Windows Explorer zeigt die Anzahl der ausgewählten Elemente in der Statusleiste an.
Es ist jedoch nicht zu leugnen, dass diese Methode immer noch ziemlich umständlich ist. Mithilfe von Outlook VBA können Sie schnell die Gesamtzahl der Anhänge in den ausgewählten Outlook-E-Mails abrufen. Lesen Sie weiter, um die detaillierten VBA-Codes und -Schritte zu erfahren.
Holen Sie sich schnell die Gesamtzahl der Anhänge in ausgewählten E-Mails
- Starten Sie zunächst die Outlook-Anwendung und wechseln Sie zur Registerkarte "Entwickler".
- Dann können Sie auf die Schaltfläche "Visual Basic" klicken. Sie gelangen zum Fenster "Microsoft Visual Basic für Applikationen".
- Als nächstes sollten Sie ein neues Modul öffnen, das nicht verwendet wird. Wählen Sie "Einfügen"> "Modul".
- Danach müssen Sie die folgenden VBA-Codes kopieren und einfügen.
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
- Anschließend können Sie das Fenster „Visual Basic“ verlassen und zum Outlook-Hauptfenster zurückkehren. Dann sollten Sie den Abwärtspfeil in der Symbolleiste für den Schnellzugriff suchen und drücken und "Weitere Befehle" aus der Dropdown-Liste auswählen.
- Befolgen Sie später die im Bild unten gezeigten Schritte.
- Endlich können Sie es versuchen.
- Nachdem Sie mehrere E-Mails ausgewählt haben, können Sie auf die neue Schaltfläche in der Symbolleiste für den Schnellzugriff klicken. Anschließend erhalten Sie eine Nachricht mit der Anzahl der Anhänge in ausgewählten E-Mails. Es sieht aus wie das folgende Bild:
- Wenn Sie jedoch anstelle von E-Mails Elemente auswählen, bei denen Anforderungen oder Antworten gleichermaßen erfüllt werden, wird eine Warnung angezeigt, wie im folgenden Bild dargestellt:
Reagieren Sie auf gelegentliche Outlook-Probleme
Wenn Sie Outlook jahrzehntelang verwendet haben, müssen mehrere Probleme aufgetreten sein, darunter Outlook reagiert nicht, Outlook friert ein, häufige Fehlermeldungen und Beschädigung von Outlook PST-E-Mails Und so weiter. Kennen Sie schon Tricks, um diese Probleme zu beheben? Im Allgemeinen können Sie Outlook im abgesicherten Modus starten, ein neues Outlook-Profil erstellen, Office reparieren und Drittanbieter-Add-Ins deaktivieren usw. Außerdem sollten Sie ein leistungsstarkes Reparaturtool griffbereit haben, wie zum Beispiel … DataNumen Outlook Repair. Dies ist praktisch, wenn sowohl Sicherungen als auch das Reparaturwerkzeug für den Posteingang fehlschlagen.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Korrupte SQL-Daten reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX