Question

我必须做很多工作活动，向成批的人发送几乎相同的电子邮件。我一直在使用带有Word，Excel电子表格和Outlook的邮件合并。问题是每封电子邮件我只能发送给一个用户，默认情况下是从我的电子邮件发送，而不是我希望从中发送邮件的共享收件箱。

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

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

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

我想在VBA中可以做到这一点，我只需要一些帮助。

欢呼

Answer 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

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

1 个答案: