VB and VBA Users Source Code: Forward new outlook mail and appointments
[
Home
|
Contents
|
Search
|
Reply
| Previous | Next ]
VB/VBA Source Code
Forward new outlook mail and appointments
By:
Andrew Baker
Email (spam proof):
Email the originator of this post
Date:
Friday, March 09, 2001
Hits:
887
Category:
Internet/Remote Comms
Article:
The following code demonstrates a simple method of forwarding new email and appointments to a specified email address. Paste the following code into a class module and if you are working outside the Outlook VBA environment you will need to add a reference to "Microsoft Outlook 9.0 Object Library". NOTE: Add to following code to a Class module and name the Class clsFoward Option Explicit Private WithEvents oOutlook As Outlook.Application Private WithEvents oMailItems As Outlook.Items Private WithEvents oCalendarItems As Outlook.Items Private zsForwardTo As String Private Sub Class_Initialize() 'Create an private outlook session Set oOutlook = New Outlook.Application 'Get the calendar and inbox objects Set oMailItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items Set oCalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items End Sub Private Sub Class_Terminate() Set oOutlook = Nothing Set oMailItems = Nothing Set oCalendarItems = Nothing End Sub 'Forward New Appointments Private Sub oCalendarItems_ItemAdd(ByVal Item As Object) Dim oForward As MailItem If TypeName(Item) = "AppointmentItem" Then 'Forward the appointment Set oForward = Item.ForwardAsVcal oForward.Recipients.Add zsForwardTo 'Send it oForward.Send Set oForward = Nothing End If End Sub 'Forward New Mail Private Sub oMailItems_ItemAdd(ByVal Item As Object) Dim oForward As MailItem If TypeName(Item) = "MailItem" Then 'Forward the item just received Set oForward = Item.Forward 'Address the message oForward.Recipients.Add zsForwardTo 'Send it oForward.Send Set oForward = Nothing End If End Sub Property Get ForwardTo() As String ForwardTo = zsForwardTo End Property Property Let ForwardTo(Value As String) zsForwardTo = Value End Property NOTE: Add this code to a Standard Module and call the StartForward routine to begin the fowarding. Option Explicit Private oMailForward As clsFoward Sub StartForward() Set oMailForward = New clsFoward oMailForward.ForwardTo = "myname@somewhere.com" End Sub Sub StopForward() Set oMailForward = Nothing End Sub
Terms and Conditions
Support this site
Download a trial version of the Excel Workbook Rebuilder
