Jak wstawić wszystkie nazwy odbiorców do treści wiadomości e-mail w Outlooku?

Czasami może być konieczne wstawienie nazwisk wszystkich adresatów do treści wiadomości podczas tworzenia wiadomości e-mail w programie Outlook. Oczywiście możesz skopiować i wkleić nazwiska do treści po kolei. Jednak wklejenie dziesiątek nazw odbiorców jest bardzo uciążliwe. W tym artykule omówię łatwy sposób rozwiązania tej pracy w Outlooku.

Wstaw wszystkie nazwy odbiorców do treści wiadomości e-mail z kodem VBA w programie Outlook

Wstaw wszystkie nazwy odbiorców do treści wiadomości e-mail z kodem VBA w programie Outlook

Poniższy kod VBA może pomóc wstawić wszystkie nazwy adresatów z pola Do do treści wiadomości, wykonaj następujące czynności:

1. Uruchom program Outlook, a następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: wstaw nazwy odbiorców do treści wiadomości:

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. A potem nadal w Microsoft Visual Basic for Applications okno, kliknij Tools > Referencje , aby przejść do Referencje-projekt 1 okno dialogowe i zaznacz Biblioteka obiektów programu Microsoft Word opcja z Dostępne referencje pole listy, zobacz zrzut ekranu:

4. Następnie kliknij OK aby zamknąć okno dialogowe, powinieneś teraz dodać ten kod do pliku Pasek narzędzi szybkiego dostępu.

5. Utwórz nową wiadomość klikając nowy e-mail, W Wiadomość okno, kliknij Dostosuj pasek narzędzi Szybki dostęp ikonę i wybierz Więcej poleceńzobacz zrzut ekranu: