Vba 转发带有附件的outlook电子邮件

我正在运行Outlook 2016，我想将特定邮件转发到我的gmail。 我在outlook中的规则如下所示：

邮件到达后应用此规则->发件人地址为danlon->仅在此计算机上->运行脚本

我的脚本如下所示

Sub SendNew(Item As Outlook.MailItem) 
Dim objMsg As MailItem 
Set objMsg = Application.CreateItem(olMailItem) 
objMsg.Body = Item.Body 
objMsg.Subject = "FW: " & Item.Subject 
objMsg.Recipients.Add "my-mail@gmail.com" 

objMsg.Send 
End Sub

问题是它制作了一个新的模板（我猜）而不是forward命令，它正在工作，但它不会将附件移动到模板上。。附件是最重要的

如何做到这一点，请记住我不是任何类型的程序员。

试试下面的方法

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

    With olItem
        .Attachments.Add olItem, olEmbeddeditem
        .Subject = "FW: " & olItem.Subject
        .To = "om3r@.com" ' <- update
        .Send
    End With

    '// Clean up
    Set olItem = Nothing
End Sub

选项显式
公共子FW（作为Outlook.mailtime）
用沸石
.Attachments.Add olItem、olEmbeddeditem
.Subject=“FW:&m.Subject
.To=”om3r@.com“试试下面的方法

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

    With olItem
        .Attachments.Add olItem, olEmbeddeditem
        .Subject = "FW: " & olItem.Subject
        .To = "om3r@.com" ' <- update
        .Send
    End With

    '// Clean up
    Set olItem = Nothing
End Sub

选项显式
公共子FW（作为Outlook.mailtime）
用沸石
.Attachments.Add olItem、olEmbeddeditem
.Subject=“FW:&m.Subject
.To=”om3r@.com“'可能重复的可能重复的