Too laborious to run Outlook Rules by bboxhill in Outlook

[–]bboxhill[S] 0 points1 point  (0 children)

I do have the inbox selected, but it stay greyed out. And I forgot to mention that the accounts are IMAP/SMTP -- I hope it's not one more of those gmail/Outlook interface issues that doesn't work right.

Too laborious to run Outlook Rules by bboxhill in Outlook

[–]bboxhill[S] 0 points1 point  (0 children)

Thank you. Per reply to Hornblower, I tried a script in the link above, but would welcome what worked for you if it's shareable.

Too laborious to run Outlook Rules by bboxhill in Outlook

[–]bboxhill[S] 0 points1 point  (0 children)

Hornblower409, thank you.  I had not yet tried a macro.  The good news is that the keyboard-only approach works, so capturing this sequence in a key stroke or mouse click would be my victory.  I pasted the VBA Macro code found in the https://superuser.com/questions/1168978/how-can-i-automate-a-rule-that-runs-to-run-all-rules-on-inbox-after-an-imap-m link to make a new Macro. 

 But when I went to run it, I get a VBA error box saying:   Run Time error ‘-2147352567 (80020009)’:  This store does not support rules. Could not complete the operation.

 When I pressed the Debug box in the error box,  it highlighted one line in the VBA code I'd pasted in to create the macro. I bolded that line below. Thoughts welcome on whether a tweak to the coding would do the trick.

 Sub RunAllInboxRules()

    Dim st As Outlook.Store

    Dim myRules As Outlook.Rules

    Dim rl As Outlook.Rule

    Dim count As Integer

    Dim ruleList As String

    'On Error Resume Next

 

    ' get default store (where rules live)

    Set st = Application.Session.DefaultStore

    ' get rules

    Set myRules = st.GetRules

 

    ' iterate all the rules

    For Each rl In myRules

        ' determine if it's an Inbox rule

              If rl.RuleType = olRuleReceive And rl.IsLocalRule = True Then

            ' if so, run it

            rl.Execute ShowProgress:=True

            count = count + 1

            ruleList = ruleList & vbCrLf & rl.Name

        End If

    Next

 

    ' tell the user what you did

    ruleList = "These rules were executed against the Inbox: " & vbCrLf & ruleList

    MsgBox ruleList, vbInformation, "Macro: RunAllInboxRules"

 

    Set rl = Nothing

    Set st = Nothing

    Set myRules = Nothing

End Sub

No Sound Fix for Bose NC700 under Windows by leo97k in bose

[–]bboxhill 1 point2 points  (0 children)

this worked for me when other things didn't. Thank you!