在 Outlook Explorer 中为邮件预览着色答案

【问题标题】：Color the mail preview in outlook explorer在 Outlook Explorer 中为邮件预览着色
【发布时间】：2020-04-13 09:17:47
【问题描述】：

我编写了一个简单的测试宏，它处理传入的邮件并在 emailtext 中搜索正则表达式模式。我想在匹配的情况下格式化电子邮件预览（在 Outlook Explorer 中）。但我无法在 Outlook Explorer 中找到对当前 MailItem 的电子邮件预览进行格式化（着色）的属性。不幸的是，Outlook 也没有宏记录器。

【问题讨论】：

在列表或预览窗格中的邮件项目中预览？据我所知，没有什么比单一属性的着色预览更好的了。您能否参考一些默认的 Outlook 行为？
我会说“在邮件中预览”。 Ona 可以实现使用 Outlook 条件格式为预览着色，但条件格式不支持正则表达式。

标签： vba outlook

【解决方案1】：

无法为单个项目着色。

但是有一个解决方法：
您需要能够完成设置一个字段值，在该字段值上您可以使用条件格式编辑器构建标准格式。例如，

根据所需规则查看this sample which sets Replied field。
然后条件格式获取其特定值并为其赋予颜色。

【讨论】：

我知道，我想我可以编辑邮件主题并添加/附加我的文本。但我不知道的是，不可能通过 vba 为单个项目着色，因为 Outlook 实际上是这样做的，具有条件格式。
@user615993 - 条件格式允许大量着色（您可以按照答案中的说明使用它）。但是单个邮件项没有“颜色”属性，您可以简单地设置并直接获得所需的颜色。

【解决方案2】：

要在预览窗格中突出显示单词，请使用 Explorer.PreviewPane.WordEditor 属性（返回 Word 的 Document 对象）。然后，您可以使用以下内容：

Document.Content.Find.HitHighlight("Test", wdColorYellow, , false, true)

【讨论】：

当我尝试使用 Dim doc As Variant 然后 doc = Explorer.ActiveInlineResponseWordEditor 我收到“运行时错误 424”错误。我如何参考该文档？
对不起，您实际上需要 Explorer.PreviewPane.WordEditor
不幸的是，我得到了同样的错误：“运行时错误 424”。在上下文中没有 Explorer-object
Explorer 对象从 Application.ActiveExplorer 返回