VBA autoforwardの問題

Question

私はカスタムメッセージと元のメールからの添付ファイルを含む自動転送メールのスクリプトに取り組んでいます。

コードは機能していますが、添付ファイルの一つは、このような元のメッセージです：

Example

誰もがそれを削除する方法を知っていますか？

Option Explicit 
Public Sub FW(olItem As Outlook.MailItem) 

    With olItem 
     .Attachments.Add olItem, olEmbeddeditem 
     .Subject = "" & olItem.Subject 
     .Body = "Hello there." 
     .To = "someone@somewhere.com" ' <- update 
     .Send 
    End With 

    '// Clean up 
    Set olItem = Nothing 
End Sub 

Answer 1

あなたは、これが自動的に添付ファイルを保持して、元の電子メールの転送バージョンを作成するために、.Forward方法を使用したほうが良いです。

Option Explicit 
Public Sub FW(olItem As Outlook.MailItem) 

    Dim olForward as Outlook.MailItem 
    Set olForward = olItem.Forward 

    With olForward 
     .Subject = "" & olItem.Subject 
     .Body = "Hello there." 
     .To = "someone@somewhere.com" ' <- update 
     .Send 
    End With 

    '// Clean up 
    Set olItem = Nothing 
    Set olForward = Nothing 
End Sub