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

Author: Xiaoyang Last Modified: 2025-08-07

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

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

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

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

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

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 for Applications, нажмите Инструменты > Ссылки, чтобы перейти в диалоговое окно Ссылки - Проект1, и отметьте опцию Библиотека объектов Microsoft Word в списке доступных ссылок, как показано на скриншоте:

the screenshot of step about inserting all recipient names to email body in outlook 1

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

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

the screenshot of step about inserting all recipient names to email body in outlook 2

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

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

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

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

the screenshot of step about inserting all recipient names to email body in outlook 3

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

the screenshot of step about inserting all recipient names to email body in outlook 4

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