Wie füge ich alle Empfängernamen in den E-Mail-Text in Outlook ein?

Manchmal müssen Sie beim Erstellen einer E-Mail in Outlook möglicherweise die Namen aller Empfänger in den Nachrichtentext einfügen. Natürlich können Sie die Namen einzeln kopieren und in den Text einfügen. Es ist jedoch sehr mühsam, wenn Dutzende von Empfängernamen eingefügt werden müssen. In diesem Artikel werde ich über eine einfache Möglichkeit sprechen, diesen Job in Outlook zu lösen.

Fügen Sie alle Empfängernamen mit VBA-Code in Outlook in den E-Mail-Text ein

Fügen Sie alle Empfängernamen mit VBA-Code in Outlook in den E-Mail-Text ein

Der folgende VBA-Code kann Ihnen dabei helfen, alle Empfängernamen aus dem Feld An in den Nachrichtentext einzufügen. Gehen Sie dazu folgendermaßen vor:

1. Starten Sie Outlook und halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Empfängernamen in 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. Und dann noch in der Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Tools > Bibliographie auf dem Sprung Referenzen-Projekt1 Dialogfeld und überprüfen Sie Microsoft Word-Objektbibliothek Option von der Verfügbare Referenzen Listenfeld, siehe Screenshot:

4. Dann klick OK Um den Dialog zu schließen, sollten Sie nun diesen Code hinzufügen Quick Access Toolbar.

5. Erstellen Sie eine neue Nachricht, indem Sie auf klicken Neue e-mailIn der Nachricht Klicken Sie im Fenster Anpassen der Symbolleiste für den Schnellzugriff Symbol und wählen Sie Mehr Befehle, siehe Screenshot:

6. In dem Outlook-Optionen Dialogbox:

(1.) Wählen Sie Makros von dem Wählen Sie Befehle aus Dropdown-Liste;

(2.) Und wählen Sie dann den VBA-Codenamen, den Sie gerade eingefügt haben.

(3.) Klicken Sie auf Speichern Schaltfläche, um den Code in die Anpassen der Symbolleiste für den Schnellzugriff Listenfeld.

7. Und dann wird ein Makrosymbol in der angezeigt Quick Access Toolbar wie folgt Screenshot gezeigt:

8. Wenn Sie nun auf das Makrosymbol klicken, werden die Empfängernamen aus dem Feld „An“ in den Nachrichtentext eingefügt, wie im folgenden Screenshot gezeigt: