Outlook Calendar

[Ken Gillon]

Is there anyone out there that has done a 'snazzy' interface to Outlook Calendar. I.e. Not mscal.ocx, but the outlook calendar?

 

[Ken Gillon]

Got help from Technical Suport - so happy as Larry now

Tech support gave me a great reply.
As Follows:

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 = "Lets have a meeting"
myItem:MeetingStatus = 2
myItem:Location = "Conference Room In Dundee"
myItemuration = 90
myItem:Start = ("7/19/2005 4:30:00 PM")
myItem:Body = "Not Really required"
myReqAtt = myItem:Recipients:ADD("Ken Gillon")
myReqAtt:TYPE = 1
myItemISPLAY.
RELEASE OBJECT myOlApp.
RELEASE OBJECT myNameSpace.
RELEASE OBJECT myFolder.
RELEASE OBJECT myItem.
RELEASE OBJECT myReqAtt.