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);
いまさら感が満載ですが、あまりメール送る事ないので・・。