Outlook VBA Rule.Enabled无法正常工作

时间:2016-06-30 14:42:11

标签: vba outlook outlook-vba

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

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

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

1 个答案:

答案 0 :(得分:0)

找出我错过的东西。

最后解决这个问题,它现在有效:

olRules.Save