// 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 := 'bugs@example.com';
  CurrentEurekaLogOptions.SendSMTPClientFrom := 'bugs@example.com';
  CurrentEurekaLogOptions.SendSMTPClientPassword := 'password';
  CurrentEurekaLogOptions.SendSMTPClientTarget := 'bugs@example.com';
  CurrentEurekaLogOptions.SendSMTPClientSubject := 'Subject';
  CurrentEurekaLogOptions.SendSMTPClientMessage := '';
  // ...
end;