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 = "(e-mail address removed)"
fwdItem.Send


End Sub
 
K

Ken Slovak - [MVP - Outlook]

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Forward Email and Insert Sender's Email address in body 3
macro to forward 8
email using redemption 10
Forward Emails to External Email Address (Exchange/Outlook) 3
How do you suppress the warning messages in Outlook when an application is programatically accessing 0
Auto Run a macro or sub on task open 1
Why I need to display item 3
Changing appointment to AllDayEvent,. Recipients get meeting request for specific tim 1

Top