LoginSignup
0
2

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 5 years have passed since last update.

@7of9

c++ builder > 添付ファイルをつけたメールを送信 / MIME Content-Type | 10.2 Tokyoの場合

Last updated at Posted at 2016-06-10
動作確認
C++ Builder XE4

ベース http://qiita.com/7of9/items/5d0117a0802cca97f5f9

上記のメール処理に対して、添付ファイルをつけたメールを送信するように変更する。

参考 http://www.gesource.jp/programming/bcb/97.html

変更箇所

以下の#if 1 // attachの処理がファイル添付に必要になった処理

include追加

# if 1 // attach
# include <IdAttachmentFile.hpp>
# endif

ContentTypeを"multipart/mixed"にする

# if 1 // attach
	msg->ContentType = "multipart/mixed";
# else
	msg->ContentType = "text/plain";
# endif

ファイル添付処理

# if 1 // attach
	TIdAttachmentFile *attmnt;
	attmnt = new TIdAttachmentFile(msg->MessageParts, L"tmp.jpg");
	attmnt->FileName = L"tmp.jpg";
	attmnt->ContentType = L"image/jpeg";
# endif

手仕舞い

# if 1 // attach
	delete attmnt;
# endif

コード

コード全体は以下となる。

Unit1.cpp
//---------------------------------------------------------------------------

# include <vcl.h>
# pragma hdrstop

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

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

# include "Unit1.h"

# include "mailInfo.h" // メールサーバーなどの設定


# if 1 // attach
# include <IdAttachmentFile.hpp>
# endif

//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------

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;
# if 1 // attach
	msg->ContentType = "multipart/mixed";
# else
	msg->ContentType = "text/plain";
# endif
	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 = "テストメールの本文です";

# if 1 // attach
	TIdAttachmentFile *attmnt;
	attmnt = new TIdAttachmentFile(msg->MessageParts, L"tmp.jpg");
	attmnt->FileName = L"tmp.jpg";
	attmnt->ContentType = L"image/jpeg";
# endif

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

	smtp->Disconnect();
# if 1 // attach
	delete attmnt;
# endif
	delete msg;
    delete smtp;
}

void __fastcall TForm1::IdMessage1InitializeISO(System::WideChar &VHeaderEncoding, UnicodeString &VCharSet)
{
    VHeaderEncoding = L'B';
    VCharSet = "ISO-2022-JP";
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	sendTestMailSMTP();
}
//---------------------------------------------------------------------------
Unit1.h
//---------------------------------------------------------------------------

# ifndef Unit1H
# define Unit1H
//---------------------------------------------------------------------------
# include <System.Classes.hpp>
# include <Vcl.Controls.hpp>
# include <Vcl.StdCtrls.hpp>
# include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TButton *Button1;
	void __fastcall Button1Click(TObject *Sender);
private:	// ユーザー宣言
	void __fastcall TForm1::IdMessage1InitializeISO(System::WideChar &VHeaderEncoding, UnicodeString &VCharSet);
	void __fastcall TForm1::sendTestMailSMTP();
public:		// ユーザー宣言
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
# endif

必要なヘッダ

上記の実行には mailInfo.h が必要

mailInfo.hにはメールサーバーなどの設定を記載する。

# ifndef MAIL_INFO_H
# define MAIL_INFO_H

String kMyUserName = L"yamada@xxx.com";
String kSmtpHost = L"smtp.xxx.com";
String kPopServerAdr = L"pop.xxx.com";
int kPopPort = 995;
bool useTLS = true;

String kFromName = L"yamada"; // e.g. yamada
String kFromAddr = kMyUserName; // 
String kRecipients = "tanii@xxx.com"; // 送信先メールアドレス
String kMyPassword = L"1234567"; 
# endif

添付するファイルの準備

適当にキャプチャして保存したtmp.jpgファイルを.exeと同じフォルダに置く。

各種ファイルのContent-Type

jpg以外のファイルを添付する場合のContentTypeについては以下に整理されている。

複数ファイルの添付

(追記 2016/07/07)

複数のファイルを添付するのはどうしたらいいかというと、以下ようにすればいいようだ。
送信後にattmnt1とattmnt2をdeleteすること。

# if 1 // attach
	TIdAttachmentFile *attmnt1;
	attmnt1 = new TIdAttachmentFile(msg->MessageParts, L"tmp1.jpg");
	attmnt1->FileName = L"tmp1.jpg";
	attmnt1->ContentType = L"image/jpeg";

	TIdAttachmentFile *attmnt2;
	attmnt2 = new TIdAttachmentFile(msg->MessageParts, L"tmp2.jpg");
	attmnt2->FileName = L"tmp2.jpg";
	attmnt2->ContentType = L"image/jpeg";
# endif

10.2 Tokyo対応

(追記 2018/01/10)

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

0
2
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
Sign upLogin
0
2

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?