Forwarding Appointment

W

Warren.Clark

I am trying to forward the current appointment in outlook 2003 - I am using
the following code which will forward my current email item even if it does
not have focus - I am entirely new to this can someone help?

Sub AutoCalFwd()

On Error Resume Next
Set thisItem = Application.ActiveInspector.CurrentItem

Set fwdItem = thisItem.Forward
fwdItem.To = "[email protected]"
fwdItem.Send


End Sub
 
K

Ken Slovak - [MVP - Outlook]

Help with what? What isn't working or not working the way you want?
 
Top