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