读取Outlook收件箱中信的类型(HTML/RTF/WORD/TEXT)

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