Otlook vbaと電子メールメッセージを転送して件名を変更するルール

Question

スクリプトを使用したルールがあり、ほとんど正常に動作します。 ルールを使用して特定の受信メールをメールアドレスに転送したいのですが、少しでも勉強してください。

私は正常に動作し、このコードを持っている：

Sub ForwardEmail(Item As Outlook.MailItem) 
    Set myForward = Item.Forward 
    myForward.Subject = ("ITS - ") & Item.Subject 
    myForward.Recipients.Add "backup@email.com" 
    myForward.Send 
End Sub 

このルールが私の署名を取得する転送メールを活性化し、また、「から：送信：To：件名：」とき私の問題がある行以前からEメール。メッセージを転送する前に削除する方法はありますか？

受信メールに基づいて新しいメールを送信すると、そのメールを送信できますか？私の電子メールには、私の場合に問題を引き起こす可能性があるように（添付ファイルではなく）本文の画像が含まれています。あなたはこの試してみたいことがあり

Answer 1

：コードの

Sub ForwardEmail(Item As Outlook.MailItem) 
    With Item.Forward 
     .Subject = ("ITS - ") & Item.Subject 
     .Recipients.Add "backup@email.com" 
     ' You need to overwrite the Body or HTMLBody to get rid of the auto signature 
     .HTMLBody = Item.HTMLBody ' <-- Or use .Body for Plain Text 
     '.Display ' <-- For Debug 
     .Send ' <-- Put break here to Debug 
    End With 
End Sub