![]() |
| カレッヂ |
質問者 Takashi
投稿日 5/2(金) 12:13:09
[削除] (返信・回答が付いた後にこの質問の削除はできません)
下記のPerlプログラムで、掲示板に投稿があった際、
その内容をメールで通知しているのですが、
特定のメーラー(具体的には富士通のAtMail)で受信すると
本文すべてが文字化けをして読めません。
理由がわかりましたら教えて下さい。
$MailSub = '掲示板投稿案内';
$MailBody = <<"EOF";
投稿者名:$form{'name'}
Eメール:$form{'email'}
タイトル:$form{'sub'}
投稿内容:
$com
EOF
# JISコード変換
&jcode'convert(*MailSub,'jis');
&jcode'convert(*MailBody,'jis');
open(OUT,"| $sendmail -t") || &error("メール送信に失敗しました");
print OUT "To: $mailto\n";
print OUT "From: $email\n";
print OUT "Subject: $MailSub\n";
print OUT "MIME-Version: 1.0\n";
print OUT "Content-type: text/plain; charset=ISO-2022-JP\n";
print OUT "Content-Transfer-Encoding: 7bit\n";
print OUT "X-Mailer: $ver\n\n";
print OUT "--------------------------------------------------------\n";
print OUT "$MailBody\n";
print OUT "--------------------------------------------------------\n";
close(OUT);
プロバイダ参照: |
返信(回答)する
| Web裏技 |