Pasted

// See also: http://pastebin.com/MfLi4pbj - "how to send arbitrary e-mail with file attaches"
// See also: http://pastebin.com/3Q1ykdSH - "how to send feedback instead of bug report"
// See also: http://pastebin.com/jxKB2WDZ - "how to send arbitrary data to bug tracker"
 
uses
  ETypes, ESend, ExceptionLog7,
  // Be sure that code for send method is included somewhere:
  ESendAPIMantis, ESendMailSMTP; 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Delete any configured send method
  CurrentEurekaLogOptions.SenderClasses := wsmNoSend;
 
  // Add two new send methods
  CurrentEurekaLogOptions.AddSenderClass(wsmMantis);
  CurrentEurekaLogOptions.AddSenderClass(esmSMTPClient);
 
  // Configure first send method
  CurrentEurekaLogOptions.SendMantisURL := 'bugs.example.com';
  CurrentEurekaLogOptions.SendMantisPort := 80;
  CurrentEurekaLogOptions.SendMantisSSL := False;
  CurrentEurekaLogOptions.SendMantisLogin := 'account';
  CurrentEurekaLogOptions.SendMantisPassword := 'password';
  CurrentEurekaLogOptions.SendMantisProject := 'ProjectName';
  CurrentEurekaLogOptions.SendMantisCategory := 'CategoryName';
  CurrentEurekaLogOptions.SendMantisOwner := 'AssignToAccount';
  // ...
 
  // Configure second send method
  CurrentEurekaLogOptions.SendSMTPClientHost := 'smtp.example.com';
  CurrentEurekaLogOptions.SendSMTPClientPort := 25;
  CurrentEurekaLogOptions.SendSMTPClientLogin := '[email protected]';
  CurrentEurekaLogOptions.SendSMTPClientFrom := '[email protected]';
  CurrentEurekaLogOptions.SendSMTPClientPassword := 'password';
  CurrentEurekaLogOptions.SendSMTPClientTarget := '[email protected]';
  CurrentEurekaLogOptions.SendSMTPClientSubject := 'Subject';
  CurrentEurekaLogOptions.SendSMTPClientMessage := '';
  // ...
end;