Adds new appointments to the control.

Syntax

Send_Message(CtrlEntId, "OLE.AddAppts", Appts)

Parameters

ParameterDescription
Appts@FM delimited list of appts

Remarks

The AddAppts method adds new appointments to the control. This method takes a single argument: an @FM delimited array, with each field containing the following values:

Position
Name
Type
Description
<x, 1>
Calendar KeyTextThe unique key of the calendar to contain this appointment.
<x, 2>
KeyTextThe unique key for this appointment. No two appointments can have the same key, even if they are in different calendars.
<x, 3>
StartDateTimeThe date and time, in OI internal format, that the appointment begins.
<x, 4>
EndDateTime The date and time, in OI internal format, that the appointment ends.
<x, 5>
SubjectTextThe short summary describing the appointment.
<x, 6>
BodyTextThe details of the appointment.
<x, 7>
LocationTextThe brief description of the appointment's location.
<x, 8>
Label KeyTextThe unique key of a previously defined label, which will categorize and colorize this appointment.
<x, 9>
Busy StatusOptionOne of four options: "Free", "Tentative", "Busy", or "OutOfOffice".
<x, 10>
ImportanceOption  One of three options: "Low", "Normal", or "High".
<x, 11>
Is Meeting FlagBooleanDetermines if the appointment is a meeting.
<x, 12>
Is Private FlagBoolean  Determines if the appointment is private.

NOTE: Define your labels before you add your appointments.

Example

// Add one more appointment
Appts = ""
Appts<1, 1> = "WORK"
Appts<1, 2> = "10003"
Appts<1, 3> = IConv(OConv(Date(), "D4/"):" 3:30PM", "DT")
Appts<1, 4> = IConv(OConv(Date(), "D4/"):" 4:30PM", "DT")
Appts<1, 5> = "Staff Meeting"
Appts<1, 6> = "Weekly staff meeting"
Appts<1, 7> = "Conference Room"
Appts<1, 8> = "Urgent"
Appts<1, 10> = "High"
Appts<1, 11> = 0
Appts<1, 12> = 1
Send_Message(@Window:".OLE_CALENDAR", "OLE.AddAppts", Appts) 
  • No labels