Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // 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/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
- uses
- ETypes, ESendMail, ESendMailSMTP;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- // This method will create a fake SMTP server for sending e-mail.
- // Therefore, no account data (login/password) is required.
- // However, this method is often blocked by firewalls and ISP, because this is how spam sending works.
- EurekaLogSendEmail(esmSMTPServer, 'from-email@example.com', 'to-email@example.com', 'Subject', 'Body');
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement