Как вставить все имена получателей в тело письма в 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. Теперь, когда вы щелкаете значок макроса, имена получателей из поля Кому будут вставлены в тело сообщения, как показано на следующем снимке экрана:
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.