Program
  map
  end

window WINDOW('Caption'),AT(,,260,100),FONT('MS Sans Serif',8,,FONT:regular),GRAY
       OLE,AT(31,20,133,78),USE(?Ole1),CREATE('outlook.application')
       END
     END

ItemObj cstring(20)

  Code
  Open(window)
  display
  ItemObj=?ole1{'createitem(0)'}
  ?Ole1{citem & '.Display'}