SendToEx function

function SendToEx(Const MailFrom, MailTo, Subject, SMTPHost: string; Const MailData: Tstrings; Const Username, Password: string): Boolean;

Unit
SMTPsend

Description
Usefull sample of using TSMTPsend object. Send maildata (text of e-mail without any SMTP headers!) from mailfrom e-mail address to mailto e-mail address (It can be only ONE e-mail address, multiple receivers not supported!). Function send e-mail to SMTP server defined in SMTPhost parameter. Username and password is used for authorisation to SMTPhost. If you dont wont authorisation, set Username and password to empty string. If e-mail message successfully sended, then result is true.