Outlook VBA中AutoFormatRules.Add无法添加自动格式规则的问题

问题1：创建的规则不显示/不持久化 #

你的代码已经创建了AutoFormatRule，但缺少视图更改保存步骤——Outlook不会自动保存视图的修改，规则仅存在于当前内存会话中，刷新视图或重启后就会消失。修改代码如下：

Public Sub CreateAutoFormatRule()
    Dim afr As Outlook.AutoFormatRule
    Dim currentView As Outlook.View
    
    Set currentView = Outlook.ActiveWindow.CurrentView
    Set afr = currentView.AutoFormatRules.Add("Test2")
    
    With afr
       .Filter = """urn:schemas:httpmail:subject"" LIKE '%Poe%'"
       .Enabled = True
       .Font.Bold = True
    End With
    
    ' 关键操作：保存视图，让规则持久化
    currentView.Save
End Sub

运行后，你就能在自动格式对话框中找到"Test2"规则，遍历AutoFormatRules集合也能正常获取到它。

问题2：无法设置日历条目颜色 #

Outlook对象模型的AutoFormatRule确实只暴露了字体相关属性，但可以通过直接修改视图XML实现颜色设置——视图XML包含了自动格式规则的完整配置，包括条目颜色。

实现思路：

1. 获取当前视图的XML内容：currentView.XML
2. 找到"Test2"规则对应的<Rule>节点（在<AutoFormatRules>下，Name属性为"Test2"）
3. 添加颜色配置节点，比如设置背景色：

   <Rule Name="Test2" Enabled="True" Filter="urn:schemas:httpmail:subject LIKE '%Poe%'">
     <Format>
       <Font Bold="True" />
       <ItemColor>13551615</ItemColor> <!-- 十六进制颜色值，示例为浅红色 -->
     </Format>
   </Rule>
   

4. 将修改后的XML重新赋值给currentView.XML，再调用currentView.Save保存。

问题3：导出/导入规则到XML的可行性 #

你的计划完全可行，核心是通过视图XML操作规则：

• 导出：从目标视图XML中提取<AutoFormatRules>下的自定义规则节点，保存为独立XML文件。
• 导入：在目标Outlook实例中，打开对应日历视图，读取XML文件中的规则节点，插入到当前视图的<AutoFormatRules>节点内，最后保存视图。

注意：不同Outlook版本的视图XML结构可能略有差异，需确保节点格式兼容。

内容的提问来源于stack exchange，提问作者Floris Kleijne