Как удалить правило из Outlook через VBA?

Question

 Sub Test()
 Outlook.Session.DefaultStore.GetRules.Remove ("Close")
 End Sub

Чего мне не хватает?Вышеупомянутое не удаляет правило с таким именем ..

Answer 1

См. Пример кода ниже:

...
...
'Get Rules from Session.DefaultStore object
    Set colRules = Application.Session.DefaultStore.GetRules()

    'Loop through all rules
    For i = colRules.Count To 1 Step -1
        'Look for oRuleName
        If colRules.Item(i).Name = oRuleName Then
            'If oRuleName found, remove oRuleName rule and save rules
            colRules.Remove (oRuleName)
            colRules.Save '''''Important'''''
            GoTo Continue   'Once oRuleName found, removed and rules saved, jump to Continue
        End If
    Next

Найти ссылку здесь