Function to send email for Delphi.
Support: developer.dlio@gmail.com
⏩ Here is an example Samples
uses SendEmail; begin TSendEmail.New .From('Email', 'Name') .AddTo('Email', 'Name') .AddReceiptRecipient('Email', 'Name') // Confirmation Read .AddReplyTo('Email', 'Name') // Answer to .AddCC('Email', 'Name') .AddBCC('Email', 'Name') .Priority(TPriority.mpNormal) .Subject('My Text with SendEmail') .Message('<h1>Message</h1>', True) // True is Default = Text in HTML .AddAttachment('') .Host('email@domain.com') .Port(587) .Auth(True) .UserName('username') .Password('password') .SSL(False) .TLS(False) .Send(True); // True is Default = After sending it will be disconnected end.uses SendEmail; begin TSendEmail.New .OnLog( procedure(ALog: string) begin Writeln(Format('%s ' + ALog, [FormatDateTime('dd/mm/yyyy hh:MM:ss', Now)])); end, TLogMode.lmLib) // Options: lmComponent, lmLib, lmAll, lmNone .From('Email', 'Name') .AddTo('Email', 'Name') .AddReceiptRecipient('Email', 'Name') // Confirmation Read .AddReplyTo('Email', 'Name') // Answer to .AddCC('Email', 'Name') .AddBCC('Email', 'Name') .Priority(TPriority.mpNormal) .Subject('My Text with SendEmail') .Message('<h1>Message</h1>', True) // True is Default = Text in HTML .AddAttachment('') .Host('email@domain.com') .Port(587) .Auth(True) .UserName('username') .Password('password') .SSL(False) .TLS(False) .Send(True); // True is Default = After sending it will be disconnected end. uses SendEmail; begin TSendEmail.New .OnWorkBegin( procedure(ACountMax: Int64) begin ProgressBar.Max := ACountMax; ProgressBar.Position := 0; ProgressBar.Refresh; end) .OnWork( procedure(ACount: Int64) begin ProgressBar.Position := ACount; ProgressBar.Refresh; end) .OnWorkEnd( procedure begin ProgressBar.Position := ProgressBar.Max; ProgressBar.Refresh; end) .From('Email', 'Name') .AddTo('Email', 'Name') .AddReceiptRecipient('Email', 'Name') // Confirmation Read .AddReplyTo('Email', 'Name') // Answer to .AddCC('Email', 'Name') .AddBCC('Email', 'Name') .Priority(TPriority.mpNormal) .Subject('My Text with SendEmail') .Message('<h1>Message</h1>', True) // True is Default = Text in HTML .AddAttachment('') .Host('email@domain.com') .Port(587) .Auth(True) .UserName('username') .Password('password') .SSL(False) .TLS(False) .Send(True); // True is Default = After sending it will be disconnected end.uses SendEmail; begin TSendEmail.New .From('Email', 'Name') .AddTo('Email', 'Name') .AddReceiptRecipient('Email', 'Name') // Confirmation Read .AddReplyTo('Email', 'Name') // Answer to .AddCC('Email', 'Name') .AddBCC('Email', 'Name') .Priority(TPriority.mpNormal) .Subject('My Text with SendEmail') .Message('<h1>Message</h1>', True) // True is Default = Text in HTML .AddAttachment('') .Host('email@domain.com') .Port(587) .Auth(True) .UserName('username') .Password('password') .SSL(False) .TLS(False) .SendAsync( procedure(AErro: Boolean; AMessageErro: string) // Informed callback to return begin if AErro then ShowMessage(AMessageErro) else ShowMessage('Message sent!') end, True); // True is Default = After sending it will be disconnected end.| Name | Host | Port | Cryptography | Auth |
|---|---|---|---|---|
| Gmail | smtp.gmail.com | 465 | SSL/TLS | Yes |
| Outlook or Office 365 | smtp.office365.com | 587 | TLS | Yes |
| Hotmail | smtp.live.com | 587 | TLS | Yes |
| Yahoo | smtp.mail.yahoo.com.br | 587 | TLS | Yes |
| SendGrid | smtp.sendgrid.net | 465 | TLS | Yes |
| LocalWeb | email-ssl.com.br | 465 | TLS | Yes |
| SparkPost | smtp.sparkpostmail.com | 587 | TLS | Yes |
| Elastic Email | smtp.elasticemail.com | 587 | None | Yes |
| smtp.mail.ru | 465 | SSL/TLS | Yes |