Public oform1 oform1=createobject("form1") oform1.Show Return Define Class form1 As Form Height = 400 Width = 620 DoCreate = .T. Caption = "Form1" Name = "Form1" Add Object cmdExit As CommandButton With ; Top = 330, ; Left = 504, ; Height = 27, ; Width = 84, ; Caption = "E\<xit", ; Name = "CmdExit" Add Object olecontrol1 As OleControl With ; Top = 12, ; Left = 12, ; Height = 306, ; Width = 588, ; Name = "Olecontrol1", ; OleClass = "OVCtl.OVCtl.1" Procedure cmdExit.Click Thisform.Release() Endproc Procedure olecontrol1.Init This.Folder = "Calendar" Endproc Enddefine>Hi,
ol = CREATEOBJECT("Outlook.Application") >olns = ol.GetNameSpace("MAPI") >MyTasksFolder = olns.GetDefaultFolder(9)