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

我有这段代码，它在一台64位Outlook 2010计算机上工作，但在另一台运行32位的计算机上不工作。我不认为这与32位/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

谢谢大家

，似乎解决方案是：

将VB宏项目中的所有内容复制到文本文件中。将文本文件保存到驱动器中

关闭一切，重新启动计算机

转到C:\Documents and settings\Application Data\Microsoft\Outlook文件夹

删除文件VBAProject.otm，或者（更好更安全）重命名为VBAProject.old或类似名称

开放式Outlook

重新打开VB宏编辑器

从文本文件中粘贴代码

---

您在32位计算机上遇到了什么错误？32位计算机是否已经创建了

saveFolder

路径？是的，我创建了该文件夹，没有收到任何错误或消息，这正是造成此问题的原因。但是，计算机在网络上，64是本地/个人的。您可以尝试在子项末尾添加此行：

MsgBox Err.Number&“：&Err.Description&“；&Err.Source

，以查看是否引发了错误。我什么也得不到，您怎么知道脚本是否正在运行？有无错误？我通常使用

MsgBox“test”

或

Debug.Print“test”

行检查是否正在运行。我不确定这是否会有帮助，但它似乎有凯文你是最伟大的-非常感谢你的时间和奉献！！