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 veröffentlicht kostenlose Version!
Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!
📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...
📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...
📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...
🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...
👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...
👩🏼🤝👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/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!
🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar
Dringend empfohlen: Kutools für Office (5-in-1)
Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!
- ✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
- 🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
- 🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint