Kbase P142186: How to create an Outlook Appointment via ABL
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
03/03/2009 |
|
Status: Unverified
GOAL:
How to generate an Outlook Appointment via ABL
GOAL:
How to generate an Outlook Appointment without sending to recipients via ABL
GOAL:
How to create an Outlook Appointment via ABL
FACT(s) (Environment):
Progress 9.x
OpenEdge 10.x
Windows
FIX:
Sample code converted from Microsoft article 313788:
DEFINE VARIABLE oApp AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE oNS AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE oAppoint AS COM-HANDLE NO-UNDO.
CREATE "Outlook.Application" oApp.
oNS = oApp:GetNameSpace("MAPI").
oNS:Logon("Default Outlook Profile","",FALSE,TRUE).
oAppoint = oApp:CreateItem(1). /* 1 = olAppointmentItem */
ASSIGN oAppoint:Subject = "My Appointment"
oAppoint:Body = "My Appointment Description"
oAppoint:Location = "My Appointment Location"
oAppoint:START = DATETIME(03,03,2009,09,00) /* 03 March 2009 09.00 */
oAppoint:END = DATETIME(03,03,2009,09,30) /* 03 March 2009 09.30 */
oAppoint:ReminderSet = TRUE
oAppoint:ReminderMinutesBeforeStart = 15
oAppoint:BusyStatus = 2 /* 2 = olBusy */
oAppoint:IsOnlineMeeting = FALSE
.
oAppoint:CLOSE(0). /* 0 = olSave */
oNS:logoff().
oApp:QUIT.
RELEASE OBJECT oAppoint.
RELEASE OBJECT oNS.
RELEASE OBJECT oApp.
ASSIGN oNS = ?
oAppoint = ?
oApp = ?
.