Как вставить все имена получателей в тело письма в Outlook?

Иногда вам может потребоваться вставить имена всех получателей в тело сообщения при составлении электронного письма в Outlook. Конечно, вы можете копировать и вставлять имена в тело по одному. Но это очень утомительно, если нужно вставить десятки имен получателей. В этой статье я расскажу о простом способе решения этой задачи в Outlook.

Вставьте все имена получателей в тело письма с кодом VBA в Outlook

Вставьте все имена получателей в тело письма с кодом VBA в Outlook

Следующий код VBA может помочь вам вставить все имена получателей из поля Кому в тело сообщения, сделайте следующее:

1. Запустите Outlook, а затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: вставьте имена получателей в тело сообщения:

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. А потом еще в Microsoft Visual Basic для приложений окна, нажмите Инструменты > Рекомендации , чтобы перейти к Ссылки-Project1 диалоговое окно и установите флажок Библиотека объектов Microsoft Word из файла Доступные ссылки список, см. снимок экрана:

4. Затем нажмите OK чтобы закрыть диалог, теперь вы должны добавить этот код в Панель быстрого доступа.

5. Создайте новое сообщение, нажав Новый E-mail, В Сообщение окна, нажмите Настройка панели быстрого доступа значок и выберите Дополнительные команды, см. снимок экрана:

6. В Параметры Outlook диалоговое окно:

(1.) Выберите Макрос из Выберите команды из раскрывающийся список;

(2.) Затем выберите кодовое имя VBA, которое вы только что вставили;

(3.) Щелкните Добавить кнопку, чтобы добавить код в Настройка панели быстрого доступа список.

7. И затем значок макроса отображается в Панель быстрого доступа как показано на следующем скриншоте:

8. Теперь, когда вы щелкаете значок макроса, имена получателей из поля Кому будут вставлены в тело сообщения, как показано на следующем снимке экрана: