This is very nice, but I am still working with VFP 6.0. Thank you very much for your suggestion.

You can still do this using VFP 6 but it is not as elegant, using code like this:

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