默认都是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
