[Linux]Perlでメール送信(Email::MIME)

どっかでまとめた事があるような内容なんですが、見つからず再度(^ ^;
参考サイト:第20回 Email::Sender:メールを送信する

手順としては、Email::MIMEでメールを作成して、Email::Senderでメールを送信するって感じです。
sampleは参考サイトからの引用

use strict;
use warnings;
use utf8;
use Email::MIME;
use Email::MIME::Creator;
use Encode;
# use Encode::compat::MIME::Header::ISO_2022_JP; # perl < 5.8.8 my $email = Email::MIME->create(
header => [
From => encode('MIME-Header-ISO_2022_JP' => '"F.U." '),
To => encode('MIME-Header-ISO_2022_JP' => '"B.A." '),
Subject => encode('MIME-Header-ISO_2022_JP' => 'タイトル'),
],
attributes => {
content_type => 'text/plain',
charset => 'ISO-2022-JP',
encoding => '7bit',
},
body => encode('iso-2022-jp' => '本文'),
);

sendmail($email);

マルチパートにも対応できるので、サイトを参考にしてみてください。

Follow me!

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です