outlook html格式 效果,outlook中以html格式回复邮件

默认都是html或rtf格式，但一旦有人以txt格式回复了一下，整个格式就乱了，非常的难读。(除非大家都是txt格式写出来的，讲究排版，我只在linux下的mutt里这么干)

outlook似乎没有配置项，可以选择修改回复的格式，所以google一把，找到了方法：记录如下：

1.创建两个宏，一个reply，一个replay all。

2.创建两个button，分别绑上新创建的宏。

宏1：

Sub ReplyinHTMLFormat()

Dim olSel As Selection

Dim oMail As MailItem

Dim oReply As MailItem

Set olSel = Application.ActiveExplorer.Selection

Set oMail = olSel.Item(1)

If oMail.BodyFormat = olFormatPlain Or olFormatRichText Or olFormatUnspecified Then

oMail.BodyFormat = olFormatHTML

oMail.Save

End If

Set oReply = oMail.Reply

oReply.Display

Set olSel = Nothing

Set oMail = Nothing

Set oReply = Nothing

End Sub

宏2：

Sub ReplyAllinHTMLFormat()

Dim olSel As Selection

Dim oMail As MailItem

Dim oReply As MailItem

Set olSel = Application.ActiveExplorer.Selection

Set oMail = olSel.Item(1)

If oMail.BodyFormat = olFormatPlain Or olFormatRichText Or olFormatUnspecified Then

oMail.BodyFormat = olFormatHTML

oMail.Save

End If

Set oReply = oMail.ReplyAll

oReply.Display

Set olSel = Nothing

Set oMail = Nothing

Set oReply = Nothing

End Sub