くれすのPerl日記

■ [MIME][Encode] MIME::Lite で添付ファイル付きメールを送る 21:37

MIME::Lite を使うと、添付ファイルつきのメールも簡単に送ることができる。

ちょっと Encode でつまずいた。誰か教えてください。

#!/usr/bin/perl
# ソースの文字コードは UTF-8

use strict;
use Encode;
use MIME::Lite;

my $msg = MIME::Lite->new(
  From => 'from@example.com',
  To => 'to@example.com',
  Subject => encode('MIME-Header-ISO_2022_JP', 'メールの件名'),
  Type => 'multipart/mixed',
);

my $message = <<EOF;
メールのテスト
MIME::Liteでメールを送っています。
EOF

# 本文。
$msg->attach(
  Type => 'text/plain; charset="ISO-2022-JP"',
  # ISO-2022-JPのエンコードがうまく行かず、ちょっとトリッキーな方法。
  # おそらくもっとスマートな方法があって、誰か頭の良い人が書き直してくれるに違いない。
  Data => encode('ISO-2022-JP', decode('UTF-8', $message)),
);

# 添付ファイル。
# attach() を繰り返せば、複数のファイルを添付することも可能。
$msg->attach(
  Type => 'image/gif',
  Path => '/path/to/file.gif',   # ファイルのパスを指定する。
  Filename => 'attach.gif',      # この名前で保存される。
  Disposition => 'attachment',   # よくわからん。決め打ち。
);

# send() の引数でSMTPのアドレスを指定できるっぽい。
# 空だと Net::SMTP のデフォルト値？
$msg->send();

# デバッグ用。文字列として表示する。
#print $msg->as_string();

添付ファイルを扱うならこの方法が一番簡単。と思われる。

参照

EncodeモジュールでのMIME Encode

Encodeモジュールで文字コードの変換ができるが、MIMEエンコードをするには以下のようにすればよい。

use Encode;
encode('MIME-Header-ISO_2022_JP', $subject)

詳細はperldoc Encode::MIME::Headerを参照。

MIME::Lite - 添付付きメールの送信

添付付きメールを送信するにはMIME::Liteを利用すると便利です。Net::SMTP や直接Sendmailにパイプして添付を送信する場合、boundryでメッセージ部分と添付部分をきちんと区切ればよいのですが、すこしでも間違えるとうまく送れないことが多いので、こちらのモジュールを使用することをお勧めします。