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

Question

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

如果正文是纯文本

转换为 HTML

执行操作

使用 Font Consolas 显示为 HTML 大小为 10.5

否则如果正文是 HTML 格式

执行操作并将其显示为 HTML 本身

我知道可以使用以下方式更改正文的格式：

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