Wann ist ein MailItem nicht ein MailItem?

Dieser code zeigte mir die verschiedenen TypeNames, die waren in meinem Posteingang:

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

HTH

geschrieben haben, eine message-handler-Funktion in Outlook ist die VBA (wir benutzen Outlook 2003 und Exchange Server) zu helfen, mich zu Sortieren eingehende E-Mail. Es ist für mich arbeiten, außer manchmal die Regel fehl, und Outlook deaktiviert. Dann Wende ich die Regel wieder auf und manuell führen Sie es auf meinem Posteingang, um aufzuholen. Der Regel spontan ausfällt und deaktiviert mehrmals am Tag. Ich würde gerne dieses Problem beheben, sobald und für alle.

Hier ist der code, der beraubt die Funktionalität, sondern gibt Ihnen eine Vorstellung davon, wie es aussieht:

   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

Einen Fehler bekomme ich "Typen unverträglich" aufrufen MyMessageHandler, in denen die VB beschwert sich, dass Item ist nicht ein MailItem. Okay, aber TypeName(Item) gibt "MailItem", also wie kommen Artikel ist kein MailItem?

Anderen, den ich bekommen ist, wo eine E-Mail mit leerem Betreff kommt. Die Linie

strSubject = Item.Subject

gibt mir eine Fehlermeldung. Ich weiß Element.Thema sollte leer sein, aber warum ist das ein Fehler?

Dank.

Es gibt viele Arten von Gegenständen, die gesehen werden in den Standard-Posteingang.

In den genannten Verfahren weisen Sie die eingehenden Element zu einem Object - Typ-Variablen. Dann nutzen Sie TypeOf oder TypeName zu ermitteln, ob es ein MailItem. Nur dann sollten Sie Ihren code ausführen von Aktionen für E-Mails.

d.h.

Dim obj As Object

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

warum nicht eine einfache Fehlerbehandlung für den code? Ernst. Sie schreiben, könnte ein Fehler für jedes Lesen einer Eigenschaft oder Objekt, das scheint zu scheitern. Dann haben Sie es Fortsetzen, egal was. Keine Notwendigkeit für komplexe Fehlerbehandlung. Denke, ein test, der zeigt eine leere Thema. Da Sie nicht wissen, welcher Wert wird zurückgegeben, wenn überhaupt, und es scheint, um Fehler auf eine leere oder leere Thema, Sie müssen sich das vorstellen wie ein einfacher test mit einem möglichen Fehler. Führen Sie den test wie eine if-Anweisung (in dem Sie eine Fehlermeldung erhalten, trotzdem), und das Programm fortsetzen auf Fehler.

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