VBA Outlook-即使有附件，新收到的MailItem.Attachments.Count也为0

Question

我正在尝试自动打印任何传入电子邮件中的所有附件。问题是，当我收到电子邮件时，它不包含任何附件，甚至正文是空的。

Sub LSPrint(Item As Outlook.MailItem)

    MsgBox Item.Attachments.Count

    Dim oAtt As Attachment
    For Each oAtt In Item.Attachments
        'code for print
    next oAtt
End Sub

由于某种原因，问题是Item.Attachments.Count为0。但是只要我尝试使用：

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

我得到MItem.Attachments.Count = 1，所以它可以工作，但它只打印当前所选邮件中的附件。因此，我将不得不手动选择不是很好的新收到的电子邮件。我需要自动从新收到的电子邮件中打印附件，而不必手动选择最新的电子邮件。

我还尝试在该函数内部显示电子邮件。

Item.Display

电子邮件仅显示主体为空且没有附件的主题。但是功能结束后，电子邮件中确实会显示正文和附件。