读取Outlook收件箱中信的类型(HTML/RTF/WORD/TEXT)
读取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
