sendemail

Sendemail

Funktion zum Senden von E -Mails für Delphi.

Support: [email protected]

⏩ Hier ist ein Beispiel -Beispiel

Euen Verwendung

? Modus: Einfach

 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 .

? Modus: mit 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 . 

Modus: mit Fortschrittsbalken

 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 .

? Senden Sie den asynchronen Modus

 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 .

? Host SMTP

Name	Gastgeber	Hafen	Kryptographie	Auth
Google Mail	SMTP.gmail.com	465	SSL/TLS	Ja
Outlook oder Office 365	SMTP.Office365.com	587	Tls	Ja
Hotmail	SMTP.Live.com	587	Tls	Ja
Yahoo	SMTP.Mail.yahoo.com.br	587	Tls	Ja
Sendgrid	SMTP.Sendgrid.net	465	Tls	Ja
Lokalweb	E-Mail-ssl.com.br	465	Tls	Ja
Sparkpost	SMTP.Sparkpostmail.com	587	Tls	Ja
Elastische E -Mail	SMTP.Elasticemail.com	587	Keiner	Ja
Post	SMTP.MAIL.RU	465	SSL/TLS	Ja