2

我有这段代码，它适用于一台计算机 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

谢谢大家！

4

1 回答 1

2

根据我们的聊天，似乎解决方案是：

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

[说明由奥术代码提供]

于 2012-11-15T00:26:08.100 回答