Kbase P106488: How to create an Outlook Appointment entry and send an Invitation via ABL
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
3/2/2009 |
|
Status: Verified
GOAL:
How to send an Invitation to an Outlook Meeting via ABL
GOAL:
How to create an Outlook Appointment entry and send an Invitation via ABL
GOAL:
How to create an Outlook Appointment and send an Invitation via ABL
GOAL:
Using MAPI object in order to create an entry in Outlook Calendar from 4GL
GOAL:
Using MAPI object in order to create an entry in Outlook Calendar and send an Invitation from 4GL
FACT(s) (Environment):
Progress 9.x
OpenEdge 10.x
Windows
FIX:
Simple code demonstrating the methods:
DEF VAR myOlApp AS COM-HANDLE NO-UNDO.
DEF VAR myNameSpace AS COM-HANDLE NO-UNDO.
DEF VAR myFolder AS COM-HANDLE NO-UNDO.
DEF VAR myItem AS COM-HANDLE NO-UNDO.
DEF VAR myReqAtt AS COM-HANDLE NO-UNDO.
CREATE "Outlook.Application" myOlApp.
ASSIGN
myNameSpace = myOlApp:GetNameSpace("MAPI")
myFolder = myNameSpace:GetDefaultFolder(10)
myItem = myOlApp:CreateItem(1)
myItem:Subject = "Subject"
myItem:MeetingStatus = 1
myItem:Location = "Conference Room ABCDEFG"
myItem:Start = (TODAY + 1)
myItem:Duration = 90
myReqAtt = myItem:Recipients:ADD("Anakin Skywalker")
myReqAtt:TYPE = 1.
myItem:DISPLAY.
RELEASE OBJECT myOlApp.
RELEASE OBJECT myNameSpace.
RELEASE OBJECT myFolder.
RELEASE OBJECT myItem.
RELEASE OBJECT myReqAtt.
ASSIGN
myOlApp = ?
myNameSpace = ?
myFolder = ?
myItem = ?
myReqAtt = ?
.