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

2 Methods to Always Reply in HTML Format in Outlook

发表评论

邮箱地址不会被公开。 必填项已用*标注