Question

我有一个Outlook规则，用于搜索特定附件的邮件，然后使用下面的VBA脚本保存附件。它已成功运行了一年多，但最近一直失败并返回以下错误：

运行时错误'-2147024864（80070020）'：无法保存附件。

这是脚本：

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\temp\"
     For Each objAtt In itm.Attachments
          objAtt.SaveAsFile saveFolder & "\inventory.csv"
          Set objAtt = Nothing
     Next
End Sub

当我运行调试时，它指向此行作为问题的根源：

objAtt.SaveAsFile saveFolder & "\inventory.csv"

objAtt项目在电子邮件消息中名为searchresults.csv，在点击VBA脚本时似乎已正确定义。我看不出这条线路可能出现的任何其他问题，如上所述，到目前为止，它的工作效果还不错。

有谁知道为什么这个脚本现在会破坏以及我如何解决它？

虽然此问题类似于this one，但我没有在那里找到解决方案。

Answer 1

你用反斜杠加倍。要么将它包含在路径的末尾或文件名的开头，而不是两个地方。我会假设你已经肯定C:\temp确实存在。

无法保存Outlook文件附件

1 个答案: