Gå til hovedindhold

Hvordan indsættes alle modtagernavne i e-mail-kroppen i Outlook?

Nogle gange skal du muligvis indsætte navnene på alle modtagere i meddelelsesteksten, når du skriver en e-mail i Outlook. Selvfølgelig kan du kopiere og indsætte navnene i kroppen en efter en. Men det er meget kedeligt, hvis der er snesevis af modtagernavne, der skal indsættes. Denne artikel vil jeg tale om en nem måde at løse dette job på i Outlook.

Indsæt alle modtagernavne til e-mail-krop med VBA-kode i Outlook


Indsæt alle modtagernavne til e-mail-krop med VBA-kode i Outlook

Følgende VBA-kode kan hjælpe dig med at indsætte alle modtagernavne fra Til-feltet i meddelelsesteksten, gør som dette:

1. Start Outlook, og hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Indsæt modtagernavne i meddelelsesteksten:

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. Og så stadig i Microsoft Visual Basic til applikationer vindue, skal du klikke på Værktøjer > Referencer at gå til Referencer-projekt1 dialogboks, og tjek Microsoft Word-objektbibliotek mulighed fra Tilgængelige referencer listefelt, se skærmbillede:

4. Klik derefter på OK for at lukke dialogen skal du nu tilføje denne kode til Hurtig adgangs værktøjslinje.

5. Opret en ny besked ved at klikke ny emailI Besked vindue, skal du klikke på Tilpas værktøjslinjen Hurtig adgang ikonet, og vælg Flere kommandoer, se skærmbillede:

6. I Outlook Options dialog boks:

(1.) Vælg Makroer fra Vælg kommandoer fra rulleliste

(2.) Og vælg derefter det VBA-kodenavn, som du lige har indsat;

(3.) Klik på Tilføj knappen for at tilføje koden i Tilpas værktøjslinjen Hurtig adgang listefelt.

7. Og så vises et makroikon i Hurtig adgangs værktøjslinje som følgende skærmbillede vist:

8. Når du nu klikker på makroikonet, vil modtagernavnene fra feltet Til blive indsat i meddelelsesteksten som vist på følgende skærmbillede:


Bedste kontorproduktivitetsværktøjer

Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook

🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...

📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP)  /  Planlæg Send e-mails  /  Auto CC/BCC efter regler ved afsendelse af e-mail  /  Automatisk videresendelse (avancerede regler)   /  Tilføj automatisk hilsen   /  Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...

📨 Email Management: Genkald nemt e-mails  /  Bloker svindel-e-mails af emner og andre  /  Slet duplikerede e-mails  /  Avanceret søgning  /  Konsolider mapper ...

📁 Vedhæftede filer ProBatch Gem  /  Batch adskilles  /  Batch komprimere  /  Automatisk gem   /  Automatisk afmontering  /  Automatisk komprimering ...

🌟 Interface Magic: 😊 Flere smukke og seje emojis   /  Boost din Outlook-produktivitet med fanebaserede visninger  /  Minimer Outlook i stedet for at lukke ...

👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer  /   Anti-phishing e-mails  /  🕘Vis afsenderens tidszone ...

👩🏼‍🤝‍👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails  /  Opdel en kontaktgruppe til individuelle grupper  /  Fjern fødselsdagspåmindelser ...

Over 100 Features Afvent din udforskning! Klik her for at finde mere.

Læs mere       Gratis download      Køb
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations