Определение формата тела в Outlook 2007 в VB

Question

Я пытаюсь определить формат тела сообщения электронной почты в outlook 2007 с помощью макроса.

, если тело - простой текст

конвертировать в HTML

выполнить операцию

Отображать как HTML с шрифтами Consolas и размер как 10,5

иначе, если тело в HTML

perform the operation and display it as HTML itself

Я знаю, чтобы изменить формат тела с помощью

Dim objMail As Outlook.MailItem
strID = MyMail.EntryID
Set objMail = Application.Session.GetItemFromID(strID)
objMail.BodyFormat = olFormatHTML ' changes to HTML/Richtext/plaintext

есть также подробная документация, доступная по http://msdn.microsoft.com/en-us/library/dd492012%28v=office.12%29.aspx

Это не говорит об определении формата тела элемента в outlook. Так как же мне определить формат для тела элемента в электронном письме?

Answer 1

Почему бы вам просто не проверить значение objMail.BodyFormat?

olFormatHTML = 2
olFormatPlain = 1
olFormatRichText = 3
olFormatUnspecified = 0

Answer 2

Вот пример того, как обнаружить и изменить формат тела:

If objMail.BodyFormat = olFormatPlain Then
    objMail.BodyFormat = olFormatHTML
End If