Copying Subject and Contacts of Appointment to Email

[RAxel]

I've been asked to try and make the appointment setting to email transition as easy as possible. So right now, on the close event of the appointment form, my custom email message opens up just fine. What I would love to happen, is when the appointment form closes, is to have the subject of the appointment be copied to the subject of the email message as well as having the contact field of the appointment be copied to the To field of the email message.

Any nudges in the right direction is appreciated. Thanks in advance.

 

[PHV]

my custom email message opens up just fine
And how you do that ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[RAxel]

From the appointment form, this is the vbscript I wrote:

Function Item_Close()
  	
	Set objApp = CreateObject("Outlook.Application")
	Set objNS = objApp.GetNamespace("MAPI")
	Set objFolder = objNS.GetDefaultFolder(6)
	Set objNewMessage = objFolder.Items.Add("IPM.Note.CustomMessage")
	objNewMessage.Display

End Function

To be honest, since I don't really understand coding for outlook, the above code I piece mealed together and thankfully it works. But of course, thats just for opening the custom email. I need to be able to copy the contacts and subject of the appointment form to the subject and to field of the email message. Thanks