Wie kann man beim Verfassen einer E-Mail in Outlook alle Anhangsnamen direkt im Nachrichtentext auflisten?

Gibt es eine gute Möglichkeit, alle Anhangsnamen automatisch in den Nachrichtentext einzufügen, während Sie eine E-Mail in Outlook verfassen? In diesem Artikel zeige ich Ihnen, wie Sie diese Aufgabe in Outlook mühelos erledigen können.

Alle Anhangsname im Nachrichtentext auflisten, wenn eine E-Mail mit VBA-Code verfasst wird

Alle Anhangsname im Nachrichtentext auflisten, wenn eine E-Mail mit einer einfachen Funktion verfasst wird

Alle Anhangsname im Nachrichtentext auflisten, wenn eine E-Mail mit VBA-Code verfasst wird

Führen Sie bitte die folgenden Schritte aus, um diese Aufgabe abzuschließen:

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Doppelklicken Sie im Microsoft Visual Basic for Applications-Fenster auf ThisOutlookSession im Bereich Project1 (VbaProject.OTM), um das Modul zu öffnen, und fügen Sie dann den folgenden Code in das leere Modul ein.

VBA-Code: Alle Anhangsname im Nachrichtentext auflisten:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

3. Klicken Sie anschließend auf Einfügen > Modul, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein (siehe Screenshot):

VBA-Code: Alle Anhangsname im Nachrichtentext auflisten:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

4. Klicken Sie anschließend im Microsoft Visual Basic for Applications-Fenster auf Extras>Verweise. Aktivieren Sie im erscheinenden Dialogfeld Verweise – Project1die Option Microsoft Word Object Libraryaus der Liste Verfügbare Verweise(siehe Screenshot):

5. Klicken Sie auf OK, um das Dialogfeld zu schließen. Fügen Sie anschließend die Makroschaltfläche zur Symbolleiste für den Schnellzugriff hinzu. Wählen Sie im neuen Nachrichten-Fenster in der Dropdown-Liste Symbolleiste für den Schnellzugriff anpassen den Eintrag Weitere Befehle aus (siehe Screenshot):

6. Führen Sie im Dialogfeld Outlook-Optionen die folgenden Schritte aus:

(1.) Wählen Sie Makrosaus der Dropdown-Liste Befehle auswählen aus;

(2.) Klicken Sie auf den Namen des soeben eingefügten Makros;

(3.) Klicken Sie anschließend auf die Schaltfläche Hinzufügen, um das Makro zur Symbolleiste für den Schnellzugriff anpassen hinzuzufügen.

7. Klicken Sie anschließend auf OK, um das Dialogfeld zu schließen. Die Makroschaltfläche wurde nun in die Symbolleiste für den Schnellzugriff eingefügt (siehe Screenshot):

8. Wenn Sie nun eine neue Nachricht erstellen und auf die Makroschaltfläche klicken, wird der Anhangsname wie im folgenden Screenshot gezeigt über dem Nachrichtentext eingefügt:

Alle Anhangsname im Nachrichtentext auflisten, wenn eine E-Mail mit einer einfachen Funktion verfasst wird

Möglicherweise fällt es Ihnen etwas schwer, den obigen Code anzuwenden. Wenn Sie jedoch Kutools für Outlook besitzen, können Sie mit der Funktion Namen kopieren schnell den Anhangsnamen einer Nachricht kopieren und an beliebiger Stelle einfügen.

Nach der Installation von Kutools für Outlookführen Sie bitte Folgendes aus:

1. Erstellen Sie zunächst die gewünschte neue E-Mail und klicken Sie anschließend im neuen Kutools–Namen kopieren-Fenster auf Nachricht (siehe Screenshot):

2. Anschließend erscheint eine Meldungsbox, die Sie darüber informiert, dass der Anhangsname in die Zwischenablage kopiert wurde (siehe Screenshot):

3. Drücken Sie nun einfach gleichzeitig die Tasten Strg + V, um den Anhangsnamen an der gewünschten Stelle im Nachrichtentext einzufügen (siehe Screenshot):

Weitere verwandte Artikel:

---

Beste Office-Produktivitätswerkzeuge

Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!

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

📧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!

Kutools für Outlook mit nur einem Klick sofort freischalten! Warten Sie nicht – laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

Funktionsliste von Kutools für Outlook      Jetzt herunterladen      Zum Kauf gehen

🚀 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

Über das Paket⬇ Das Paket herunterladen💳 Das Paket kaufen