更改“发件人”电子邮件地址，并将多个电子邮件地址添加到通过 Outlook 发送的邮件合并中的“收件人”答案

【问题标题】：Changing the 'From' email address, and adding multiple email addresses to the 'To' in Mail Merge sent through Outlook更改“发件人”电子邮件地址，并将多个电子邮件地址添加到通过 Outlook 发送的邮件合并中的“收件人”
【发布时间】：2020-05-28 17:56:17
【问题描述】：

我必须为工作做很多活动，向成批的人发送大量包含几乎相同内容的电子邮件。我一直在使用 word、excel 电子表格和 Outlook 的邮件合并。问题是我每封电子邮件只能发送给一个用户，并且默认从我的电子邮件发送，而不是我希望从中发送的共享收件箱。

目标：在“收件人”字段中为每封电子邮件添加多个电子邮件地址。将“发件人”电子邮件地址更改为我的默认值以外的其他地址。

到目前为止我已经尝试过：在电子表格的“收件人”字段中使用“，”或“；”添加多个电子邮件它们之间。 '。'导致错误，';'想出找不到电子邮件地址（因为它将所有这些都作为一个地址进行搜索）。

我无权访问我的作品共享收件箱的密码，因此我无法在它们下登录并按照其他人的建议更改我的默认设置。

我猜在 VBA 中有一种方法可以做到这一点，我只是需要一些帮助。

干杯

【问题讨论】：

到目前为止，您尝试了哪些方法并遇到了问题？请在您的问题中包含这一点。
在 vba 中使用 Outlook 的非常好的指南：snb-vba.eu/VBA_Outlook_external_en.html

标签： vba email outlook

【解决方案1】：

使用邮件项目的Recipients 属性来修改收件人、抄送或密件抄送字段。例如：

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

【讨论】：