Managed C++/CLI - Email queue with EASendMail Service - database¶

oMail->Headers->ReplaceHeader("X-Data-Connection",
    "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; " +
    "Dbq=c:\\easendmail\\easendmail_demo.mdb;Uid=;Pwd=;");

#include "stdafx.h"

using namespace System;
using namespace EASendMail;

int main(array<System::String ^> ^args)
{
    try
    {
        SmtpMail ^oMail = gcnew SmtpMail("TryIt");

        // Set sender email address, please change it to yours
        oMail->From = "test@emailarchitect.net";

        // Set email subject
        oMail->Subject = "test email from Managed C++/CLI database queue";

        // If you want EASendMail service to send the email after 10 minutes,
        // use the following code.
        // oMail->Date = System::DateTime::Now.AddMinutes(10);

        // EASendMail will use the following connection to connect to the database,
        // the syntax is same as ADO connection object.
        oMail->Headers->ReplaceHeader("X-Data-Connection",
            "Driver={Microsoft Access Driver (*.mdb)}; " +
            "Dbq=c:\\easendmail\\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.
        oMail->Headers->ReplaceHeader("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.

        oMail->Headers->ReplaceHeader("To", "\"{$var_srecord:name}\" <{$var_srecord:address}>");
        oMail->Headers->ReplaceHeader("X-Rcpt-To", "{$var_srecord:address}");

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

        String ^s = "Hi {$var_srecord:name}, \r\n";
        s += "this sample demonstrates how to send email using email queue.\r\n\r\n";
        // {$var_srecord:address} will be replaced by EASendMail automatically.
        s += "Your id in database is {$var_srecord:id}.\r\n\r\n";
        s += "No matter how many recipients there are, EASendMail ";
        s += "service will send the email in background.\r\n\r\n";

        // {$var_srecord:id} {$var_srecord:address} {$var_srecord:name} in
        // body text will
        // be replaced by EASendMail automatically.
        oMail->TextBody = s;

        // Your SMTP server address
        SmtpServer ^oServer = gcnew SmtpServer("smtp.emailarchitect.net");

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

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

        // If your SMTP server uses 587 port
        // oServer->Port = 587;

        // If your SMTP server requires SSL/TLS connection on 25/587/465 port
        // oServer->Port = 25; // 25 or 587 or 465
        // oServer->ConnectType = SmtpConnectType::ConnectSSLAuto;

        Console::WriteLine("start to send email to database queue ...");

        SmtpClient ^oSmtp = gcnew SmtpClient();
        oSmtp->SendMailToQueue(oServer, oMail);

        Console::WriteLine("email was sent to queue successfully!");
    }
    catch (Exception ^ep)
    {
        Console::WriteLine("failed to send email with the following error:");
        Console::WriteLine(ep->Message);
    }

    return 0;
}