在 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

我已经尝试创建一个新模块和一个新规则，以便当邮件从特定地址到达时运行脚本。我也尝试将脚本放入 "ThisOutlookSession" 但没有任何效果。

Answer 1

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

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

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

在 Outlook 2010 中自动保存附件

Auto-save attachments in Outlook 2010

vb.net

outlook