将附件保存到本地文件夹

Question

我试图解决一个问题，是弹出时运行的代码保存附件到本地文件夹。在错误消息下面，翻译过来是:执行期间错误-2147024891(80070005):无法保存文件。您没有权限访问此文件夹。

错误消息

查找错误时，出现以下内容:[错误信息2][2]

有趣的是，直到上个月的某个时候，我才能够运行代码，据我所知，授权没有变化。有人知道我在哪里可以找到解决方案吗?

Answer 1

您确定在Excel工作表中指定的文件夹存在于磁盘上吗?

在您的代码中，不清楚传递给SaveAsFile方法的实际文件路径是什么。首先，我建议确保在代码中作为参数提供有效的文件路径，例如:

Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat

saveFolder = "C:UsersUSERNAMESaved"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub