Sendmailで送信すると本文にメールヘッダーが出る
いつもお世話になります。
PerlでSendmail送信プログラムは何回か作ったことが有るのですが、いつもと同じように作っているつもりにも関わらず、送信されたメール本文の1~2行目に
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
が表示されます。
コードは$mailtoや$mail_from、$mail_subjectなどをMIMEエンコードしてから下記の様なコードでメールヘッダーを作成し
$header = <<END;
To: $mailto
Bcc:$mail
From: $mail_from<$mail>
Subject: $mail_subject
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
END
#メールの本文を下記のように作成
$body = <<END;
メール本文
END
$mbody=jcode::jis($body);
#Sendmailで送信する。
open(MAIL, "| $SENDMAIL -i -t -f $mail") or die("ERROR: exec sendmail.");
print MAIL $header, $mbody;
close MAIL;
というコード-です。
なにが原因かおわかりの方宜しくお願いします。
お礼
ありがとうございます。今から試してみます。