Visual C++ - Email queue with EASendMail Service - database¶

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

#include "stdafx.h"
#include <tchar.h>
#include <Windows.h>

#include "EASendMailObj.tlh"
using namespace EASendMailObjLib;

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

int _tmain(int argc, _TCHAR* argv[])
{
    ::CoInitialize(NULL);

    IMailPtr oSmtp = NULL;
    oSmtp.CreateInstance(__uuidof(EASendMailObjLib::Mail));
    oSmtp->LicenseCode = _T("TryIt");

    // Set your sender email address
    oSmtp->FromAddr = _T("test@emailarchitect.net");

    // Set email subject
    oSmtp->Subject = _T("simple email from Visual C++ email database queue");

    // EASendMail will use the following connection to connect to the database,
    // the syntax is same as ADO connection object.
    oSmtp->AddHeader(_T("X-Data-Connection"),
    _T("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(_T("X-Sql-Select"), _T("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 = _T("\"{$var_srecord:name}\" <{$var_srecord:address}>");
    oSmtp->AddHeader(_T("X-Rcpt-To"), _T("{$var_srecord:address}"));

    // EASendMail service will execute the following sql statement on
    // every email was sent successfully.
    oSmtp->AddHeader(_T("X-Sql-OnSentSuccess"),
    _T("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(_T("X-Sql-OnSentError"),
    _T("INSERT INTO errorlog(email, server, errorcode, errordescription)")
    _T("VALUES('{$var_rcptaddr}', '{$var_server}', '{$var_errcode}', '{$var_errdesc}')"));

    _bstr_t bodytext;

    bodytext = "Hi {$var_srecord:name}\r\n";
    bodytext += "Send email with queue.\r\n\r\n";
    bodytext += "From:Tester\r\n";
    // {$var_srecord:address} will be replaced by EASendMail automatically.
    bodytext += "To:{$var_srecord:address}\r\n\r\n";
    bodytext += "Your id in database is {$var_srecord:id}.\r\n";

    oSmtp->BodyText = bodytext;

    // Your SMTP server address
    oSmtp->ServerAddr = _T("smtp.emailarchitect.net");

    // User and password for ESMTP authentication, if your server doesn't
    // require User authentication, please remove the following codes.
    oSmtp->UserName = _T("test@emailarchitect.net");
    oSmtp->Password = _T("testpassword");

    // Most mordern SMTP servers require SSL/TLS connection now.
    // ConnectTryTLS means if server supports SSL/TLS, SSL/TLS will be used automatically.
    oSmtp->ConnectType = ConnectTryTLS;

    // If your SMTP server uses 587 port
    // oSmtp->ServerPort = 587;

    // If your SMTP server requires SSL/TLS connection on 25/587/465 port
    // oSmtp->ServerPort = 25; // 25 or 587 or 465
    // oSmtp->ConnectType = ConnectSSLAuto;

    _tprintf(_T("Start to send email ...\r\n"));

    if(oSmtp->SendMailToQueue() == 0)
    {
        _tprintf(_T("email was sent to queue successfully!\r\n"));
    }
    else
    {
        _tprintf(_T("failed to send email with the following error: %s\r\n"),
            (const TCHAR*)oSmtp->GetLastErrDescription());
    }

    return 0;
}