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 |