Delphi - Email Queue with EASendMail Service - Database

The following delphi example codes demonstrate how to pick recipients from database and send email using email queue. In the example, we used C:\Program Files\EASendMailService\easendmail_demo.mdb as sample MS Access Database.

SMTP Queue Service

EASendMail Service is a light and fast email delivery service which works with EASendMail SMTP Component to enable your application to send mass emails in background queue service.

Along with its ability to picking recipients from database in background and sending email in specified datetime, it eases your task in developing featured email application such as newsletter application. We strongly recommend you to use EASendMail Service with your ASP.NET/Web Application.

Important

To work with EASendMail Service, please download EASendMail and EASendMail Service at first, and then install both on your machine. If you are using web hosting service and you don’t have permission to install service on that server, EASendMail service is not suitable for you.

With EASendMail email queue feature, you do not have to code for multiple threadings. EASendMail Service can send email in background with multiple threadings automatically. You just need to adjust the maximum worker threads in EASendMail Service Manager to increase the performance. Please click here to learn more detail about EASendMail Service.

Another typical usage scenario is that most newsletter applications get recipient name and address from database. To simplify the task of developer, EASendMail provides a very powerful way to select recipients from database automatically.

delphi email queue + database

Installation

EASendMail is a SMTP component which supports all operations of SMTP/ESMTP protocols (RFC 821, RFC 822, RFC 2554). Before you can use the following example codes, you should download the EASendMail Installer and install it on your machine at first.

Add Reference

To use EASendMail SMTP ActiveX Object in your Delphi project, the first step is “Add Unit file of EASendMail to your project”. Please go to C:\Program Files\EASendMail\Samples_Delphi\simple.delphi or C:\Program Files (x86)\EASendMail\Samples_Delphi\simple.delphi folder, find EASendMailObjLib_TLB.pas, and then copy this file to your project folder.

unit Unit1;

interface
// include EASendMailObjLib_TLB unit to your Delphi Project
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, EASendMailObjLib_TLB, StdCtrls;

You can also create “EASendMailObjLib_TLB.pas” manually like this:

  • Delphi 7

    Please choose menu -> Project -> Import Type Library and select EASendMailObj ActiveX Object, click Create Unit, the reference of EASendMail ActiveX Object will be added to your project.

    add reference in Delphi
  • Delphi XE

    If you use Delphi XE to import the Type library, Please choose menu -> Component -> Import Component -> Import Type Library -> and select EASendMailObj ActiveX Object -> have Generate Component Wrapper checked -> Create Unit.

Then you can start to use it in your Delphi Project.

MS Access x64 Driver

If your Windows is x64 bit, please download and install MS Access x64 Driver on your server and please change X-Data-Connection like this:

oSmtp.AddHeader('X-Data-Connection',
    'Driver={Microsoft Access Driver (*.mdb, *.accdb)};' +
    'Dbq={$var_easendmailpath}\easendmail_demo.mdb;Uid=;Pwd=;');

MS Access Database x64 Driver Download

Microsoft Access Database Engine 2010 Redistributable

Delphi - Send Email to Queue Service - Database

The following example codes demonstrate sending email message using email queue + database. In order to run it correctly, please change SMTP server, user, password, sender, recipient value to yours.

Note

To get full sample projects, please download and install EASendMail on your machine.

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;

Var
Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Var
    oSmtp : TMail;
    s: WideString;
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 database queue';

    // 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';

    // If your SMTP server requires SSL connection, please add this line
    // oSmtp.SSL_init();

    // 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={Microsoft Access Driver (*.mdb)};' +
    'Dbq={$var_easendmailpath}\easendmail_demo.mdb;Uid=;Pwd=;');

    // 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 id, name, address FROM Recipients');

    // Pick "name" field as the recipient name and "address" 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:address}>';
    oSmtp.AddHeader( 'X-Rcpt-To', '{$var_srecord:address}');

    // 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}'' )');

    s := 'Hi {$var_srecord:name}, ' + #13+#10;
    s := s + 'Send email with queue.' + #13+#10 + #13+#10;
    s := s + 'From:Tester';
    // {$var_srecord:address} will be replaced by EASendMail automatically.
    s := s + 'To:{$var_srecord:address}' + #13+#10 + #13+#10;
    s := s + 'Your id in database is {$var_srecord:id}.' + #13+#10 + #13+#10;

    oSmtp.bodytext := s;
    ShowMessage( 'start to send email ...' );

    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.

32bit/x64 ActiveX DLL

Seperate builds of run-time dll for 32 and x64 platform

File Platform
Installation Path\EASendMailObj.dll 32 bit
Installation Path\x64\EASendMailObj.dll 64 bit

Distribution

  • Standard EXE

    For VB6, C++, Delphi or other standard exe application, you can distribute EASendMailObj.dll with your application to target machine without COM-registration and installer. To learn more detail, please have a look at Registration-free COM with Manifest File.

  • Script

    For ASP, VBScript, VBA, MS SQL Stored Procedure, you need to install EASendMail on target machine by EASendMail installer, both 32bit/x64 DLL are installed and registered.

Appendix

Comments

If you have any comments or questions about above example codes, please click here to add your comments.