|12-03-2009, 12:42 PM||#1|
Join Date: Mar 2009
Thanked 0 Times in 0 Posts
Rep Power: 0
Rules to forward emails during specified time in Outlook 2003
I am wondering if anyone has advice to solve an issue I want to fix in Outlook.
I am using Outlook 2003 on an exchange server (work). I have a rule setup that will automatically forward all mail to my BlackBerry email address.
I am wanting to know if there is a way to configure this rule to either:
1) turn on at specific times (i.e. when I leave at the end of the day)
or (preferred method)
2)When I am logged into my account and Outlook is open on my PC it would not forward emails to my BlackBerry. When I close down my PC/Outlook, it would forward the emails to the BlackBerry.
Essentially, I am trying to manage the amount of emails sent to my BB. When I am in the office, I don't want to receive emails on the BB - and would like to make the rule be automatic, rather than having to deactivate it each time Outlook starts up.
|12-03-2009, 02:03 PM||#2|
Join Date: Nov 2005
Thanked 728 Times in 611 Posts
Blog Entries: 6
Rep Power: 9031
Re: Specific Rules in Outlook
If you are using exchange server, I think there is an option to set a forward in the Out of Office Autoreply settings. Just give it a try.
If you're keeping your outlook running all the day, you could try a VBA script.
Here is one I found in the web:
This is similar to the one posted in the MS Knowledge Base Article here:
How to create a custom rule in Outlook 2000 by using Visual Basic for Applications
What you need to do is insert this code in the VB Editor, then click File->Save. It should then execute automatically when you next start Outlook.
It will not operate between 7am and 3pm( replace with your office time), also you'll need to put in the forwarding address.
Public WithEvents myOlItems As Outlook.Items Public Sub Application_Startup() ' Reference the items in the Inbox. Because myOlItems is declared ' "WithEvents" the ItemAdd event will fire below. Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items End Sub Private Sub myOlItems_ItemAdd(ByVal Item As Object) ' If it's currently not between 9:00 A.M. and 5:00 P.M. If Time() < #7:00:00 AM# Or Time() > #3:00:00 PM# Then ' Check to make sure it is an Outlook mail message, otherwise ' subsequent code will probably fail depending on what type ' of item it is. If TypeName(Item) = "MailItem" Then ' Forward the item just received Set myForward = Item.Forward ' Address the message myForward.Recipients.Add "email@example.com" ' Send it myForward.Send End If End If End Sub
I haven't tested the code, but will do tomorrow when I'm at the office.
Here is another similar script:
Rule to Direct Mail to folder between 9-5, else to Inbox : folder, outlook
Want to ask a question? Try This! A guide on how to post a question, reply to a post etc.
Last edited by Strider; 12-03-2009 at 02:06 PM..
|New To Site?||Need Help?|