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 .

- โหมด: ด้วย 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 . 

โหมด: ด้วยแถบความคืบหน้า

 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

ชื่อ	เจ้าภาพ	ท่าเรือ	การเข้ารหัสลับ	รับรองความถูกต้อง
เครื่องตัดหญ้า	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	ใช่
ท้องถิ่น	email-ssl.com.br	465	TLS	ใช่
จุดประกาย	smtp.sparkpostmail.com	587	TLS	ใช่
อีเมลยืดหยุ่น	smtp.elasticemail.com	587	ไม่มี	ใช่
ส่งจดหมาย	smtp.mail.ru	465	SSL/TLS	ใช่