Когда MailItem не является MailItem?

Этот код показал мне разные имена типов, которые были в папке «Входящие»:

Public Sub GetTypeNamesInbox()
Dim myOlItems As Outlook.Items
Set myOlItems = application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
Dim msg As Object

For Each msg In myOlItems
    Debug.Print TypeName(msg)
    'emails are typename MailItem
    'Meeting responses are typename MeetingItem
    'Delivery receipts are typename ReportItem
Next msg

End Sub

ХТН

Я использую следующий фрагмент кода VBA в других приложениях Office, где прямо упоминается библиотека Outlook.

' Outlook Variables

  Dim objOutlook As Outlook.Application: Set objOutlook = New Outlook.Application
  Dim objNameSpace As Outlook.NameSpace: Set objNameSpace = objOutlook.GetNamespace("MAPI")
  Dim objFolder As MAPIFolder: Set objFolder = objNameSpace.PickFolder()
  Dim objMailItem As Outlook.MailItem

  Dim iCounter As Integer:  iCounter = objFolder.Items.Count
  Dim i As Integer

  For i = iCounter To 1 Step -1
    If TypeOf objFolder.Items(i) Is MailItem Then
      Set objMailItem = objFolder.Items(i)
      With objMailItem

и т. д.

написали функцию обработки сообщений в Visual Basic для Outlook (мы используем Outlook 2003 и Exchange Server), чтобы помочь мне разобраться с входящей электронной почтой. У меня это работает, за исключением того, что иногда правило не работает, и Outlook деактивирует его. Затем я снова включаю правило и вручную запускаю его в папке «Входящие», чтобы наверстать упущенное. Правило самопроизвольно дает сбой и деактивируется несколько раз в день. Я хотел бы исправить это раз и навсегда.

Вот код, лишенный функциональности, но дающий вам представление о том, как он выглядит:

   Public WithEvents myOlItems As Outlook.Items

   Public Sub Application_Startup()
       ' Reference the items in the Inbox. Because myOlItems is declared
       ' "WithEvents" the ItemAdd event will fire below.
       ' Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
       Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
   End Sub

   Private Sub myOlItems_ItemAdd(ByVal Item As Object)
       On Error Resume Next
       If TypeName(Item) = "MailItem" Then
           MyMessageHandler Item
       End If
   End Sub

   Public Sub MyMessageHandler(ByRef Item As MailItem)
       Dim strSender As String
       Dim strSubject As String

       If TypeName(Item) <> "MailItem" Then
           Exit Sub
       End If

       strSender = LCase(Item.SenderEmailAddress)
       strSubject = Item.Subject

       rem do stuff
       rem do stuff
       rem do stuff
   End Sub

Одна ошибка, которую я получаю, - это «Несоответствие типов», вызывающее MyMessageHandler, где VB жалуется, что Item не является MailItem. Хорошо, но TypeName(Item) возвращает «MailItem», так почему Item не является MailItem?

Еще один, который я получаю, это когда приходит электронное письмо с пустой темой. Линия

strSubject = Item.Subject

дает мне ошибку. Я знаю, что Item.Subject должен быть пустым, но почему это ошибка?

Спасибо.

Моя память об этом несколько туманна, но я считаю, что MailItem не является MailItem, когда это что-то вроде уведомления о прочтении. (К сожалению, код VBA, демонстрирующий это, был написан на другой работе, и сейчас его нет.)

У меня также был написан код для обработки входящих сообщений, вероятно, по той же причине, что и вы (слишком много правил для Exchange или правила слишком сложны для Мастера правил), и, кажется, я столкнулся с той же проблемой, что и у вас, что некоторые элементы казались быть из другого типа, хотя я ловил их чем-то вроде того, что вы написали.

Я посмотрю, смогу ли я привести конкретный пример, если это поможет.

Существует множество типов элементов, которые можно увидеть в папке «Входящие» по умолчанию.

В вызываемой процедуре присвойте входящий элемент переменной типа Object. Затем используйте TypeOf или TypeName, чтобы определить, является ли это MailItem. Только тогда ваш код должен выполнять действия, применимые к электронным письмам.

i.e.

Dim obj As Object

If TypeName(obj) = "MailItem" Then
  ' your code for mail items here
End If

почему бы не использовать простой обработчик ошибок для кода? Шутки в сторону. Вы можете написать ошибку для каждого чтения свойства или объекта, которое кажется неудачным. Тогда пусть это Резюме, несмотря ни на что. Нет необходимости в сложной обработке ошибок. Подумайте о тесте, который показывает пустой предмет. Поскольку вы не знаете, какое значение он вернет, если оно вообще есть, и, похоже, он выдает ошибку на пустом или пустом объекте, вам нужно представить его как простой тест с возможной ошибкой. Запустите тест как оператор if (в котором вы все равно получите сообщение об ошибке) и возобновите работу программы при ошибке.

On Error Resume Next
If object.subject = Null 'produces an error when subject is null, otherwise allows a good read
  strSubject = ""   'sets the subject grab string to a null or empty string as a string
Else
 strSubject = object.subject 'Sets the subject grab string to the subject of the message\item
End If