>oOutlook = CREATEOBJECT( 'Outlook.Application' ) >oNameSpace = oOutlook.GetNamespace( 'MAPI' ) >oCalendar = oNameSpace.GetDefaultFolder( 9 ) && Calendar >oCustomCalendar = oCalendar.Folders( 1 ) >=oCustomCalendar.Display() >