// See also: http://pastebin.com/BBuTp8Kq - "how to send arbitraty e-mail - method #1"
// See also: http://pastebin.com/Y9W9UK19 - "how to send arbitraty e-mail - method #2"
// See also: http://pastebin.com/BR5iyxkW - "how to send arbitraty e-mail - method #3"
// 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 method works like clicking "mailto" hyper-link in browser.
uses
ETypes, ESendMail, ESendMailShell;
procedure TForm1.Button1Click(Sender: TObject);
begin
EurekaLogSendEmail(esmShellClient, '', '[email protected]', 'Subject', 'Body');
end;
Comments