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 productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
