Rule to turn off a rule

tiger10012 · #1 02-13-2013, 08:32 AM

Hi Everyone,
I have a rule, called autoforward email, which I use remotely on a few occasions. The problem is that I never remember to turn the rule off after I am done with it.
Is it possible to write a macro which enables the moment I start outlook? I wanted it to look to see if the rule is on, and, if the rule is on, then disable the rule. I am looking to have the validation occur every time I first start Outlook. I am using Outlook 2007.
Thanks in advance!

dr4ke · #2 02-14-2013, 10:36 AM

Why don't you just create a calendar entry, every morning, to prompt you to turn it off? You're over looking this... KISS (Keep It Simple Stupid).

P.s. no offence with the 'Stupid' - it's part of the saying

niton · #3 02-23-2013, 09:50 AM

http://www.outlookcode.com/threads.a...essageid=28707

As indicated in the link above, for Outlook 2007 and subsequent.

Code goes in the "ThisOutlookSession" module.

To turn the rule off at startup.

Code:

Private Sub Application_Startup()
    Dim olRules As Outlook.Rules
    Dim olRule As Outlook.Rule

    Set olRules = Application.Session.DefaultStore.GetRules
    Set olRule = olRules.Item("Rule Name")
    olRule.Enabled = False

    olRules.Save

    Set olRules = Nothing
    Set olRule = Nothing
End Sub

To turn the rule on when quitting Outlook.

Code:

Private Sub Application_quit()
    Dim olRules As Outlook.Rules
    Dim olRule As Outlook.Rule

    Set olRules = Application.Session.DefaultStore.GetRules
    Set olRule = olRules.Item("Rule Name")
    olRule.Enabled = True

    olRules.Save

    Set olRules = Nothing
    Set olRule = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Out Of Office Rule Not Selected	DrDOS	Outlook	0	11-27-2011 02:30 PM
1 Calendar to rule them all...	halcyoneus	Outlook	0	11-18-2011 02:57 PM
Rule to reply	GeeksBsmrT	Outlook	0	08-25-2010 07:08 AM
Facebook rule?	markg2	Outlook	3	08-06-2010 05:17 AM
Rule runs once, but not later	stlsailor	Outlook	0	07-28-2009 08:18 PM