Send Mass Emails using Database Queue in Delphi¶

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, EASendMailObjLib_TLB; // add EASendMail unit
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  ConnectNormal = 0;
  ConnectSSLAuto = 1;
  ConnectSTARTTLS = 2;
  ConnectDirectSSL = 3;
  ConnectTryTLS = 4;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  oSmtp : TMail;
begin
  oSmtp := TMail.Create(Application);
  oSmtp.LicenseCode := 'TryIt';

  // Set your sender email address
  oSmtp.FromAddr := 'test@emailarchitect.net';
  // Set email subject
  oSmtp.Subject := 'simple email from Delphi project';

  // change it to your sql server address, database, user and password.
  // The server/instance name syntax used in the server option is the same for all SQL Server connection strings.
  // e.g.: Server=serveraddress\instancename;
  // EASendMail will use the following connection to connect to the database,
  // the syntax is same as ADO connection object.
  oSmtp.AddHeader('X-Data-Connection',
  'Driver={SQL Native Client};Server=serveraddress;Database=database;Uid=user;Pwd=password;');

  // For more connection string
  // MS SQL Server 2000
  // 'Driver={SQL Server};Server=localhost;Database=pubs;Uid=sa;Pwd=asdasd;'

  // MS SQL Server 2005
  // 'Driver={SQL Server Native Client};Server=localhost;Database=pubs;Uid=sa;Pwd=asdasd;'
  // MS SQL Server 2005 Native Provider
  // 'Provider=SQLNCLI;Server=serveraddress;Database=database;Uid=user;Pwd=password;'

  // MS SQL Server 2008
  // 'Driver={SQL Server Native Client 10.0};Server=localhost;Database=myDataBase;Uid=myUsername;Pwd=myPassword;'
  // MS SQL Server 2008 Native Provider
  // 'Provider=SQLNCLI10;Server=serveraddress;Database=database;Uid=user;Pwd=password;'

  // MS SQL Server 2012
  // 'Driver={SQL Server Native Client 11.0};Server=localhost;Database=myDataBase;Uid=myUsername;Pwd=myPassword;'
  // MS SQL Server 2012 Native Provider
  // 'Provider=SQLNCLI11;Server=serveraddress;Database=database;Uid=user;Pwd=password;'
  // EASendMail will select the fields by the following sql statement
  // before sending email,
  // then pick the recipient address from specified field.
  oSmtp.AddHeader('X-Sql-Select', 'SELECT uid, name, email FROM Recipients');

  // Pick "name" field as the recipient name and "email" field as the recipient address.
  // You can also use {$var_srecord:fieldname} to pick any field in X-Sql-Select statement
  // and put it to subject, bodytext, then EASendMail will replace it automatially.
  oSmtp.DisplayTo := '"{$var_srecord:name}" <{$var_srecord:email}>';
  oSmtp.AddHeader('X-Rcpt-To', '{$var_srecord:email}');

  // EASendMail service will execute the following sql statement on
  // every email was sent successfully.
  oSmtp.AddHeader('X-Sql-OnSentSuccess',
  'INSERT INTO sentlog (server, email) VALUES(''{$var_server}'', ''{$var_rcptaddr}'')');

  // EASendMail service will execute the following sql statement on
  // every email could not be sent.
  oSmtp.AddHeader('X-Sql-OnSentError',
  'INSERT INTO errorlog(email, server, errorcode, errordescription) ' +
  'VALUES(''{$var_rcptaddr}'', ''{$var_server}'', ''{$var_errcode}'', ''{$var_errdesc}'')');

  oSmtp.BodyText := 'Hi {$var_srecord:name}, ' + #13#10
    + 'Send email with queue.' + #13#10 + #13#10
    + 'From:Tester' + #13#10
    + 'To:{$var_srecord:email}' + #13#10 + #13#10
    + 'Your id in database is {$var_srecord:uid}.' + #13#10;

  // {$var_srecord:uid} {$var_srecord:name} {$var_srecord:email} in
  // body text will be replaced by EASendMail automatically.

  // Your SMTP server address
  oSmtp.ServerAddr := 'smtp.emailarchitect.net';

  // User and password for ESMTP authentication, if your server doesn't require
  // user authentication, please remove the following codes
  oSmtp.UserName := 'test@emailarchitect.net';
  oSmtp.Password := 'testpassword';

  // ConnectTryTLS means if server supports SSL/TLS connection, SSL/TLS is used automatically
  oSmtp.ConnectType := ConnectTryTLS;

  // If your server uses 587 port
  // oSmtp.ServerPort := 587;

  // If your server uses 25/587/465 port with SSL/TLS
  // oSmtp.ConnectType := ConnectSSLAuto;
  // oSmtp.ServerPort := 587; // 25 or 587 or 465

  ShowMessage('start to send email ...');

  // You just need to change SendMail method to SendMailToQueue method in
  // your Delphi application, then EASendMail uses queue to send email.
  // SendMailToQueue can be used in windows application as well.
    if oSmtp.SendMailToQueue() = 0 then
      ShowMessage('email was sent to queue successfully!')
    else
      ShowMessage('failed to send email with the following error: '
      + oSmtp.GetLastErrDescription());

end;

end.