有条件地更改 *message* 正文字体
Conditionally change the *message* body font
我想以 Courier New 或其他固定大小的字体显示来自某个发件人的电子邮件的正文字体，因为它们包含 ASCII 表。所有其他邮件应使用 Outlook 2010 默认字体。
请注意，我不关心视图窗格中使用的字体（视图设置中的条件格式规则），或为所有消息设置默认正文字体。我问的是基于发件人电子邮件的自动、有条件设置的字体。
如果无法自动更改消息字体，在阅读和撰写消息时切换字体的最快方法是什么？
您不能开箱即用，尤其是对于被视为只读的已收到邮件。
对于您撰写的邮件，您可以使用如下方式更改字体样式：
'set Msg = Application.ActiveExplorer.Selection(1)
set Msg = Application.ActiveInspector.CurrentItem
set insp = Msg.GetInspector
set doc = insp.WordEditor
for each p in doc.Paragraphs
set r = p.Range
r.Font.Name = "Arial"
r.Font.Size = 14
r.Select
next
我想以 Courier New 或其他固定大小的字体显示来自某个发件人的电子邮件的正文字体，因为它们包含 ASCII 表。所有其他邮件应使用 Outlook 2010 默认字体。
请注意，我不关心视图窗格中使用的字体（视图设置中的条件格式规则），或为所有消息设置默认正文字体。我问的是基于发件人电子邮件的自动、有条件设置的字体。
如果无法自动更改消息字体，在阅读和撰写消息时切换字体的最快方法是什么？
您不能开箱即用，尤其是对于被视为只读的已收到邮件。
对于您撰写的邮件，您可以使用如下方式更改字体样式：
'set Msg = Application.ActiveExplorer.Selection(1)
set Msg = Application.ActiveInspector.CurrentItem
set insp = Msg.GetInspector
set doc = insp.WordEditor
for each p in doc.Paragraphs
set r = p.Range
r.Font.Name = "Arial"
r.Font.Size = 14
r.Select
next