perlでメールを送る時に記号が入ってると文字化けしちゃうのでHTMLメールで送ることにしました。

送るテキストファイル(mail.txt)、文字コードUTF8です。

普通の日本語です。
☀☁☂☃☎☏☚☛☜☝☞☟
☠☢☣☤☥☪☭☯☹☺☻☼☽☾
♔♕♖♘♚♛♞♠♡♢♣♤♥♦♧
♨♩♪♫♬♭♮♯✂✄✈✍✎✏✐
✑✓✘✳❀➘➙➚➜➥➦➷➸➹
普通の日本語です。

プログラム

html_mail.pl

# !/usr/bin/perl

use utf8;
use strict;
use Encode;
use Encode::MIME::Header;

my $subject = 'UTF8の記号を送るよ！';
my $to_mail = 'address@example.com';

my $mime_subject = encode( 'MIME-Header-ISO_2022_JP', $subject );
my $mime_to_mail = encode( 'MIME-Header-ISO_2022_JP', $to_mail );

my $body = '';
for (<>) {
	my $utf8 = decode_utf8($_);
	$body .= encode( 'jis', $utf8, Encode::FB_HTMLCREF );
}

my $mail_cmd = '/usr/sbin/sendmail';

my $header = '';
$header .= "MIME-Version: 1.0\n";
$header .= "To: " . $mime_to_mail . "\n";
$header .= "Subject: " . $mime_subject . "\n";
$header .= "Content-type: text/html; charset=ISO-2022-JP\n";
$header .= "Content-Transfer-Encoding: 7bit\n";
$header .= "\n";

if ( open( SMAIL, "| $mail_cmd -t -i" ) ) {
	print SMAIL $header;
	print SMAIL '<html><body><pre>' . "\n";
	print SMAIL $body . "\n";
	print SMAIL '</pre></body></html>' . "\n";
	close(SMAIL);
}
else {
	print STDERR "ERROR $!\n";
}

exit(0);

1;

実行

./html_mail.pl < mail.txt

結果

記号入りでメールが届きました。

普通の日本語です。
☀☁☂☃☎☏☚☛☜☝☞☟
☠☢☣☤☥☪☭☯☹☺☻☼☽☾
♔♕♖♘♚♛♞♠♡♢♣♤♥♦♧
♨♩♪♫♬♭♮♯✂✄✈✍✎✏✐
✑✓✘✳❀➘➙➚➜➥➦➷➸➹
普通の日本語です。

ポイント

JISにエンコードする時の Encode::FB_HTMLCREF 部分が重要です。これがないと文字化けして届きました。

普通の日本語です。
????????????
??????????????
???????????????
??♪??♭?♯???????
??????????????
普通の日本語です。

参考サイト

@dankogaiさんの記事を参考にさせていただきました。

404 Blog Not Found : perl - Encode 中級