c++ builder XE4 > POP before SMTP を使ってからメール送信 | 10.2 Tokyoの場合

動作確認

C++ Builder XE4

POP before SMTPを使ってからメール送信をする。

参考1: http://www.amunsnet.com/delphi/2847.html
参考2: http://ht-deko.com/tech057.html

参考1のコードで実行した時、以下のエラーがでたのでTLSの対応をした。

command is not valid in this state

コードは以下の通り。

// メール送信用
#include <Idglobal.hpp>
#include <IdSMTP.hpp>
#include <IdSSLOpenSSL.hpp>
// POP before SMTP
#include <IdPOP3.hpp>

// メール本文の文字化けの対応
#include <IdHeaderCoder2022JP.hpp>
#pragma link "IdHeaderCoder2022JP"
...

void __fastcall TForm1::IdMessage1InitializeISO(System::WideChar &VHeaderEncoding,
          UnicodeString &VCharSet)
{
    VHeaderEncoding = L'B';
    VCharSet = "ISO-2022-JP";
}
...
void __fastcall TForm1::sendTestMailSMTP()
{
    // 1. POP before SMTP
    TIdPOP3 *idPop3 = new TIdPOP3();
    idPop3->Host = kPopServerAdr;
    idPop3->Port = kPopPort; // int
    idPop3->Username = kMyUserName;
    idPop3->Password = kMyPassword;

    // command is not valid in this state
    TIdSSLIOHandlerSocketOpenSSL *idSSL = new TIdSSLIOHandlerSocketOpenSSL();
    if (useTLS) {
        idSSL->Host = kPopServerAdr;
        idSSL->Port = kPopPort;
        idSSL->Destination = idSSL->Host + L":" + IntToStr(kPopPort);
        idPop3->IOHandler = idSSL;
        idPop3->UseTLS = utUseImplicitTLS;
    }

    try {
        idPop3->Connect();
        idPop3->Disconnect();
    } catch (const Exception &e) {
        String msg = e.Message;
        delete idPop3;
        delete idSSL;
        return; // fail
    }
    delete idSSL;
    delete idPop3;

    // 2. sending e-mail using SMTP

    TIdSMTP* smtp = new TIdSMTP(NULL);
    TIdSSLIOHandlerSocketOpenSSL * sslHandler = new TIdSSLIOHandlerSocketOpenSSL(NULL);

    smtp->Host = kSmtpHost;
//  sslHandler->Host = smtp->Host;
//  sslHandler->Port = smtp->Port;
//  sslHandler->Destination = sslHandler->Host + L":"
//      + IntToStr(sslHandler->Port);
    smtp->IOHandler = sslHandler;
    smtp->Username = kMyUserName;
    smtp->Password = kMyPassword;
    smtp->Port = 587;
    smtp->UseTLS = utUseExplicitTLS;

    try {
        smtp->Connect();
    } catch (const Exception &e) {
        String msg = e.Message;
    }

    TIdMessage* msg = new TIdMessage(NULL);
    msg->OnInitializeISO = IdMessage1InitializeISO;
    msg->ContentType = "text/plain";
    msg->CharSet = "ISO-2022-JP";
    msg->ContentTransferEncoding = "BASE64";
    msg->From->Name = kFromName;
    msg->From->Address = kFromAddr;
    msg->Recipients->EMailAddresses = kRecipients;

    // TODO: 件名は日本語だと文字化けする
    msg->Subject = "test mail from XE4 on " + Now().FormatString(L"hh:nn:ss");

    msg->Body->Text = "テストメールの本文です";

    try {
        smtp->Send(msg);
    } catch (const Exception &e) {
        String msg = e.Message;
    }

    smtp->Disconnect();
    delete msg;
    delete smtp;
}

また、上記において以下を定義しておく必要あり。

String kMyUserName; // POP, SMTP接続ユーザ名
String kSmtpHost; // SMTPサーバー
String kPopServerAdr; // POPサーバー
int kPopPort; // 995 or 110 or ?
bool useTLS;
String kFromName; // e.g. yamada
String kFromAddr; // e.g. [e-mail]
String kRecipients; // 送信先メールアドレス

ただし、パスワード(下記)に関してはコード埋め込みしないように。

String kMyPassword; // パスワード

10.2 Tokyo対応

(追記 2018/01/10)

10.2 Tokyoの場合は以下の方法で送信できた。

• C++ Builder 10.2 Tokyo > Indy > OpenSSL > Error: Could not load SSL library > libeay32.dllとssleay32.dllが関連