LOCAL llError, lcOnError
lcOnError = ON( 'ERROR' )
ON ERROR llError = .T.
loOutlook = CREATEOBJECT( 'outlook.application' )
IF NOT EMPTY( lcOnError )
  ON ERROR &lcOnError
ELSE
  ON ERROR
ENDIF
IF llError
  AERROR( laError )
  IF laError[ 1, 1 ] = 1733
    *** class definition not found
    MESSAGEBOX( [Outlook is not registered on this computer] )
  ENDIF
ENDIF