カレッヂ |
質問者 なおき
投稿日 7/18(水) 12:59:16
ホームページにメールフォールを作成し、 訪問してくれた人に書いてもらい、送信してもらいます。 すると、その訪問者に自動的にこっちから「ありがとう」とメールを送 るようにしたいのですか? |
回答者 呑兵衛
[削除]
投稿日 7/18(水) 20:01:12
呑兵衛といいます。 sub sendmail { .. .. } の後に &sendmail2; と記述し、 #---------------------------------------------------------------------------- sub sendmail2 { $subject = 'Thank you!'; # 日本語では文字化けする可能性大。 open(OUT,"| $sendmail -t") || &error('礼状送信失敗','お礼を送ろうとしましたが失敗しました.'); print OUT "X-Mailer: WebFORM v4.0 by www.rescue.ne.jp\n"; print OUT "X-HTTP_REFERER: $ref\n"; # To と From の入替え print OUT "To: $email\n"; print OUT "From: $mailto\n"; &jis("Subject: $subject"); print OUT "$msg\n"; print OUT "Content-Transfer-Encoding: 7bit\n"; print OUT "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n\n"; &jis("ありがとう"); print OUT "$msg\n"; # 上は " " の言葉を変えて何行でも書けます。 print OUT "\n"; close(OUT); } #----------------------------------------------------------------------------- これをスクリプトのいちばん最後に追記します。 |
質問者 なおき
[削除]
投稿日 7/19(木) 17:23:52
呑兵衛さん ご返信ありがとうございます。 早速試してみたのですが、届きません。 おそらく、 sub sendmail { .. .. } の後に &sendmail2; と記述し、 のところがうまく理解していないと自分で思うので 詳しく教えて頂きたいのですが? 現状は、 } exit; } 今はこの場所に記述しました。 sub cc { あとの #------------ #------------ の部分は最下部に記述しました。 お手数お掛けして申し訳ありませんがお願い致します。 |
回答者 呑兵衛
[削除]
投稿日 7/19(木) 18:34:19
sub sendmail { .. .. close(out); の後に &sendmail2; と記述し、 に訂正します。 それから sub sendmail2 { .. .. } の後(webform.cgiの最後の行)は改行してくださいね。 |
質問者 なおき
[削除]
投稿日 7/24(火) 11:36:38
呑兵衛さん返事が遅れ申し訳ありません。 無事出来ました。お手間をかけ申し訳ありませんでした。 ありがとうございました。 |
このページは終了したので返信(回答)は書きこめません
Web裏技 |