Outlook VBA Rule.Enabled无法正常工作

Question

我正在尝试编写一个脚本以在特定规则的开/关之间切换，但它似乎不起作用。这就是我所拥有的：

Public Sub ToggleFwd()

    Dim olRules As Outlook.Rules
    Dim olRule As Outlook.Rule

    Set olRules = Application.Session.DefaultStore.GetRules
    Set olRule = olRules.Item("Forward Mail Info")

    If olRule.Enabled = True Then
        olRule.Enabled = False
    Else
        olRule.Enabled = True
    End If

End Sub

我还在下一节中尝试了以下代码：

Application.Session.DefaultStore.GetRules.Item("Forward Mail Info").Enabled = True

这似乎也没有做任何事情。什么似乎是问题？

Answer 1

找出我错过的东西。

最后解决这个问题，它现在有效：

olRules.Save