Макрос Outlook 365 для отключения всех правил - PullRequest
Новая
       8

Макрос Outlook 365 для отключения всех правил

0 голосов
/ 25 сентября 2019

Я получаю сообщение об ошибке в макросе Outlook (Visual Basic) для следующей строки: Установите colRules = Application.Session.DefaultStore.GetRules

в фрагменте кода ниже, который отключает все мои правила Outlook черезэтот макрос.«Ошибка времени выполнения: ошибка, которую я получаю, это« одно или несколько правил в конфликте.Вы должны разрешить конфликт, прежде чем правила будут сохранены. "

Sub DisableAllRules()
Dim colRules As Outlook.Rules
Dim oRule As Outlook.Rule
Dim count As Integer
Dim ruleList As String
'On Error Resume Next

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

' iterate all the rules
For Each oRule In colRules
oRule.Enabled = False
count = count + 1
ruleList = ruleList & vbCrLf & count & ". " & oRule.Name
Next

colRules.Save

'tell the user what you did
ruleList = "These rules were enabled: " & vbCrLf & ruleList
MsgBox ruleList, vbInformation, "Macro: DisableAllRules"

Set colRules = Nothing
Set oRule = Nothing
End Sub
...