在VB中检测Outlook 2007中的正文格式

Question

我正在尝试使用宏来检测Outlook 2007中电子邮件正文的格式。

  

如果正文是纯文本

     

转换为HTML

     

执行操作

     

使用Font Consolas显示为HTML   和大小为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