Perlからメールを送信する( Email::Sender )
2013年4月19日
あまり気にせずEmail::Sendを使い続けていたんですが、Email::Sendって数年前からメンテされてないんですね・・。
って事で、Email::Senderに。
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Email::MIME::Creator;
use Email::Sender::Simple qw/try_to_sendmail/;
my $from_mail = 'xxxxxx@xxxxxxx.com';
my $to_mail = 'xxxxxx@xxxxxxx.com';
my $subject = 'メールタイトル';
my $body = 'メール本文';
my $email = Email::MIME->create(
header_str => [
From => $from_mail,
To => $to_mail,
Subject => $subject,
],
attributes => {
content_type => 'text/plain',
charset => 'UTF-8',
encoding => 'base64',
},
body_str => $body,
);
try_to_sendmail($email);
いまさら感が満載ですが、あまりメール送る事ないので・・。