将Outlook电子邮件转发给多个收件人

时间:2016-08-03 15:57:20

标签: vba outlook outlook-vba

如何向myForward.Recipients.Add位添加多个电子邮件地址?我尝试过像 "test@test.com; test1@test.com; test2@test.com",

那样添加它们

但只有第一个收到消息。

Sub ChangeSubjectForward(Item As Outlook.MailItem)
    Item.Subject = "Test"
 Item.Save

Set myForward = Item.Forward
myForward.Recipients.Add "test@test.com"

myForward.Send

End Sub

2 个答案:

答案 0 :(得分:2)

或者将Mailtem.To属性设置为“;”分开的地址列表。

答案 1 :(得分:0)

尝试为每个收件人添加以下行

myForward.Recipients.Add "test1@test.com"

myForward.Recipients.Add "test2@test.com"

myForward.Recipients.Add "test3@test.com"