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