絵文字メール送信参考
ドコモ端末に絵文字を送るJISでエンコードした後、絵文字キーワードをSJISバイナリ絵文字コードで差し替える。 use Jcode; $from = "foo\@bar.com"; $to = "XXX\@docomo.ne.jp"; $emoji = "\xf8\x9f"; $mesg = "今日の天気はEMOJIです。"; $mesg = Jcode->new($mesg,'euc')->jis; $mesg =~ s/EMOJI/$emoji/; open MAIL, "|/usr/sbin/sendmail -f $from -t $to"; print MAIL "From: $from\n"; print MAIL "Subject: test\n"; print MAIL "To: $to\n"; print MAIL "$mesg\n"; close MAIL; EZ端末に絵文字を送るドコモと同様で、絵文字コードをEZのものにする。この場合、$emoji = "\xf6\x60 ";となり、後は同じ。 Voda 3GC以前の端末に絵文字を送る
use Jcode; $from = "foo\@bar.com"; $to = "xxx\@t.vodafone.ne.jp"; $emoji = "\xf9\x8b "; $mesg = "今日の天気はEMOJIです。"; $mesg = Jcode->new($mesg,'euc')->jis; $mesg =~ s/EMOJI/$emoji/; open MAIL, "|/usr/sbin/sendmail -f $from -t $to"; print MAIL "From: $from\n"; print MAIL "Subject: test\n"; print MAIL "To: $to\n"; print MAIL "$mesg\n"; close MAIL Voda 3GC端末に絵文字を送る
use Jcode; $from = "XXX\@exapmle.com"; $to = "xxx\@t.vodafone.ne.jp"; $emoji = "\x1B\$Gj\x0F"; $mesg = "今日の天気はEMOJIです。"; $mesg = Jcode->new($mesg,'euc')->sjis; $mesg =~ s/EMOJI/$emoji/; open MAIL, "|/usr/sbin/sendmail -f $from -t $to"; print MAIL "From: $from\n"; print MAIL "Subject: test\n"; print MAIL "To: $to\n"; print MAIL "Content-Type: text/plain; charset=\"Shift_JIS\"\n"; print MAIL "$mesg\n"; close MAIL; |
|