Dim OL As New Outlook.Application
Dim OLNameSP As Outlook.NameSpace
Dim OLMFolder As Outlook.MAPIFolder
Dim OLMItem As Outlook.MailItem
Dim i As Integer
Set OLNameSP = OL.GetNamespace("MAPI")
Set OLMFolder = OLNameSP.GetDefaultFolder(olFolderInbox)
For i = 1 To OLMFolder.Items.Count
Set OLMItem = OLMFolder.Items.Item(i)
Select Case OLMItem.GetInspector.EditorType
Case olEditorText
Debug.Print i & " " & "olEditorText"
' Debug.Print OLMItem.Body
Case olEditorHTML
Debug.Print i & " " & "olEditorHTML"
' Debug.Print OLMItem.HTMLBody
Case olEditorRTF
Debug.Print i & " " & "olEditorRTF"
Case olEditorWord
Debug.Print i & " " & "olEditorWord"
' Debug.Print OLMItem.GetInspector.EditorType
Case Else
Debug.Print i & " " & "Unknow"
End Select
Next