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