Listing 1: Code to Display Inbox Item Information
NONEXECUTABLE

Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set colInbox = objNS.GetDefaultFolder(olFolderInbox).Items
For Each objItem In colInbox
    Debug.Print TypeName(objItem) & _
                " - " & objItem.Class & _
                " - " & objItem.MessageClass
Next