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

Question

Мне приходится проводить множество кампаний по работе, рассылая множество электронных писем с почти одним и тем же целым группам людей. Я использую слияние почты со словом, таблицей Excel и Outlook. Проблема в том, что я могу отправлять сообщения только одному пользователю на одно электронное письмо, и по умолчанию он отправляется с моего электронного письма, а не с общего почтового ящика, из которого я бы предпочел его отправлять.

Цель: добавить несколько адресов электронной почты на каждый. электронное письмо в поле "Кому". чтобы изменить адрес электронной почты «От» на другой, отличный от моего по умолчанию.

То, что я пробовал до сих пор: Добавление нескольких адресов электронной почты в поле «Кому» электронной таблицы с помощью «,» или «;» между ними. '.' вызывает ошибку и ';' не может найти адрес электронной почты (поскольку он ищет их все как один адрес).

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

Я предполагаю, что там - способ сделать это в VBA, мне просто нужна помощь.

Ура

Answer 1

Используйте свойство Recipients почтовых элементов для изменения полей Кому, CC или B CC. Например:

Sub CreateStatusReportToBoss() 

 Dim myItem As Outlook.MailItem 

 Dim myRecipient As Outlook.Recipient 
 Set myItem = Application.CreateItem(olMailItem)  
 Set myRecipient = myItem.Recipients.Add("Eugene")  
 myItem.Subject = "Status Report"  
 myItem.Display 

End Sub