Ошибка 424 Объект требуется при попытке обработать объект mailitem - PullRequest
Новая
       41

Ошибка 424 Объект требуется при попытке обработать объект mailitem

0 голосов
/ 26 октября 2018

Правило Outlook выполняет код каждый раз, когда поступает электронная почта от определенного отправителя.Он автоматически извлечет PDF-вложение из электронных писем и поместит их в указанную папку.

Мы используем его в течение хороших 9 месяцев.

Примерно с 10/22 происходит сбойв строке For Each oAttachment In MItem.Attachments с Error 424 Object Required. в разделе DAKSave.

Я попытался изменить папку на локальную папку, та же ошибка.Эта ошибка также возникает на разных компьютерах, когда я пытаюсь использовать код (в том числе на компьютере, который ранее мог использовать этот конкретный код).

Я включил EnableUnsafeClientMailRules в regedit.

Why isn 'это работает?Почему это работает до сих пор?

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

Я открыт для предложений, которые позволят выполнить ту же автоматизированную задачу.

1 Ответ

0 голосов
/ 27 октября 2018

Ваш недостающий почтовый объект, поэтому попробуйте поработать с 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
...