在Outlook 2010中自动保存附件

Question

我的目标是能够将特定电子邮件地址的附件保存到本地文件夹中。我创建了一个VB脚本但由于某种原因它无法正常工作。

Public Sub saveAttachtoDisk (itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat
dateFormat = Format(Now, "dd-mm-yyyy H-mm")
saveFolder = "c:\temp\"
    For Each objAtt In itm.Attachments        
        objAtt.SaveAsFile saveFolder & "\" & dateFormate & objAtt.DisplayName        
        Set objAtt = Nothing    
    Next
End Sub

我尝试创建新模块和新规则，以便在邮件从特定地址到达时运行脚本。我也尝试将脚本放在＆＃34; ThisOutlookSession＆＃34;但没有任何作用。

Answer 1

您是否尝试在调试器下手动运行脚本？

尝试选择其他驱动器。 C：驱动器需要管理员权限才能写入。

您可能会发现Getting Started with VBA in Outlook 2010文章有用。