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