2016-06-30 61 views
1

我想寫一個腳本來打開/關閉特定的規則,但它似乎並沒有工作。下面是我有:展望VBA Rule.Enabled不工作

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

幫自己一個忙:刪除'如果...否則... EndIf'塊,並使用'Not'邏輯運算符。 'olRule.Enabled = Not olRule.Enabled'。還要注意,在'If'條件下將'Boolean'值/表達式與'Boolean'文字進行比較,總是*過度殺傷。 '如果{bool-expression} Then'就足夠了。 –

回答

0

找出我錯過了什麼。

末上漲了這一點,現在它工作:

olRules.Save