T
teamakg
here's a quick summary of what i'm trying to do. if an email arrives
from a certain address after 5pm and before 7am it is automatically
forwarded to another email. i found the following code on microsoft's
site but i can't seem to modify it so that it'll do what i need.
MailItem has something called SenderEmailAddress but i can't figure out
how to use it. tia.
=================================================================
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 7:00 A.M. and 5:00 P.M.
If Time() < #7: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 "(e-mail address removed)"
' Send it
myForward.Send
End If
End If
End Sub
from a certain address after 5pm and before 7am it is automatically
forwarded to another email. i found the following code on microsoft's
site but i can't seem to modify it so that it'll do what i need.
MailItem has something called SenderEmailAddress but i can't figure out
how to use it. tia.
=================================================================
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 7:00 A.M. and 5:00 P.M.
If Time() < #7: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 "(e-mail address removed)"
' Send it
myForward.Send
End If
End If
End Sub