有限会社ウェブスリー・ラボ
フォーム・メール
1. 機能
2. 設定
2-1 基本設定
subjectは、メールのタイトルで指定は任意です。指定しない場合は、デフォルトの "WWW Form Submission" が使われます。
送信していただいたあとに「ありがとうございました」等のメッセージを返すページを指定する場合には、以下のタグを置いてください。
<Input Type="hidden" name="redirect" value="http://yourdomain.com/thanks.html">
送信者の名前のテキスト・ボックスは以下のようにしてください。
お名前: <Input name="realname" size="25">
また、送信者のemailのテキスト・ボックスは以下のようにしてください。emailを指定する場合、requiredフィールドにも入れるようにして下さい。シンタックスのチェックが行われます。
email: <Input name="email" size="25">
ユーザー情報を知りたい場合には、以下のように指定します。REMOTE_HOST等以外の環境変数も指定できます。
<input type="hidden" name="env_report" value="REMOTE_HOST,HTTP_USER_AGENT">
特定の項目をメールボディに含めたい場合は、以下のように指定します。
<input type="hidden" name="print_config" value="email,subject">
その他、hiddenフィールドには以下のような指定が可能です。詳細はスクリプト内をご覧下さい。
| rint_blank_fields | <input type="hidden" name="print_blank_fields" value="1"> |
| title | <input type="hidden" name="title" value="Feedback Form Results"> |
| return_link_url | <input type="hidden" name="return_link_url" value="http://yourdomain.com/main.html"> |
| return_link_title | <input type="hidden" name="return_link_title" value="Back to Main Page"> |
| missing_fields_redirect | <input type="hidden" name="missing_fields_redirect" value="http://yourdomain.com/error.html"> |
| background | <input type="hidden" name="background" value="http://yourdomain.com/image.gif"> |
| bgcolor | <input type="hidden" name="bgcolor" value="#FFFFFF"> |
| text_color | <input type="hidden" name="text_color" value="#000000"> |
| link_color | <input type="hidden" name="link_color" value="#FF0000"> |
| vlink_color | <input type="hidden" name="vlink_color" value="#0000FF"> |
| alink_color | <input type="hidden" name="alink_color" value="#0000FF"> |
3. さまざまなフォーム
4. サブジェクト行の日本語化について
------------------------------------------------------------------------------
sub send_mail {
# Localize variables used in this subroutine. #
local($print_config,$key,$sort_order,$sorted_field,$env_report);
# Open The Mail Program
open(MAIL,"|$mailprog -t");
print MAIL "To: $Config{'recipient'}\n";
print MAIL "From: $Config{'email'} ($Config{'realname'})\n";
# Check for Message Subject
if ($Config{'subject'}) { print MAIL "Subject: $Config{'subject'}\n\n" }
else { print MAIL "Subject: WWW Form Submission\n\n" }
------------------------------------------------------------------------------
を、以下に入れ替える。
------------------------------------------------------------------------------
sub send_mail {
# Localize variables used in this subroutine. #
local($print_config,$key,$sort_order,$sorted_field,$env_report);
use MIME::Base64 ();
require './jcode.pl';
$nkf = "./nkf/nkf";
$subject = $Config{'subject'};
$realname = $Config{'realname'};
&jcode::convert(\$subject, 'jis');
$subject = MIME::Base64::encode($subject);
chomp($subject);
$subject = "=?ISO-2022-JP?B?$subject?=";
&jcode::convert(\$realname, 'jis');
$realname = MIME::Base64::encode($realname);
chomp($realname);
$realname = "=?ISO-2022-JP?B?$realname?=";
# Open The Mail Program
open(MAIL,"|$nkf -j|$mailprog -t");
print MAIL "To: $Config{'recipient'}\n";
print MAIL "From: $Config{'email'} ($realname)\n";
# Check for Message Subject
if ($subject) { print MAIL "Subject: $subject\n\n" }
else { print MAIL "Subject: WWW Form Submission\n\n" }
------------------------------------------------------------------------------
ブラウザーのバックボタンでヘルプ・ファイルのメニューにお戻りください。