我必须做很多工作活动,向成批的人发送几乎相同的电子邮件。我一直在使用带有Word,Excel电子表格和Outlook的邮件合并。问题是每封电子邮件我只能发送给一个用户,默认情况下是从我的电子邮件发送,而不是我希望从中发送邮件的共享收件箱。
目标: 在“收件人”字段中为每个电子邮件添加多个电子邮件地址。 将“发件人”电子邮件地址更改为我的默认地址以外的其他地址。
到目前为止我尝试过的是: 在电子表格的“收件人”字段中使用“,”或“;”添加多个电子邮件它们之间。 '。'导致错误,并且';'附带的找不到电子邮件地址(因为它将所有电子邮件地址都作为一个地址进行搜索)。
我无权访问作品共享收件箱的密码,因此我无法在其下登录并按照其他人的建议更改默认值。
我想在VBA中可以做到这一点,我只需要一些帮助。
欢呼
答案 0 :(得分:0)
使用邮件项目的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