我必须为工作做很多活动,向一批人发送大量几乎相同内容的电子邮件。我一直在使用邮件合并与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