回复电子邮件时更改为RTF [英] Change to RTF when replying to emails

问题描述

当我编写任何新电子邮件时，Outlook（我现在使用的是Office 365）可以让我以RTF格式启动它们。

When I am writing any new emails, Outlook (I am now using Office 365) lets me initiate those in RTF format.

但是，当我回复我以html格式或文本格式收到的电子邮件时，Outlook会维护初始电子邮件的格式。

However, when I reply to emails I receive in html format or in text format, Outlook maintains the format of the initial email.

目前，我正在手动更改为RTF通过按下"格式文本"中的相应按钮。功能区的选项卡。

Currently, I am changing to RTF manually by pressing the respective button in the "Format Text" tab of the ribbon.

我想自动将回复信息的格式更改为RTF。你可以帮我提供吗？

I would like to automatically change a the format of a reply message into RTF. Could you help me deliver that?

非常感谢，

Doru

推荐答案

您好DoruA，

Hi DoruA,

Outlook将始终回复并转发原始邮件的格式（纯文本，富文本或HTML）相同。没有选择来改变它。我想你必须做一些程序自动化。

Outlook will always reply and forward in the same format (Plain Text, Rich Text or HTML) of the original message. There is no option to change it. I think you have to do some program automation.

我建议你使用VBA代码来做这件事。

Here I would suggest you use VBA code to do this.

我们需要
的使用Explorer.SelectionChange 获取邮件对象，然后使用

MailItem.Reply / < span style ="font-family：'Times New Roman'，serif; color：black"> MailItem.ReplyAll
捕获回复邮件的事件。收到回复邮件后，我们可以使用
< span style ="font-family：'Times New Roman'，serif; color：black"> MailItem.BodyFormat 邮寄给RTF。

We need use Explorer.SelectionChange to get the mail object and then use MailItem.Reply/MailItem.ReplyAll event to capture reply mail. After getting the reply mail, we could use MailItem.BodyFormat to mail to RTF.

这是示例。

Private WithEvents olExplorer As Explorer

Private WithEvents olMailitem As MailItem

'will start up after restarting outlook

Private Sub Application_Startup()

   Set olExplorer = Application.ActiveExplorer

End Sub

Private Sub olExplorer_SelectionChange()

   If olExplorer.Selection.Count = 1 Then

   On Error Resume Next

   Set olMailitem = olExplorer.Selection.Item(1)

   End If

End Sub

Private Sub olMailitem_Reply(ByVal Response As Object, Cancel As Boolean)

   Dim oResponse As MailItem

   Set oResponse = olMailitem.Reply

   olMailitem.BodyFormat = olFormatRichText

End Sub

Private Sub olMailitem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

  Dim oResponse As MailItem

   Set oResponse = olMailitem.Reply

   olMailitem.BodyFormat = olFormatRichText

End Sub

最好的问候，

Terry

这篇关于回复电子邮件时更改为RTF的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！