sendemail

Sendemail

وظيفة لإرسال بريد إلكتروني إلى Delphi.

الدعم: مطور [email protected]

⏩ هنا مثال على ذلك

️ الاستخدام

؟ الوضع: بسيط

 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 .

؟ الوضع: مع المسجل

 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 . 

الوضع: مع شريط التقدم

 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 .

؟ إرسال الوضع غير المتزامن

 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 .

؟ مضيف SMTP

اسم	يستضيف	ميناء	التشفير	مصادقة
Gmail	smtp.gmail.com	465	SSL/TLS	نعم
Outlook أو Office 365	smtp.office365.com	587	TLS	نعم
Hotmail	smtp.live.com	587	TLS	نعم
ياهو	smtp.mail.yahoo.com.br	587	TLS	نعم
SendGrid	smtp.sendgrid.net	465	TLS	نعم
محلي	البريد الإلكتروني ssl.com.br	465	TLS	نعم
Sparkpost	smtp.sparkpostmail.com	587	TLS	نعم
البريد الإلكتروني المرن	smtp.elasticemail.com	587	لا أحد	نعم
بريد	smtp.mail.ru	465	SSL/TLS	نعم