无法保存Outlook文件附件

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确实存在。