For Each ouo As Object In inBox.Items
            Dim mi As Outlook.MailItem
            Dim pi As Outlook.PostItem
            If TypeOf ouo Is Outlook.MailItem Then
                mi = ouo
                Debug.WriteLine(mi.MessageClass)
                Debug.WriteLine(mi.Subject & " " & mi.UnRead.ToString())
            End If
            If TypeOf ouo Is Outlook.PostItem Then
                pi = ouo
                Debug.WriteLine(pi.MessageClass)
            End If
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist