通过 VBA Outlook 自动转发电子邮件

Question

我正在使用下面的代码自动转发电子邮件。我已经添加了 Outlook 规则。

外发电子邮件地址
目前：只能发送 1 封邮件
愿望：发送到许多不同的电子邮件
邮件内容
当前：没有电子邮件内容
期望：添加有关电子邮件内容的命令，包括（标题邮件+任何内容）

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "xxx@xxx.com, yyy@xxx.com"
myFwd.Recipients.Add "yyy@xxx.com; zzz@xxx.com"
myFwd.Recipients.Add "zzz@xxx.com yyy@xxx.com"

xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
myFwd.HTMLBody = xStr & .HTMLBody

myFwd.Send
Set myFwd = Nothing
End Sub

Answer 1

您没有指定从哪里获取 .HTMLBody，但我认为它来自 Item 参数。

您可以这样添加：

myFwd.Recipients.Add "xxx@xxx.com"
myFwd.Recipients.Add "yyy@xxx.com"
myFwd.Recipients.Add "zzz@xxx.com"

xStr = "<p>Hi, Your email has been received. Thank you!</p>"
myFwd.HTMLBody = xStr & Item.HTMLBody

通过 VBA Outlook 自动转发电子邮件

Automatically forward email by VBA Outlook

email

outlook

vba