Hello,

just another problem I have.

Try to send an appointment to Outlook.
I found out how to bring the appointment into Outlook.
But I also want to send the appointment to a recipient (a resource).

Have the following code:

#Define olFolderCalendar 9
#Define olAppointmentItem 1

Local oOutlook,oNameSpace,oDefaultFolder
oOutlook = CREATEOBJECT('outlook.application')
oNameSpace = oOutlook.getnamespace('MAPI')
oDefaultFolder=oNameSpace.GetDefaultFolder(olFolderCalendar) &&Calendar
oDefaultFolder.display()

oAppt1 = oOutlook.createitem(olAppointmentItem)

With oAppt1
	.start = ctot(zstart)  
	.end = ctot(zend)
	.AlldayEvent = .t.

	If Gleittag
		.subject = "Gleittag"
	Else
		.subject = "Urlaub"
	Endif

	.location = "daheim"
	.BusyStatus = 3

Endwith

Sele parameter
Go top

oRoom = oAppt1.Recipients.Add(alltrim(parameter.wert))  && inviting resource  
oRoom.Type = 3
oRoom.Resolve()
oAppt1.MeetingStatus = 1
*oAppt1.Send()
oAppt1.Save()

The save command works. The appointment is correctly written to outlook.
But it isn't sent. When I open it the send button is still abailable.


Any help is welcome


Regards and thanks in advance

Marcus