Question

即时运行Outlook 2016，我想将特定邮件转发到我的Gmail。我对Outlook的看法如下：

邮件到达后应用此规则 - ＆gt;在发件人的地址中使用 danlon - ＆gt;仅在此计算机上 - ＆gt;运行脚本

我的脚本如下

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

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

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

Answer 1

请尝试以下操作。

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

转发Outlook电子邮件附件

1 个答案: