メールを送信する

メールを送信するのには Email::Send をつかいます。

つかいかた

use strict;
use warnings;
use utf8;
use Encode;
use Email::MIME;
use Email::MIME::Creator;
use Email::Send;

# メールオブジェクトをつくる
my $mail = Email::MIME->create(
    header => [
        From    => 'from@example.com',
        To      => 'to@example.com',
        Subject => Encode::encode('MIME-Header-ISO_2022_JP', 'コンニチワ'),
    ],
    body => encode('iso-2022-jp', '元気でやってるかー?'), 
);

# Email::Send で送信する
my $sender = Email::Send->new({mailer => 'Sendmail'});
$sender->send($mail);

Email::MIME でメールオブジェクトを作成し、それを Email::Send で送信します。

その他のメール送信モジュール

• PHP::Functions::Mail(yappo)
  • 作者がつかわない方がいいといってました
• MIME::Lite(rjbs)
  • http://use.perl.org/~rjbs/journal/34245 を見よ
    • 作者がメンテナンスを放棄したので使わない方がよい

Email::Simple というモジュールが CPAN にあがっているが、これはマルチパートに対応していないので、基本的には Email::MIME をつかっておくのがいいとおもう。

参考文献

• Email::Sender：メールを送信する - モダンPerlの世界へようこそ
  • http://gihyo.jp/dev/serial/01/modern-perl/0020

目次へ

Last modified: $Date: 2008-05-22T09:21:23.154313Z $