ol = CREATEOBJECT("Outlook.Application") >olns = ol.GetNameSpace("MAPI") >MyTasksFolder = olns.GetDefaultFolder(9)
*CDOEX Send Appointment cdoRequiredParticipant = 0 cdoOptionalParticipant = 1 oInfo =CREATEOBJECT('AdSystemInfo') oAttn =CREATEOBJECT('CDO.Attendee') oAppt =CREATEOBJECT('CDO.Appointment') oCnfg =CREATEOBJECT('CDO.Configuration') oPers =CREATEOBJECT('CDO.Person') dtStart =CTOT("08/16/2005 02:00:00 PM") dtEnd =CTOT("08/16/2005 03:00:00 PM") oAppt.Configuration=oCnfg oAppt.MeetingStatus="Confirmed" oAppt.StartTime=dtStart oAppt.EndTime=dtEnd oAppt.Subject=[CDOEX Appointment Subject ]+TTOC(DATETIME()) oAppt.Location=[CDOEX Appointment Location ]+TTOC(DATETIME()) oAppt.TextBody=[CDOEX Appointment TextBody ]+TTOC(DATETIME()) oAttendee=oAppt.Attendees.Add oAttendee.Address="myeamil@mydns.com" oAttendee.Role=cdoRequiredParticipant oCalMsg=oAppt.CreateRequest oCalMsg.Message.Send