This demo uses the COM interface to CDO so any errors that may occur are trapped as OLE exceptions and will be displayed within the exception handler entry point. If no exception is raised then the exception handler will not be called and you can assume that the send was successful. The exception handler code (if you have the same version that I do here) is: callback section. entry "onOleException" using by reference lnkErrorObject by reference lnkErrorNumber by reference lnkErrorText. display "OLE Exception:-" display "The COBOL exception number was: " lnkErrorNumber display "The exception occured on:" invoke lnkErrorObject "display" invoke EntryCallback "new" using z"DispError" returning wsIterator invoke lnkErrorText "do" using wsIterator display "Terminating.." stop run exit program. entry "DispError" using lnkElement. display " " with no advancing * Indent Slightly invoke lnkElement "display" display " " goback
↧