#Define olFolderCalendar 9 #Define olAppointmentItem 1 Local oOutlook,oNameSpace,oDefaultFolder oOutlook = GETOBJECT(,'outlook.application') oNameSpace = oOutlook.getnamespace('MAPI') oDefaultFolder=oNameSpace.GetDefaultFolder(olFolderCalendar) &&Calendar oDefaultFolder.display() oAppt1 = oOutlook.createitem(olAppointmentItem) Gleittag=.t. With oAppt1 .start = DATE() * .end = ctot(zend) .AlldayEvent = .t. If Gleittag .subject = "Gleittag" Else .subject = "Urlaub" Endif .location = "daheim" .BusyStatus = 3 Endwith oRoom = oAppt1.Recipients.Add("rubinov@juno.com") && inviting resource oRoom.Type = 3 oRoom.Resolve() oAppt1.MeetingStatus = 1 oAppt1.Send() oAppt1.Save()I quess you have improper settings when taken them from the table, or here is somehow involved the security dialog or the program that allows to bypass the dialog.