使用收件箱规则从Outlook 2010自动下载附件到本地或网络文件夹

Question

我有这段代码，它可以在一台计算机上运行Outlook 2010 64位，但在另一台运行32位的计算机上无法运行。我不认为这与32bit / 64有任何关系，但只是想在案例中提及它。

我已尝试过所有内容，禁用宏，将Outlook内部转出，无法使此代码正常工作。

也许第二只眼睛会找到我遗漏的东西：

Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat
dateFormat = Strings.Format(Now(), "mm_dd_yyyy_HH_MM_SS_AMPM")
saveFolder = "C:\Users\Jarvis\Desktop\Test"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & "My_Data_" & dateFormat & ".csv"
Set objAtt = Nothing
Next
End Sub

谢谢大家！

Answer 1

Based on our chat，似乎解决方案是：

1. 将您的VB宏项目中的所有内容复制到文本文件中。将文本文件保存到驱动器。
2. 关闭所有内容，重新启动计算机。
3. 转到C：\ Documents and settings \\ Application Data \ Microsoft \ Outlook文件夹。
4. 删除文件VBAProject.otm，或者（更好更安全）重命名为VBAProject.old或类似名称。
5. 打开Outlook
6. 重新打开VB宏编辑器
7. 粘贴文本文件中的代码。

[Instructions courtesy of Arcane Code]