Beginner Needs VBA Help in Modifying Code

Status
Not open for further replies.
C

Cody

I am using Outlook 2003 and want to do the following:

Email received between 6 pm to 9 am is forwarded to zyx@123.lyz

Email received between Friday @ 6pm to Monday @ 9 am is forwarded to

zyx@123.lyz

Email received between 9am to 6pm is forwarded to abc@123.lyz

I have looked on the web and found the following code on the MS website; but

unfortunately I am not sure where I am suppose to modify it. If you can

give me any guidance, I would appreciate it.

********

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() < #9:00:00 AM# Or Time() > #5: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 "myaddress@mydomain.com"

' Send it

myForward.Send

End If

End If

End Sub

********

Thanks...Cody
 
I responded to this exact question yesterday, see

http://groups.google.com/group/micr.../browse_thread/thread/f4f24cb355cac433?hl=en#

--JP

On Sep 24, 12:54 pm, Cody <C...> wrote:
> I am using Outlook 2003 and want to do the following:

> Email received between 6 pm to 9 am is forwarded to z...@123.lyz
> Email received between Friday @ 6pm to Monday @ 9 am is forwarded to
> z...@123.lyz
> Email received between 9am to 6pm is forwarded to a...@123.lyz

> I have looked on the web and found the following code on the MS website; but
> unfortunately I am not sure where I am suppose to modify it.   If you can
> give me any guidance, I would appreciate it.

> ********

> 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() < #9:00:00 AM# Or Time() > #5: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 "myaddr...@mydomain.com"

>          ' Send it
>          myForward.Send

>       End If

>    End If

> End Sub

> ********
> Thanks...Cody
 
There's already the code for items received between 5pm and 9am. If you want

to add another condition, you can use the ElseIf statement like this:

If ... Then

> ..

ElseIf ... Then

> ..

End If

Best regards

Michael Bauer

Am Thu, 24 Sep 2009 09:54:01 -0700 schrieb Cody:


> I am using Outlook 2003 and want to do the following:

> Email received between 6 pm to 9 am is forwarded to zyx@123.lyz
> Email received between Friday @ 6pm to Monday @ 9 am is forwarded to
> zyx@123.lyz
> Email received between 9am to 6pm is forwarded to abc@123.lyz

> I have looked on the web and found the following code on the MS website;


but
> unfortunately I am not sure where I am suppose to modify it. If you can
> give me any guidance, I would appreciate it.

> ********

> 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() < #9:00:00 AM# Or Time() > #5: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 "myaddress@mydomain.com"

> ' Send it
> myForward.Send

> End If

> End If

> End Sub

> ********
> Thanks...Cody
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
N Beginner - Setting SMTP settings/travelling Using Outlook 4
A Arthur needs help with 2007 Outlook e-mail Using Outlook.com accounts in Outlook 3
C Newbie needs help with Outlook Macro Outlook VBA and Custom Forms 3
lotsbg Loads of junk in second email needs fixing Using Outlook 1
R Narcotics Police Officer Needs help Using Outlook 1
Y Changing colour of selection bar in Outlook (too light, needs to be grey) Using Outlook 4
J Newbie needs help Outlook VBA and Custom Forms 2
H using VBA to edit subject line Outlook VBA and Custom Forms 0
G Get current open draft message body from VBA Outlook VBA and Custom Forms 1
Geldner Problem submitting SPAM using Outlook VBA Form Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
M Outlook 2016 outlook vba to look into shared mailbox Outlook VBA and Custom Forms 0
V VBA Categories unrelated to visible calendar and Visual appointment Categories Outlook VBA and Custom Forms 2
D Outlook VBA forward the selected email to the original sender’s email ID (including the email used in TO, CC Field) from the email chain Outlook VBA and Custom Forms 2
R Outlook 365 VBA AUTO SEND WITH DELAY FOR EACH EMAIL Outlook VBA and Custom Forms 0
R Outlook 2019 VBA to List Meetings in Rooms Outlook VBA and Custom Forms 0
geoffnoakes Counting and/or listing fired reminders via VBA Using Outlook 1
O VBA - Regex - remove double line spacing Outlook VBA and Custom Forms 1
D.Moore Strange VBA error Outlook VBA and Custom Forms 4
B Modify VBA to create a RULE to block multiple messages Outlook VBA and Custom Forms 0
D Outlook 2021 Using vba code to delete all my spamfolders not only the default one. Outlook VBA and Custom Forms 0
K vba code to auto download email into a specific folder in local hard disk as and when any new email arrives in Inbox/subfolder Outlook VBA and Custom Forms 0
D VBA - unable to set rule condition 'on this computer only' Outlook VBA and Custom Forms 5
L Fetch, edit and forward an email with VBA outlook Outlook VBA and Custom Forms 2
BartH VBA no longer working in Outlook Outlook VBA and Custom Forms 1
W Can vba(for outlook) do these 2 things or not? Outlook VBA and Custom Forms 2
MattC Changing the font of an email with VBA Outlook VBA and Custom Forms 1
P MailItem.To Property with VBA not work Outlook VBA and Custom Forms 2
P Tweak vba so it can target another mailbox Outlook VBA and Custom Forms 1
A Outlook 2010 VBA fails to launch Outlook VBA and Custom Forms 2
richardwing Outlook 365 VBA to access "Other Actions" menu for incoming emails in outlook Outlook VBA and Custom Forms 0
W Create a Quick Step or VBA to SAVE AS PDF in G:|Data|Client File Outlook VBA and Custom Forms 1
J Outlook Rules VBA Run a Script - Multiple Rules Outlook VBA and Custom Forms 0
C Outlook (desktop app for Microsoft365) restarts every time I save my VBA? Using Outlook 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
TedSch Small vba to kill political email Outlook VBA and Custom Forms 3
E Outlook 365 Outlook/VBA Outlook VBA and Custom Forms 11
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
Z VBA Forward vs manual forward Outlook VBA and Custom Forms 2
J VBA Cannot programmatically input or change Value for User Defined field Using Outlook 1
J VBA for outlook to compare and sync between calendar Outlook VBA and Custom Forms 1
A Any way to force sort by/group by on search results with VBA? Outlook VBA and Custom Forms 1
E Default shape via VBA Outlook VBA and Custom Forms 4
A Change settings Send/receive VBA Outlook VBA and Custom Forms 0
Z Import Tasks from Access Using VBA including User Defined Fields Outlook VBA and Custom Forms 0
E Outlook VBA change GetDefaultFolder dynamically Outlook VBA and Custom Forms 6
justicefriends How to set a flag to follow up using VBA - for addressee in TO field Outlook VBA and Custom Forms 11
M add new attendee to existing meetings with VBA Outlook VBA and Custom Forms 5
D VBA code to select a signature from the signatures list Outlook VBA and Custom Forms 3
D Create advanced search (email) via VBA with LONG QUERY (>1024 char) Outlook VBA and Custom Forms 2

Similar threads

Back
Top