Как вставить имена всех получателей прямо в текст письма в 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 Object Library в списке Доступные ссылки, как показано на снимке экрана:

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

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

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

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

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

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

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

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