Question

我在脚本下面运行以在电子邮件到达时保存Outlook附件。但我经常得到运行时错误'-2147024864（80070020），这将始终阻止Outlook电子邮件的流入。请告知如何摆脱。

Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Email\"

     For Each objAtt In itm.Attachments

          objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName

          Set objAtt = Nothing
     Next
End Sub

this

Answer 1

请尝试此代码

在保存附件之前打印每个附件的名称

按ctrl-G查看＆＃34;即时窗口＆＃34;发送打印输出的地方

检查程序崩溃时打印的最后一个文件名

它可能会提供一些见解

Sub saveAttachtoDisk(itm As Outlook.MailItem)
    Dim objAtt As Outlook.Attachment
    Dim saveFolder As String
    saveFolder = "C:\Email\"

    For Each objAtt In itm.Attachments

        debug.print objAtt.DisplayName        ' print attachment name to "immediate window"

        objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName

    Next
    Set objAtt = Nothing
End Sub

获取“运行时错误”-2147024864（80070020），在到达时保存outlook附件

1 个答案: