Wie fügt man alle Empfängernamen direkt in den E-Mail-Text in Outlook ein?

Manchmal müssen Sie beim Verfassen einer E-Mail in Outlook die Namen aller Empfänger direkt in den Nachrichtentext einfügen. Zwar können Sie die Namen einzeln kopieren und einfügen – doch das wird schnell mühsam, sobald Dutzende von Empfängernamen hinzugefügt werden müssen. In diesem Artikel zeige ich Ihnen eine einfache Methode, um diese Aufgabe in Outlook mühelos zu erledigen.

Alle Empfängernamen mit VBA-Code in den E-Mail-Text in Outlook einfügen

---

Alle Empfängernamen mit VBA-Code in den E-Mail-Text in Outlook einfügen

Der folgende VBA-Code fügt alle Empfängernamen aus dem An-Feld automatisch in den Nachrichtentext ein – so geht’s:

1. Starten Sie Outlook und drücken Sie anschließend die Tasten ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.

VBA-Code: Empfängernamen in den Nachrichtentext einfügen:

Sub InsertRecipientNamesToBody()
Dim xMailItem As Outlook.MailItem
Dim xRecipient As Outlook.Recipient
Dim xRecipAddress, xRecipNames, xRecipName, xFilterAddr As String
Dim xItems As Outlook.Items
Dim i As Integer
Dim xFoundContact As Outlook.ContactItem
Dim xDoc As Word.Document
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
xMailItem.Recipients.ResolveAll
For Each xRecipient In xMailItem.Recipients
    xRecipAddress = xRecipient.Address
    Set xItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
    For i = 1 To 3
        xFilterAddr = "[Email" & i & "Address] = " & xRecipAddress
        Set xFoundContact = xItems.Find(xFilterAddr)
        If Not (xFoundContact Is Nothing) Then
           xRecipNames = xRecipNames & xFoundContact.FullName & Chr(10)
           Exit For
        End If
    Next
    If (xFoundContact Is Nothing) Then
       xRecipName = Split(xRecipAddress, "@")(0)
       xRecipNames = xRecipNames & xRecipName & Chr(10)
    End If
Next
Set xDoc = xMailItem.GetInspector.WordEditor
xDoc.Content.InsertAfter xRecipNames
Set xMailItem = Nothing
Set xRecipient = Nothing
Set xItems = Nothing
Set xFoundContact = Nothing
End Sub

3. Bleiben Sie anschließend im Fenster Microsoft Visual Basic for Applications und klicken Sie auf Extras > Verweise, um zum Dialogfeld Verweise – Projekt1 zu gelangen. Aktivieren Sie dann in der Liste Verfügbare Verweise die Option Microsoft Word Object Library – siehe Screenshot:

4. Klicken Sie anschließend auf OK, um den Dialog zu schließen. Anschließend können Sie diesen Code zur Symbolleiste für den Schnellzugriff hinzufügen.

5. Erstellen Sie eine neue Nachricht, indem Sie auf Neue Email klicken. Klicken Sie im Fenster Nachricht auf das Symbol Symbolleiste für den Schnellzugriff anpassen und wählen Sie Weitere Befehle, siehe Screenshot:

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

(1.) Wählen Sie in der Dropdown-Liste Makrosunter Befehle auswählen ausaus;

(2.) Wählen Sie anschließend den Namen des VBA-Codes aus, den Sie soeben eingefügt haben;

(3.) Klicken Sie auf die Schaltfläche Hinzufügen, um den Code zur Liste Symbolleiste für den Schnellzugriff anpassen hinzuzufügen.

7. Anschließend wird ein Makro-Symbol in der Symbolleiste für den Schnellzugriff angezeigt, wie im folgenden Screenshot gezeigt:

8. Sobald Sie nun auf das Makro-Symbol klicken, werden die Empfängernamen aus dem An-Feld – wie im folgenden Screenshot gezeigt – in den Nachrichtentext eingefügt: