Что означает этот значок Outlook?

Я создал код VBA, чтобы сохранить все вложения из всех писем в папке Outlook в физическую папку на моем компьютере. При тестировании я сталкивался с этой ошибкой. Когда полученное письмо имеет "нормальный" значок, все работает как положено. Но когда он имеет этот значок, как вы видите на моем скриншоте, код VBA выдает эту ошибку:

сообщение об ошибке 438: "объект не поддерживает это свойство или метод".

Я также не могу просматривать вложения как обычное письмо. Что я могу сделать, это select one mail > File > Save Attachments

Итак, мои вопросы: что означает значок в кружке перед электронным письмом? Как это называется, и есть ли способ обойти эту неспособность сразу же просмотреть / сохранить вложения?

Примечание. Конечно, я искал в Google, но предлагаемые им решения применимы только к обычному типу электронной почты. Кроме того, письма с этим значком являются "вышибалы"; автоответчик с сервера, когда письмо не отправляется на действительный адрес.

РЕДАКТИРОВАТЬ:

Это строка кода, которая генерирует ошибку:

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
Источник

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? для дополнительной информации.

макрос выдает сообщение об ошибке 438: "объект не поддерживает это свойство или метод".

Какая строка кода генерирует ошибку? Какой код вы используете? Не могли бы Вы уточнить?

Источник
Другие вопросы по тегам