Как загрузить вложения из входящих писем, относящихся к определенной категории, и изменить категорию после загрузки?

Question

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

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

Public Sub SaveNewInvoices(oItem As Outlook.Item)

Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
Dim cats() As String
Dim i As Integer

sSaveFolder = "D:\Users\fakathuria\Desktop\Invoices_Prepared\"

cats = Split(oItem.Categories, ";")

    For i = 0 To UBound(cats)

        If LCase$(cats(i)) = LCase$(Invoice_To_Be_Downloaded) Then

            For Each oAttachment In oItem.Attachments
                oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
                oItem.Categories = "Invoice_Downloaded"
            Next

        EndIf

    Next

End Sub

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

Answer 1

Outlook.Item ... Никогда не слышал об этом.Все выглядит так, как будто вы должны использовать Outlook.MailItem.

Легко понять путаницу, если вы использовали Outlook.Items в другом подпрограмме, а затем вызвать это, передавая Outlook.Items(index)