forwarding appointments?

W

Warren.Clark

I am want to forward my current appointment and i am using the following code
that i copied -it forwards the current email fine - even when my calendar
item has focus , i am new at this can anyone help?

Sub AutoCalFwd()

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

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


End Sub
 
Top