Wie kann man eine Liste der Anhangsinformationen in der ausgewählten E-Mail in Outlook abrufen?

Für empfangene E-Mails mit Anhängen möchten Sie möglicherweise die detaillierten Informationen zu den Anhängen kennen, wie z. B. den Anzeigenamen, den Dateinamen usw. Tatsächlich kann Ihnen VBA-Code helfen, ganz einfach eine Liste der Anhangsinformationen in der aktuell ausgewählten E-Mail in Outlook abzurufen. Weitere Details finden Sie im folgenden Tutorial.

Liste der Anhangsinformationen in der ausgewählten E-Mail in Outlook abrufen

Liste der Anhangsinformationen in der ausgewählten E-Mail in Outlook abrufen

1. Wählen Sie die E-Mail mit Anhängen aus, deren Informationen Sie abrufen möchten.

2. Drücken Sie die Tasten Alt + F11 auf der Tastatur, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Doppelklicken Sie dann auf Projekt1 > Microsoft Outlook-Objekt > DieseOutlookSitzung, um das Fenster Projekt1 – DieseOutlookSitzung zu öffnen. Siehe Screenshot:

4. Kopieren und fügen Sie dann den folgenden VBA-Code in das Fenster Projekt1 – DieseOutlookSitzung ein.

VBA-Code: Liste der Anhangsinformationen abrufen

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 ein Makros-Dialogfeld. Klicken Sie bitte auf die Schaltfläche Ausführen.

7. Nachdem Sie auf die Schaltfläche Ausführen im Makros-Dialogfeld geklickt haben, wird ein neues Nachrichtenfenster erstellt, in dem alle Anhangsinformationen der ausgewählten E-Mail im Nachrichtentext aufgelistet sind. Siehe Screenshot:

Hinweis: Dieser VBA-Code kann auf Outlook 2007, 2010 und 2013 angewendet werden.

---

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook startet kostenlose Version!

Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu bearbeiten, einschließlich Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...

📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...

📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...

🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...

👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...

Entsperren Sie Kutools für Outlook sofort mit einem Klick. Warten Sie nicht, laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

Funktionsliste von Kutools für Outlook Kostenlose Version herunterladen Auf Professional upgraden