forcing a rule when opening outlook via code

Status
Not open for further replies.
T

thomas donino

The code below runs in an Excel workbook open event. It does so to retrieve

the attachments excel needs from the nightly emails. The rule i have set up

in Outlook is always unchecked when Excel opens outlook so I put in a line of

code to force the rule. it executes the show progress of the rule but nnoe of

what the rule is supposed to do is done AND when i go to Tools>Rules the rule

is unchecked. How can i force the rule i want to be checked when Outlook is

opened via this method?

Sub DoThisonOpen()

Dim objApp As Outlook.Application

Dim objNS As Namespace

Dim objCurrInbox As MAPIFolder, objExplorer As Object

On Error Resume Next

'close outlook if its already open, so I can reopen and do

send/receive all

Set objApp = GetObject(, "Outlook.Application")

If Err.Number = 429 Then

Err.Number = 0

Set objApp = New Outlook.Application

Else

objApp.Quit

Sleep 3000

Set objApp = New Outlook.Application

End If

Set objNS = objApp.GetNamespace("MAPI")

Set objCurrInbox = objNS.GetDefaultFolder(olFolderInbox)

objCurrInbox.Display

Set objExplorer = objCurrInbox.GetExplorer

objExplorer.Activate

objExplorer.CommandBars("Standard").Controls("Send/Re&ceive").Execute

Sleep 30000

' code to make the rule active

objApp.Session.DefaultStore.GetRules.Item("xtrader export").Execute

ShowProgress:=True

Sleep 30000

'reset the variables

Set objNS = Nothing

Set objCurrInbox = Nothing

Set objExplorer = Nothing

'close outlook

objApp.Quit

Set objApp = Nothing

End Sub
 
Since the computer is on all night, have you considered rewriting your

code to work from Outlook, instead of Excel? You could rewrite the

rule as VBA.

--JP

On Nov 23, 8:38 am, thomas donino

<thomasdon...> wrote:
> The code below runs in an Excel workbook open event. It does so to retrieve
> the attachments excel needs from the nightly emails. The rule i have set up
> in Outlook is always unchecked when Excel opens outlook so I put in a line of
> code to force the rule. it executes the show progress of the rule but nnoe of
> what the rule is supposed to do is done AND when i go to Tools>Rules the rule
> is unchecked. How can i force the rule i want to be checked when Outlook is
> opened via this method?
>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
T Forcing HTML for replies in Outlook 2013 Using Outlook 4
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
HarvMan Outlook 365 - Rule to Move an Incoming Message to Another Folder Using Outlook 4
B Modify VBA to create a RULE to block multiple messages Outlook VBA and Custom Forms 0
D VBA - unable to set rule condition 'on this computer only' Outlook VBA and Custom Forms 5
CWM550 This rule has a condition that the server cannot process? Using Outlook 1
A rule name into message - how? Outlook VBA and Custom Forms 5
O Mail rule issue Using Outlook 3
A manual rule sends mail to wrong folder Using Outlook 5
Aussie Outlook 365 Rule runs manually but returns the error code "an unexpected error has occurred" when incoming mail arrives Using Outlook 1
bhamberg Finding a rouge rule... Using Outlook 6
D How to get this rule to work Using Outlook 0
B Seeking help with Outlook rule Using Outlook 2
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
G Save attachment run a script rule Outlook VBA and Custom Forms 0
R Rogue Outlook Rule ? Using Outlook 2
P Can I create a Rule that sends me an email when I get a Task? Using Outlook 2
E Having some trouble with a run-a-script rule (moving mail based on file type) Outlook VBA and Custom Forms 5
M How create a Rule to filter sender's email with more that one @ sign Using Outlook 1
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
1 Incorrectly Setup a Rule at Domain level to not allow address from outside domain Exchange Server Administration 2
J Transport Rule to detect Keyword question.. Exchange Server Administration 2
T "Words In Recipient's Address" Rule Causes Outlook To Stop Processing Rules Using Outlook 3
R Outlook Autoforward rule do not work for NDR messages Using Outlook 1
R Setup autofoward rule on a particular folder in Outlook Using Outlook 0
N Rule for "on behalf of" - with changing names Using Outlook 2
S Unable to remove rule outlook 2010 Using Outlook 0
O Outlook 2016 This rule will only run when you check your email in Outlook.... Using Outlook 4
Nadine Rule to move attachments with specific name Outlook VBA and Custom Forms 1
N Outlook Email Rule execution through shortcut keys (VBA codes) Using Outlook 1
dweller Outlook 2010 Rule Ignores VBA Script Outlook VBA and Custom Forms 2
O Rule to move (specific) messages from Sent folder to Specific folder Using Outlook 1
S Adding new Exchange (2016) rule very slow down Microsoft Outlook Exchange Server Administration 0
B Outlook rule run a Script doesn't work Outlook VBA and Custom Forms 1
K VBA BeforeItemMove event create rule to always move to its folder. Outlook VBA and Custom Forms 4
icacream Rule based on sender / wrong sender sent to folder Using Outlook 7
Bri the Tech Guy Run Script rule not running for newly arriving messages Outlook VBA and Custom Forms 25
L Making rule to move email to folder from one O365 domain Using Outlook 1
J Assess content of User Defined Field in Rule Using Outlook 3
S Send email via SMTP - use transport rules to add to senders inbox (then rule to move to sent items Exchange Server Administration 1
A Change order of actions in one (!) rule Outlook VBA and Custom Forms 2
J HELP- Rule to auto strip prepend from external emails Using Outlook 0
A Forward Outlook Email by Filtering using Macro Rule Outlook VBA and Custom Forms 44
A rule to flag messages not working Using Outlook 5
Brian Murphy Exchange Online Everything a Transport Rule should do and cannot Exchange Server Administration 1
J Outlook Rules - Changing auto-submit address in multiple rules, according to rule name Outlook VBA and Custom Forms 0
A saving attachement to folder named the same as rule name Outlook VBA and Custom Forms 0
Jennifer Murphy Can I create a Rule with Or'd conditions? Using Outlook 1
A Rules - how to determine if all conditions in rule are true or false Outlook VBA and Custom Forms 5
Vijay Error in rule- Run a script Using Outlook 1

Similar threads

Back
Top