更改'From'电子邮件地址,并将多个电子邮件地址添加到通过 Outlook 发送的邮件合并中的'To'



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

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

到目前为止我尝试过: 在电子表格的"收件人"字段中添加多封电子邮件,并在它们之间加上","或";"。"."导致错误,";"出现找不到电子邮件地址(因为它将所有电子邮件地址搜索为一个地址(。

我无法访问我的作品共享收件箱的密码,所以我无法像其他人建议的那样登录它们并更改我的默认值。

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

干杯

使用邮件项目的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

相关内容

最新更新