我正在使用以下命令自動轉發電子郵件。我已經添加了 Outlook 規則。
我在自動轉發電子郵件時遇到問題。
請幫我解決以下幾個問題
- 外發電子郵件地址
目前：只能發送 1 封電子郵件
愿望：發送到許多不同的電子郵件
- 郵件內容
目前：還沒有郵件內容
期望：添加關于電子郵件內容的命令，包括（標題郵件 任何內容）
謝謝你幫助我。
Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem
Set myFwd = Item.Forward
myFwd.Recipients.Add "[email protected]; [email protected]; [email protected]"
xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
myFwd.HTMLBody = xStr & .HTMLBody
myFwd.Send
Set myFwd = Nothing
End Sub
uj5u.com熱心網友回復：
你沒有說明你.HTMLBody從哪里得到，但我認為它來自Item論點。
您可以像這樣添加：
myFwd.Recipients.Add "[email protected]"
myFwd.Recipients.Add "[email protected]"
myFwd.Recipients.Add "[email protected]"
xStr = "<p>Hi, Your email has been received. Thank you!</p>"
myFwd.HTMLBody = xStr & Item.HTMLBody
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/359926.html
上一篇：System.Diagnostics.TraceSource不向ApplicationInsights發送資料
下一篇：Outlook插件VSTO