Examples

Some examples:

// Change email settings...

procedure MyErrorNotify(EurekaExceptionRecord: TEurekaExceptionRecord;

                         EurekaAction: TEurekaActionType; var Retry: Boolean);

begin

   // An error occurred when sending the email...

   if EurekaAction = atSentEmail then

     begin

       // Try to send the email via SMTP client.

       EurekaExceptionRecord.CurrentModuleOptions.SMTPHost := 'localhost';

       Retry := True; // Force retry of this action.

     end;

end;

// Change the log settings...

procedure MyErrorNotify(EurekaExceptionRecord: TEurekaExceptionRecord;

                         EurekaAction: TEurekaActionType; var Retry: Boolean);

begin

   // An error occurred while saving the Log-File...

   if EurekaAction = atSavedLogFile then

     begin

       // Try to send again after changing the Log-File path.

       EurekaExceptionRecord.CurrentModuleOptions.OutputPath := 'c:\';

       Retry := True; // Force to retry of this action.

     end;

end;