Vb.net 在Outlook 2010中自动保存附件

我的目标是能够将附件从特定电子邮件地址保存到本地文件夹。我已经创建了一个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”，但没有任何效果。

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

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

---

您可能会发现这篇文章很有帮助。

您确定它正在运行吗？也许代码没有在你想要的条件下被触发，我不知道。我该怎么检查呢？代码实际上是运行的。它没有保存的原因是因为我使用的是C:驱动器，所以我将文件保存到网络驱动器，这样它就可以工作了！非常感谢。