Wie kann ich eine Liste der Anhängeinformationen in ausgewählten E-Mails in Outlook abrufen?
Bei empfangenen E-Mails, die mit Anhängen versehen sind, müssen Sie manchmal die detaillierten Informationen zu den Anhängen kennen, z. B. den Anzeigenamen, den Dateinamen usw. Tatsächlich kann Ihnen der VBA-Code dabei helfen, die Liste der Informationen zu Anhängen in der aktuell ausgewählten E-Mail in Outlook einfach abzurufen. Bitte durchsuchen Sie das folgende Tutorial für weitere Details.
Ruft eine Liste der Informationen zu Anhängen in ausgewählten E-Mails in Outlook ab
- Automatisieren Sie den E-Mail-Versand mit Auto CC / BCC, Automatische Weiterleitung nach Regeln; schicken Automatische Antwort (Abwesend) ohne dass ein Exchange-Server erforderlich ist ...
- Erhalten Sie Erinnerungen wie BCC-Warnung wenn Sie auf alle antworten, während Sie sich in der BCC-Liste befinden, und Bei fehlenden Anhängen erinnern für vergessene Anhänge...
- Verbessern Sie die E-Mail-Effizienz mit (Allen) mit Anhängen antworten, Begrüßung oder Datum und Uhrzeit automatisch zur Signatur oder zum Betreff hinzufügen, Beantworten Sie mehrere E-Mails...
- Optimieren Sie den E-Mail-Versand mit E-Mails abrufen, Anbaugeräte (Alles komprimieren, Alles automatisch speichern...), Duplikate entfernen und Kurzbericht...
Ruft eine Liste der Informationen zu Anhängen in ausgewählten E-Mails in Outlook ab
1. Wählen Sie die E-Mail mit den Anhängen aus, deren Informationen Sie erhalten möchten.
2. Drücken Sie die Taste Andere + F11 Tasten auf der Tastatur zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
3. Doppelklicken Sie dann auf Project1 > Microsoft Outlook-Objekt > DieseOutlookSession öffnen Projekt1 - ThisOutlookSession Fenster. 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 der Informationen zu Anhängen 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 F5 Taste auf der Tastatur, um den VBA-Code auszuführen.
6. Nun a Makros Das Dialogfeld wird angezeigt. Klicken Sie auf Führen Sie .
7. Nach dem Klicken auf Führen Sie Knopf im Makros Im Dialogfeld wird ein neues Nachrichtenfenster mit allen Anhangsinformationen der ausgewählten E-Mail erstellt, die im E-Mail-Text aufgeführt sind. Siehe Screenshot:
Note: Dieser VBA-Code kann auf Outlook 2007, 2010 und 2013 angewendet werden
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.