HTML メール
どうやって作るのが簡単なんでしょうか… 以下のようにしがちですがよくわかりません
use Encode;
use Email::MIME;
use Email::MIME::CreateHTML;
my $html = <<EOS;
<!DOCTYPE html>
<head>
<title>タイトル</title>
</head>
<body>
<h1>ああああ</h1>
</body>
</html>
EOS
my $text = <<EOS;
テスト
EOS
my $email = Email::MIME->create_html(
header => [
From => 'from@example.com',
To => 'cho45@lowreal.net',
Subject => encode("MIME-Header-ISO_2022_JP", 'タイトル'),
],
body => encode('iso-2022-jp', $html),
body_attributes => {
content_type => 'text/html',
charset => 'iso-2022-jp',
encoding => 'base64',
},
text_body => encode('iso-2022-jp', $text),
text_body_attributes => {
content_type => 'text/plain',
charset => 'iso-2022-jp',
},
);
print $email->as_string;
#use Email::Send;
#my $sender = Email::Send->new({mailer => 'SMTP'});
#$sender->send($email);