【解決方法】VBA Outlook による電子メールの自動転送

こんにちは、みんな、

以下のコマンドを使用して、電子メールを自動的に転送しています。

メールの自動転送で困っています。

以下のいくつかの質問について教えてください

1.送信メールアドレス
現在: 送信できるメールは 1 件のみです
欲求: さまざまなメールに送信する

2. メールの内容
現在: メールの内容はまだありません
望ましい: ( title mail + any content ) を含む電子メール コンテンツに関するコマンドを追加します。

私を助けてくれてありがとう。

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"

myFwd.Send
Set myFwd = Nothing
End Sub

私が試したこと：

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; xxx@xxx.com; xxx@xxx.com"
xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
myFwd.HTMLBody = xStr & .HTMLBody

myFwd.Send
Set myFwd = Nothing
End Sub