这个 Outlook 图标是什么意思？

Question

我编写了一个 VBA 代码，用于将 Outlook 文件夹中所有邮件的所有附件保存到我计算机上的物理文件夹中。测试时我遇到了这个错误，当我收到的电子邮件有一个 "normal" 电子邮件图标时，一切都按预期工作。但是当它有你在我的屏幕截图中看到的这个图标时，VBA 代码给出了这个错误：

error message 438: "object doesn't support this property or method".

我也无法像普通邮件一样查看附件。我能做的是 select one mail > File > Save Attachments

所以我的问题是：电子邮件前带圆圈的图标是什么意思？它的名称是什么？有没有办法绕过这种无法立即 view/save 附件的方法？

Note: of course I've searched Google but the solutions it provides only apply to the regular email type. Also, the mails with this icon are "bouncers"; auto-reply mails from a server when a mail isn't send to a valid address.

编辑：

这是产生错误的代码行：

For Each Item In SubFolder.Items

  For Each aAttachment In Item.Attachments
      If LCase(Right(aAttachment.FileName, Len(ExtString))) = LCase(ExtString) Then
          FileName = DestFolder & Item.SenderName & " " & I & aAttachment.FileName 'Item.SenderName is the error generator
          aBijlage.SaveAsFile FileName
          I = I + 1
      End If
  Next aAttachment
Next Item

Answer 1

这是一份未送达报告。有关详细信息，请参阅 What do the Outlook icons mean?。

the macro gives error message 438: "object doesn't support this property or method".

哪一行代码产生了错误？你用什么代码？能具体点吗？

Answer 2

将代码更改为

    set vItems = SubFolder.Items
    dim Item As Object
    'PR_HASATTACH = true
    set Item = vItems.Find("@SQL=""http://schemas.microsoft.com/mapi/proptag/0x0E1B000B"" = 'true' ")
    while Not (Item is Nothing)
      if Item.Class = olMail Then
        Debug.Print Item.Subject
        For Each aAttachment In Item.Attachments
            If LCase(Right(aAttachment.FileName, Len(ExtString))) = LCase(ExtString) Then
                FileName = DestFolder & Item.SenderName & " " & I & aAttachment.FileName 'Item.SenderName is the error generator
                aAttachment.SaveAsFile FileName
                I = I + 1
            End If
        Next aAttachment
      End If
      set Item = vItems.FindNext
    wend

这个 Outlook 图标是什么意思？

What does this Outlook icon mean?

vba

email

outlook

outlook-2007