Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // 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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement