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