Pasted

// See also: http://pastebin.com/BBuTp8Kq - "how to send arbitraty e-mail - method #1"
// See also: http://pastebin.com/BR5iyxkW - "how to send arbitraty e-mail - method #3"
// See also: http://pastebin.com/M5D57Naa - "how to send arbitraty e-mail - method #4"
// 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"
 
// This code will work in any project - even without EurekaLog active
 
// This is most reliable e-mail send method.
// It works exactly as your typical e-mail client application (Outlook, The Bat, Mozilla Thunderbird, etc.).
// It also requires you to store/provide your credentials (login/password).
 
uses
  ETypes, ESendMail, ESendMailSMTP;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Plain SMTP:
  EurekaLogSendEmail(esmSMTPClient, '[email protected]', '[email protected]', 'Subject', 'Body', 'smtp.server.com', 'from-email', 'password', 25 { SMTP port });
 
  // SSL:
  EurekaLogSendEmail(esmSMTPClient, '[email protected]', '[email protected]', 'Subject', 'Body', 'smtp.server.com', 'from-email', 'password', 465 { SMTP SSL port }, nil, nil, nil, ctSSL);
 
  // TLS:
  EurekaLogSendEmail(esmSMTPClient, '[email protected]', '[email protected]', 'Subject', 'Body', 'smtp.server.com', 'from-email', 'password', 587 { SMTP TLS port, could be also 25 }, nil, nil, nil, ctTLS);
end;