Скрипт Outlook не сохраняет вложения

Question

Ниже правил Outlook предполагается сохранить вложение с адреса sender@bookstore.com с строкой темы «Покупка подарочной карты» на диск, а затем переместить электронное письмо в папку «Удалить элементы», чтобы оно больше не обрабатывалось.Правило запускается, когда оно получает новое электронное письмо и перемещает его в папку «Удалить элементы», но не сохраняет вложение.

Я подозреваю, что правило сначала перемещает сообщение в папку «Удалить элементы», а затем выполняет сценарий для сохранения вложения электронной почты, которого больше нет в папке «Входящие».

Я не могу изменить последовательность приведенного ниже правила Outlook, чтобы сначала выполнить скрипт, затем переместить сообщение, но Outlook не позволяет.

Любая рекомендация?

Apply this rule after the message arrives
from sender@bookstore.com
 and with Gift Card Purchase in the subject
 and on this computer only
move it to the Deleted Items folder
 and run Project1.SaveAttachment

Public Sub SaveAttachment(MItem As Outlook.MailItem)
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String
    sSaveFolder = "C:\Temp\"
    For Each oAttachment In MItem.Attachments
        oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next
End Sub

Answer 1

Работа с MailItem.Delete Method (Outlook) с вашим кодом

Обновите правило, удалив move it to the Deleted Items folder, затем добавьте следующее в свойкод MItem.Delete после Next

Пример

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

MItem.Delete