我已经开发了一个宏，可以从分配给特定类别的Outlook电子邮件中下载附件，并在下载后更改类别

Question

我已经创建了一个宏代码，使我能够从Outlook中分配给特定类别的电子邮件中下载附件，并将电子邮件分配给其他类别。宏出现故障（附件未下载），我需要修改代码的帮助。

我已经在Outlook中使用规则对具有特定主题行的某些电子邮件进行了分类，并在规则中附加了宏，以下载分配给该类别的附件。然后，宏将这些电子邮件重新分配到其他类别。

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)时调用它，则易于理解混乱之处>