CGIで自動返信メール

質問

CGIで自動返信メール

サイトに問い合せフォームを作成し
自分宛メールと自動返信メールが送付されるようにしたいです。

CGIの中身を書き換えメールのヘッダに言葉を入れたいのですがうまくいきません。

検証(1)デフォルトの設定

【結果】「送信」ボタンクリック後に出てくる画面と
自分宛メールと
自動返信メールの内容は、回答内容の羅列のみ

{
&jcode'convert(*subject, "jis");
$mailhead = "";
$mailhead .= "Content-Type: text/plain; charset=\"iso-2022-jp\"\n";
$mailhead .= "Content-Transfer-Encoding: 7bit\n";
$mailhead .= "MIME-Version: 1.0\n";
$mailhead .= "To: $mailto\n";
if ($mailfrom) {
$mailhead .= "From: $FORM{'EMAIL'}\n";
$mailhead .= "Cc: $FORM{'EMAIL'}\n";
} else {
$mailhead .= "From: $mailto\n";
}
$mailhead .= "Subject: $subject\n";
$mailhead .= "\n";
}

検証(2)1行だけ追加

【結果】「送信」ボタンクリック後に出てくる画面の一番上の行に
「お問い合わせありがとうございます」と出て
その下に回答内容が羅列されている。
自分宛メールも同様の症状。
自動返信メールは届かない。

{
&jcode'convert(*subject, "jis");
$mailhead = "お問い合わせありがとうございます";★ここを変更してみました★
$mailhead .= "Content-Type: text/plain; charset=\"iso-2022-jp\"\n";
$mailhead .= "Content-Transfer-Encoding: 7bit\n";
$mailhead .= "MIME-Version: 1.0\n";
$mailhead .= "To: $mailto\n";
if ($mailfrom) {
$mailhead .= "From: $FORM{'EMAIL'}\n";
$mailhead .= "Cc: $FORM{'EMAIL'}\n";
} else {
$mailhead .= "From: $mailto\n";
}
$mailhead .= "Subject: $subject\n";
$mailhead .= "\n";
}

検証(3)2行追加

【結果】「送信」ボタンクリック後に出てくる画面の一番上の行に
「お問い合わせありがとうございます。
後日担当よりご連絡させていただきます。」と出るが
回答内容は文字化け。
自分宛メールも同様の症状。
自動返信メールは届かない。
（ちなみに検証(2)の「お問い合わせありがとうございます」の文末に
「ありがとうございます。」と「。」を追加しただけでも
これと同じ結果になりました）

{
&jcode'convert(*subject, "jis");
$mailhead = "お問い合わせありがとうございます。
後日担当よりご連絡させていただきます。
";★ここを変更してみました★
$mailhead .= "Content-Type: text/plain; charset=\"iso-2022-jp\"\n";
$mailhead .= "Content-Transfer-Encoding: 7bit\n";
$mailhead .= "MIME-Version: 1.0\n";
$mailhead .= "To: $mailto\n";
if ($mailfrom) {
$mailhead .= "From: $FORM{'EMAIL'}\n";
$mailhead .= "Cc: $FORM{'EMAIL'}\n";
} else {
$mailhead .= "From: $mailto\n";
}
$mailhead .= "Subject: $subject\n";
$mailhead .= "\n";
}

CGIの抜粋がこれだけでは足りないでしょうか？
ちなみに自分宛メールはhotmailのアドレスを、
自動返信メールはgoomailを使用しています。

回答No.2

naokita · ベストアンサー

それは、とほほさんのですね。
&jcode'convert(*mailbody, "jis");

http://www.tohoho-web.com/lng/200004/00040055.htm
http://www.tohoho-web.com/wwwperl1.htm

お礼

ありがとうございます！！
おっしゃるとおり、とほほさんのところのでした。

教えていただいたサイトを参考に修正したところ
見事文字バケが解消しました！！
もう数日間ずっと文字バケと格闘してきましたが
おかげでやっと解決できました！！
本当にありがとうございます！！！

回答No.1

naokita

メールボディと合体させるように書かないとダメ・・・
そもそも、本文はどこなのでしょう？　その１行上部に挿入。

送信確認画面や完了画面を作り送信前に一旦formで渡したいのなら、
もっと多機能なCGIを使わないと無理です。
メール内容だけ、「○○様へ」とか「ありがとう」や「署名」を入れたいなら
回答内容文と合体させないとダメ。

お礼

ご回答ありがとうございます！
メールボディー部分のCGIは以下のようになっています。

#
# メールボディを作成する
#
{
for ($i = 0; $i < $cnt; $i++) {
$mailbody .= "$FORM[$i] = $FORM{$FORM[$i]}\n";
}

# "." のみの行は ". " に変換する。
# 2回繰り返さないと、2行連続で "." のみの行に対応できない
# "." を ".." に変換する処理が一般的だそうだが、あえて、
# "." を ". " に変換する。
$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;
$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;
}

なので、以下の2つの方法を試してみました。

(1)一番上に足してみる
【結果】「Internal Server Error」になってしまう

#
# メールボディを作成する
#
{
&jcode'convert(*subject, "jis");←★★ここです
$maibody = "お問い合わせありがとうございます";←★★ここです
for ($i = 0; $i < $cnt; $i++) {
$mailbody .= "$FORM[$i] = $FORM{$FORM[$i]}\n";
}

# "." のみの行は ". " に変換する。
# 2回繰り返さないと、2行連続で "." のみの行に対応できない
# "." を ".." に変換する処理が一般的だそうだが、あえて、
# "." を ". " に変換する。
$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;
$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;
}

(2)一番下に足してみる
【結果】送信完了画面、自分宛メール、自動返信メールともに
「お問い合わせありがとうございます」がどこにも表示されない

#
# メールボディを作成する
#
{
for ($i = 0; $i < $cnt; $i++) {
$mailbody .= "$FORM[$i] = $FORM{$FORM[$i]}\n";
}

# "." のみの行は ". " に変換する。
# 2回繰り返さないと、2行連続で "." のみの行に対応できない
# "." を ".." に変換する処理が一般的だそうだが、あえて、
# "." を ". " に変換する。
$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;
$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;
}
{
&jcode'convert(*subject, "jis");←★★ここです
$maibody = "お問い合わせありがとうございます";←★★ここです
}

相変わらず手探りですがまた教えていただけると助かります。。
お願いいたします！

補足

追記です。
メール本文CGIを追加してみたら（←★★部分）
以下のようなエラーになってしまいます

(1)メール送信完了画面
入力した本文：正常
入力内容：文字バケ

(2)自分宛メール
入力した本文：正常
入力内容：文字バケ

(3)送信確認メール
入力した本文：文字バケ
入力内容：正常

#
# メールボディを作成する
#
{
&jcode'convert(*subject, "jis");←★★
$mailbody .= "お問い合わせありがとうございます。\n";←★★
$mailbody .= "以下の内容の応募が応募フォームよりありました。\n";←★★
$mailbody .= "《応募内容》\n";
for ($i = 0; $i < $cnt; $i++) {
$mailbody .= "$FORM[$i] = $FORM{$FORM[$i]}\n";
}

# "." のみの行は ". " に変換する。
# 2回繰り返さないと、2行連続で "." のみの行に対応できない
# "." を ".." に変換する処理が一般的だそうだが、あえて、
# "." を ". " に変換する。
$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;
$mailbody =~ s/(^|\n)\.(\n|$)/$1. $2/g;

}

文字バケを回避するにはどうしたらいいでしょうか。。。
引き続きお願いいたします！