Wie kann man alle Anhangsnamen in den Nachrichtentext auflisten, wenn man eine E-Mail in Outlook verfasst?

Gibt es gute Möglichkeiten für uns, alle Anhangsnamen in den Nachrichtentext einzufügen, wenn wir eine E-Mail in Outlook verfassen? In diesem Artikel werde ich darüber sprechen, wie man diese Aufgabe in Outlook lösen kann.

Alle Anhangsnamen mit VBA-Code in den Nachrichtentext auflisten, wenn man eine E-Mail verfasst

Alle Anhangsnamen mit einer einfachen Funktion in den Nachrichtentext auflisten, wenn man eine E-Mail verfasst

Alle Anhangsnamen mit VBA-Code in den Nachrichtentext auflisten, wenn man eine E-Mail verfasst

Bitte führen Sie die folgenden Schritte aus, um diese Aufgabe abzuschließen:

1. Halten Sie die Tasten ALT + F11 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 den Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.

VBA-Code: Alle Anhangsnamen in den 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 weiter auf Einfügen > Modul, kopieren und fügen Sie den folgenden Code in das geöffnete leere Modul ein, siehe Screenshot:

VBA-Code: Alle Anhangsnamen in den 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 dann auf Tools > Verweise im Microsoft Visual Basic for Applications-Fenster. Aktivieren Sie im erscheinenden Dialogfeld References-Project1 die Option Microsoft Word Object Library aus der Liste der verfügbaren Verweise, siehe Screenshot:

5. Klicken Sie auf OK, um das Dialogfeld zu schließen, dann sollten Sie die Makroschaltfläche zur QuickAccess-Symbolleiste hinzufügen. Wählen Sie im neuen Nachrichtenfenster Weitere Befehle aus dem Dropdown-Menü Anpassen der QuickAccess-Symbolleiste, siehe Screenshot:

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

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

(2.) Klicken Sie auf den Namen des Makros, das Sie gerade eingefügt haben;

(3.) Klicken Sie dann auf die Schaltfläche Hinzufügen, um das Makro zur Symbolleiste Schnellzugriff anzupassen.

7. Klicken Sie dann auf OK, um das Dialogfeld zu schließen. Nun wurde die Makroschaltfläche zur Symbolleiste Schnellzugriff hinzugefügt, siehe Screenshot:

8. Jetzt, wenn Sie eine neue Nachricht erstellen und auf die Makroschaltfläche klicken, werden die Anhangsnamen oberhalb des Nachrichtentexts eingefügt, wie im folgenden Screenshot dargestellt:

Alle Anhangsnamen mit einer einfachen Funktion in den Nachrichtentext auflisten, wenn man eine E-Mail verfasst

Vielleicht ist der obige Code etwas schwierig für Sie anzuwenden. Wenn Sie Kutools für Outlook haben, können Sie mit der Funktion Namen kopieren schnell die Anhangsnamen einer Nachricht kopieren und sie dort einfügen, wo Sie sie benötigen.

Nach der Installation von Kutools für Outlook gehen Sie bitte wie folgt vor:

1. Erstellen Sie zunächst die neue E-Mail, die Sie benötigen, und klicken Sie dann im neuen Nachrichtenfenster auf Kutools > Namen kopieren, siehe Screenshot:

2. Danach wird ein Hinweisfenster angezeigt, das Sie daran erinnert, dass die Anhangsnamen in die Zwischenablage kopiert wurden, siehe Screenshot:

3. Jetzt müssen Sie nur noch gleichzeitig die Tasten Strg + V drücken, um die Anhangsnamen in den Nachrichtentext einzufügen, siehe Screenshot:

Weitere relevante Artikel:

---

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook startet kostenlose Version!

Erleben Sie das komplett neue Kutools für Outlook mit über100 beeindruckenden Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mail mühelos zu bearbeiten – darunter Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Erstellen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP) /E-Mails zeitgesteuert senden /Automatische CC/BCC nach Regel beim Senden von E-Mails /Automatische Weiterleitung (Erweiterte Regeln) /Automatisches Hinzufügen von Begrüßungen / Mehrfache Empfänger-E-Mails automatisch in einzelne E-Mail-Nachrichten aufteilen...

📨 E-Mail-Verwaltung: E-Mails zurückrufen /Betrugsversuche anhand des Betreffs und anderer Kriterien blockieren /Duplikate E-Mails löschen /Erweiterte Suche /Ordner organisieren...

📁 Anhänge Pro:Stapelweise speichern /Stapelweise abtrennen /Stapelweise komprimieren /Automatisch speichern /Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr attraktive und coole Emojis /Benachrichtigung bei wichtigen E-Mails /Outlook minimieren statt schließen...

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

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

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

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

Funktionsliste von Kutools für OutlookJetzt herunterladenKaufen