尝试处理 mailitem 对象时需要错误 424 对象答案

【问题标题】：Error 424 Object Required when attempting to process a mailitem object尝试处理 mailitem 对象时需要错误 424 对象
【发布时间】：2019-03-31 11:57:06
【问题描述】：

每次收到来自某个发件人的电子邮件时，Outlook 规则都会执行代码。它会自动从电子邮件中提取 PDF 附件并将它们放入指定的文件夹中。

我们已经使用了 9 个月。

从 10 月 22 日左右开始，它在 DAKSave 部分中的 For Each oAttachment In MItem.Attachments 行与 Error 424 Object Required. 崩溃。

我尝试将文件夹更改为本地文件夹，同样的错误。当我尝试使用该代码时，此错误也会发生在不同的计算机上（包括以前能够使用该特定代码的计算机）。

我在 regedit 中启用了 EnableUnsafeClientMailRules。

为什么它不起作用？为什么它一直工作到现在？

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String

    sSaveFolder = "S:\Fax\FAX AUTODUMP\"

    For Each oAttachment In MItem.Attachments
        oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next

End Sub

Sub DAKSave()
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String

    sSaveFolder = "S:\Fax\FAX AUTODUMP\"

    For Each oAttachment In MItem.Attachments
        oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next

End Sub

我愿意接受可以完成相同自动化任务的建议。

【问题讨论】：

您是否尝试过将目标文件夹临时更改为本地某个位置？另外，您能否在代码中设置断点并单步执行以查看错误发生在哪一行？（我之前没有在 Outlook 中尝试过）
哪一行有错误？
看看这是否有帮助，您可能需要更新过滤器 - stackoverflow.com/a/49184312/4539709
出现错误：对于 MItem.Attachments 中的每个 oAttachment 在 DAKSave 部分中，我还尝试将文件夹更改为本地文件夹，同样的错误。当我尝试使用该代码时，此错误也会发生在不同的计算机上（包括以前能够使用该特定代码的计算机）。
@0m3r- 我已经在 regedit 中启用了 EnableUnsafeClientMailRules，因此不需要解决方法我认为抱歉延迟回复，我正在工作，我被淹没了。

标签： vba outlook outlook-2010

【解决方案1】：

您丢失的邮件项目对象，因此请尝试使用ActiveExplorer.Selection.Item(1)

Option Explicit
Sub DAKSave()
    Dim sSaveFolder As String
    sSaveFolder = "S:\Fax\FAX AUTODUMP\"

    Dim MItem As Outlook.MailItem
    Set MItem = ActiveExplorer.Selection.Item(1)

    Dim oAttachment As Outlook.attachment
    For Each oAttachment In MItem.Attachments
        oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next
End Sub

【讨论】：

【解决方案2】：

MItem 不作为参数传递给DAKSave 子。 MItem 在 DAKSave 中未定义。它仅在SaveAttachmentsToDisk sub 中可用。

【讨论】：