Hoe alle ontvangersnamen in de e-mailbody in Outlook invoegen?
Soms moet u bij het opstellen van een e-mail in Outlook de namen van alle ontvangers in de berichttekst invoegen. Natuurlijk kunt u de namen één voor één in de body kopiëren en plakken. Maar dit is erg tijdrovend als er tientallen ontvangersnamen moeten worden geplakt. In dit artikel zal ik het hebben over een eenvoudige manier om deze taak in Outlook uit te voeren.
Alle ontvangersnamen in de e-mailbody invoegen met VBA-code in Outlook
Alle ontvangersnamen in de e-mailbody invoegen met VBA-code in Outlook
De volgende VBA-code kan u helpen om alle ontvangersnamen uit het 'Aan'-veld in de berichttekst in te voegen, doe het als volgt:
1. Start Outlook, en houd vervolgens de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.
VBA-code: Ontvangersnamen in berichttekst invoegen:
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. En blijf daarna in het venster Microsoft Visual Basic for Applications, klik op Tools > References om naar het dialoogvenster References-Project1 te gaan, en vink de optie Microsoft Word Object Library aan in de lijst met beschikbare referenties, zie screenshot:
4. Klik vervolgens op OK om het dialoogvenster te sluiten, nu moet u deze code toevoegen aan de Quick Access Toolbar.
5. Maak een nieuw bericht door te klikken op Nieuwe Email, in het Berichtvenster, klik op het pictogram Gebruikersgedefinieerd Quick Access Toolbar, en selecteer Meer Opdrachten, zie screenshot:
6. In het dialoogvenster Outlook Opties:
(1.) Selecteer Macros uit de vervolgkeuzelijst Opdrachten kiezen uit;
(2.) En selecteer vervolgens de naam van de VBA-code die u zojuist hebt ingevoegd;
(3.) Klik op de knop Toevoegen om de code toe te voegen aan de lijst Customize Quick Access Toolbar.
7. Er wordt nu een macro-pictogram weergegeven in de Quick Access Toolbar zoals in de volgende schermafbeelding te zien is:
8. Nu, wanneer u op het macro-pictogram klikt, worden de ontvangersnamen uit het 'Aan'-veld in de berichttekst ingevoegd zoals in de volgende schermafbeelding te zien is:
Beste Office-productiviteitstools
Breaking News: Kutools for Outlook lanceert een gratis versie!
Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...
🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...
👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...
👩🏼🤝👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...
Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!
🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!
- ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
- 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
- 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint