转发Outlook电子邮件附件

即时通讯运行Outlook 2016，我想转发特定的邮件到我的Gmail。我在Outlook中的规则是这样的：转发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 "[email protected]" 

objMsg.Send 
End Sub

问题是，它的制作，而不是正向命令一个新的模板（我猜），它是工作，但它不附件移动到模板..和附件是最重要的。

我该怎么做，请记住，我不是任何形式的程序员。

来源

2016-02-24 Maikeru Anonymous

的可能的复制[VBA来转发电子邮件的Outlook 2010中附件（http://stackoverflow.com/questions/28840066/vba-to-forward-email-with-its-attachment-in-展望-2010） – niton

请尝试以下操作。

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

    With olItem 
     .Attachments.Add olItem, olEmbeddeditem 
     .Subject = "FW: " & olItem.Subject 
     .To = "[email protected]" ' <- update 
     .Send 
    End With 

    '// Clean up 
    Set olItem = Nothing 
End Sub

来源

2016-02-25 18:57:06 0m3r

转发Outlook电子邮件附件

回答

相关问题