#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.