Wenn Sie schnell die Anzahl der Anhänge in jeder E-Mail in der E-Mail-Liste ermitteln möchten, können Sie den VBA-Code in diesem Artikel verwenden. Die Anhänge in jeder eingehenden E-Mail werden automatisch gezählt und in einer neuen Spalte angezeigt.
Einige Benutzer müssen häufig die E-Mail-Anhänge zählen. Erstellen und aktivieren Sie in diesem Szenario eine exklusive Spalte für die Anzeige der Anzahl der Anhänge. Im Folgenden erfahren Sie, wie Sie Outlook veranlassen, die E-Mail-Anhänge automatisch zu zählen und die Anzahl in einer solchen neuen Spalte anzuzeigen.
Anzahl der Anhänge in der E-Mail-Liste anzeigen
- Starten Sie zunächst Ihre Outlook-Anwendung.
- Drücken Sie dann im Outlook-Hauptfenster die Tasten „Alt + F11“.
- Als Nächstes müssen Sie im neuen Outlook VBA-Editorfenster ein Modul öffnen, das nicht verwendet wird.
- Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in dieses Modul ein.
Sub AutoCountAttachments(objMail As Outlook.MailItem)
Dim objAttachments As Outlook.Attachments
Dim objProperties As Outlook.UserProperties
Dim objProperty As Outlook.UserProperty
Dim strPropertyName As String
Set objAttachments = objMail.Attachments
strPropertyName = "Attachment Count"
Set objProperties = objMail.UserProperties
'Check if there is already a column in this name
Set objProperty = objProperties.Find(strPropertyName, True)
If objProperty Is Nothing Then
'If not, add this column
Set objProperty = objProperties.Add(strPropertyName, olText, True)
End If
'Set the column value equal to the count of attachments
objProperty.value = objAttachments.Count
objMail.Save
End Sub
- Danach können Sie das aktuelle Fenster "Microsoft Visual Basic für Applikationen" schließen.
- Später müssen Sie eine neue Regel erstellen, um dieses Skript für jede eingehende E-Mail auszuführen.
- Gehen Sie zunächst zum Menü "Datei" und klicken Sie auf die Schaltfläche "Regeln und Warnungen verwalten" auf der Registerkarte "Info".
- Klicken Sie dann im neuen Dialogfeld auf die Schaltfläche "Neue Regel".
- Wählen Sie im nachfolgenden Bildschirm "Regelassistent" die Option "Regel auf empfangene Nachrichten anwenden" und klicken Sie auf "Weiter".
- Ignorieren Sie als Nächstes die "Bedingungen auswählen" und klicken Sie auf "Weiter".
- Wählen Sie dann die Aktion "Skript ausführen" und wählen Sie das zuvor hinzugefügte Makro aus, wie im folgenden Screenshot dargestellt.
- Klicken Sie danach auf mehrere "Weiter", bis Sie zum endgültigen Bildschirm "Regeleinrichtung beenden" gelangen.
- Später müssen Sie einen neuen Namen für diese Regel angeben und die Option "Diese Regel für Nachrichten ausführen, die sich bereits im Posteingang befinden" und "Diese Regel aktivieren" aktivieren.
- Klicken Sie abschließend auf die Schaltfläche „Fertig stellen“.
- Danach sollten Sie die vom VBA-Code erstellte Spalte "Anzahl der Anhänge" hinzufügen. Führen Sie einfach die folgenden Schritte aus:
- Wechseln Sie zunächst im Bildschirm der E-Mail-Liste zur Registerkarte „Ansicht“.
- Klicken Sie dann auf die Schaltfläche "Einstellungen anzeigen".
- Klicken Sie im neu eingeblendeten Dialogfeld auf die Schaltfläche "Spalten".
- Suchen Sie dann im Fenster "Spalten anzeigen" unter "Benutzerdefinierte Spalten im Posteingang" die Spalte "Anzahl der Anhänge" und wählen Sie sie aus. Klicken Sie dann auf die Schaltfläche "Hinzufügen".
- Klicken Sie abschließend auf die Schaltfläche „OK“, um die Änderungen zu speichern.
- Schließlich wird in der E-Mail-Liste eine Spalte "Anzahl der Anhänge" angezeigt, in der die Anzahl der Anhänge für jede E-Mail angezeigt wird (siehe Abbildung unten):
Vermeiden Sie frustrierenden PST-Datenverlust
Es wird angenommen, dass niemand bereit ist, PST-Datenverlust zu akzeptieren. Das muss auch für Sie gelten. Daher müssen Sie einige Vorsichtsmaßnahmen treffen, z. B. Datensicherungen Ihrer PST-Datei durchführen und sich ein seriöses Fix-Tool wie z DataNumen Outlook Repair. Es kann Outlook reparieren Probleme, ohne ins Schwitzen zu geraten.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Fix und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX