sendemail

Sendemail

Función para enviar correo electrónico para Delphi.

Soporte: [email protected]

⏩ Aquí hay un ejemplo de muestras

️ Uso

? Modo: simple

 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 protected] ' )
    .Port( 587 )
    .Auth(True)
    .UserName( ' username ' )
    .Password( ' password ' )
    .SSL(False)
    .TLS(False)
    .Send(True); // True is Default = After sending it will be disconnected
end .

? Modo: con Logger

 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 protected] ' )
    .Port( 587 )
    .Auth(True)
    .UserName( ' username ' )
    .Password( ' password ' )
    .SSL(False)
    .TLS(False)
    .Send(True); // True is Default = After sending it will be disconnected
end . 

Modo: con barra de progreso

 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 protected] ' )
    .Port( 587 )
    .Auth(True)
    .UserName( ' username ' )
    .Password( ' password ' )
    .SSL(False)
    .TLS(False)
    .Send(True); // True is Default = After sending it will be disconnected
end .

? Enviar modo asíncrono

 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 protected] ' )
    .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 .

? Anfitrión SMTP

Nombre	Anfitrión	Puerto	Criptografía	Auténtico
Gmail	smtp.gmail.com	465	SSL/TLS	Sí
Outlook u Office 365	SMTP.Office365.com	587	TLS	Sí
Hotmail	smtp.live.com	587	TLS	Sí
Yahoo	smtp.mail.yahoo.com.br	587	TLS	Sí
SendGrid	smtp.sendgrid.net	465	TLS	Sí
Web local	Correo electrónico-ssl.com.br.Br	465	TLS	Sí
Postura de chispa	smtp.sparkpostmail.com	587	TLS	Sí
Correo electrónico elástico	smtp.elasticemail.com	587	Ninguno	Sí
Correo	smtp.mail.ru	465	SSL/TLS	Sí