Wie fügt man alle Empfängernamen in den E-Mail-Text in Outlook ein?
Manchmal müssen Sie beim Verfassen einer E-Mail in Outlook die Namen aller Empfänger in den Nachrichtentext einfügen. Natürlich können Sie die Namen einzeln in den Text kopieren und einfügen. Wenn jedoch Dutzende von Empfängernamen eingefügt werden müssen, kann dies sehr mühsam sein. In diesem Artikel werde ich über eine einfache Möglichkeit sprechen, diese Aufgabe in Outlook zu lösen.
Alle Empfängernamen mit VBA-Code in den E-Mail-Text einfügen in Outlook
Alle Empfängernamen mit VBA-Code in den E-Mail-Text einfügen in Outlook
Der folgende VBA-Code kann Ihnen helfen, alle Empfängernamen aus dem An-Feld in den Nachrichtentext einzufügen. Bitte gehen Sie wie folgt vor:
1. Starten Sie Outlook, und halten Sie dann die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster 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. Und dann immer noch im Microsoft Visual Basic for Applications Fenster klicken Sie auf Extras > Verweise, um zum Dialogfeld Verweise - Projekt1 zu gelangen, und aktivieren Sie die Option Microsoft Word Object Library aus der Liste der verfügbaren Verweise, siehe Screenshot:
4. Klicken Sie dann auf OK, um das Dialogfeld zu schließen. Nun sollten Sie diesen Code zur Symbolleiste für den Schnellzugriff hinzufügen.
5. Erstellen Sie eine neue Nachricht, indem Sie auf Neue E-Mail klicken. Im Nachrichtenfenster klicken Sie auf das Symbol Benutzerdefinierte Symbolleiste für den Schnellzugriff und wählen Weitere Befehle aus, siehe Screenshot:
6. Im Dialogfeld Outlook-Optionen:
(1.) Wählen Sie Makros aus der Dropdown-Liste Befehle auswählen;
(2.) Und wählen Sie dann den Namen des VBA-Codes aus, den Sie gerade eingefügt haben;
(3.) Klicken Sie auf die Schaltfläche Hinzufügen, um den Code in das Feld Symbolleiste für den Schnellzugriff einzufügen.
7. Danach wird ein Makro-Symbol in der Symbolleiste für den Schnellzugriff angezeigt, wie im folgenden Screenshot gezeigt:
8. Jetzt, wenn Sie auf das Makro-Symbol klicken, werden die Empfängernamen aus dem An-Feld in den Nachrichtentext eingefügt, wie im folgenden Screenshot gezeigt:
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
