Wie erhält man eine Liste mit Informationen zu den Anhängen einer ausgewählten E-Mail in Outlook?
Bei empfangenen E-Mails mit Anhängen benötigen Sie gelegentlich detaillierte Informationen zu diesen – etwa den Anzeigenamen oder den tatsächlichen Dateinamen. Mit einem einfachen VBA-Code können Sie schnell eine Liste aller Anhangsinformationen der aktuell ausgewählten Outlook-E-Mail erstellen. Wie das genau funktioniert, erfahren Sie im folgenden Tutorial.
Liste mit Anhangsinformationen einer ausgewählten E-Mail in Outlook erstellen
- Steigern Sie Ihre E-Mail-Produktivität mithilfe der KI-Technologie – antworten Sie blitzschnell auf E-Mails, verfassen Sie neue Nachrichten, übersetzen Sie Inhalte und erledigen Sie noch viel mehr effizient.
- Automatisieren Sie das Versenden von E-Mails mit Automatische CC/BCC und Automatische Weiterleitung anhand von Regeln; senden Sie eine Automatische Antwort (Abwesend) – ganz ohne Exchange-Server …
- Erhalten Sie Erinnerungen wie Hinweis beim Antworten auf eine E-Mail, bei der ich im BCC-Feld stehe, wenn Sie allen antworten, obwohl Sie in der BCC-Liste stehen, und Erinnerung bei fehlenden Anhängen bei vergessenen Anhängen …
- Steigern Sie die Effizienz Ihrer E-Mails mit Mit Anlagen antworten (alle), Automatisches Hinzufügen von Grußformel oder Datum & Uhrzeit zur Signatur oder Betreffzeile, Mehrere E-Mails gleichzeitig beantworten …
- Vereinfachen Sie das Versenden von E-Mails mit E-Mail zurückrufen, Anhangswerkzeuge („Alle komprimieren“, „Automatisch speichern – Alle …“), Duplikate entfernen und Schnellbericht …
Liste mit Anhangsinformationen einer ausgewählten E-Mail in Outlook erstellen
1. Wählen Sie die E-Mail mit den Anhängen aus, deren Informationen Sie abrufen möchten.
2. Drücken Sie auf der Tastatur die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
3. Doppelklicken Sie anschließend auf Project1 > Microsoft Outlook-Objekt > ThisOutlookSession, um das Fenster Project1 – ThisOutlookSession zu öffnen. Siehe Screenshot:
4. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Fenster „Project1 – ThisOutlookSession“ ein.
VBA-Code: Liste mit Anhangsinformationen erstellen
Option Explicit
Public Sub GetAttachmentList()
Dim selItem As Object
Dim aMail As MailItem
Dim aAttach As attachment
Dim Report As String
For Each selItem In Application.ActiveExplorer.Selection
If selItem.Class = olMail Then
Set aMail = selItem
For Each aAttach In aMail.Attachments
Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
Report = Report & GetAttachmentInfo(aAttach)
Next
Call CreateReportEmail("Attachment Report", Report)
End If
Next
End Sub
Public Function GetAttachmentInfo(attachment As attachment)
Dim Report
GetAttachmentInfo = ""
Report = Report & "Index: " & attachment.Index & vbCrLf
Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
Report = Report & "File Name: " & attachment.FileName & vbCrLf
Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
Report = Report & "Path Name: " & attachment.PathName & vbCrLf
Report = Report & "Position: " & attachment.Position & vbCrLf
Report = Report & "Size: " & attachment.Size & vbCrLf
Report = Report & "Type: " & attachment.Type & vbCrLf
GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
Dim aMail As MailItem
Set aMail = Application.CreateItem(olMailItem)
aMail.Subject = Title
aMail.Body = Report
aMail.Display
End Sub 5. Drücken Sie die Taste F5 auf der Tastatur, um den VBA-Code auszuführen.
6. Nun erscheint das Dialogfeld Makros. Klicken Sie auf die Schaltfläche Ausführen.
7. Nachdem Sie im Dialogfeld Ausführen auf die Schaltfläche Makros geklickt haben, wird ein neues Nachrichtenfenster erstellt, das im Nachrichtentext alle Anhangsinformationen der ausgewählten E-Mail enthält. Siehe Screenshot:
Hinweis: Dieser VBA-Code funktioniert in Outlook 2007, 2010 und 2013.
Beste Office-Produktivitätswerkzeuge
Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!
📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …
📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …
📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …
🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...
👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...
👩🏼🤝👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!
🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins
Stark empfohlen: Kutools for Office (5-in-1)
Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!
- ✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
- 🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
- 🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint