WEBで自動返信(サンキューメール)をASPで実現するサンプル｜技術情報 | 株式会社アイプランニング〜プログラム開発請負

WEBで自動返信(サンキューメール)をASPで実現するサンプル

新卒採用の応募、セミナーへの応募時に、応募者に対して自動的にサンキューメールを送ることを
ASP(Active Server Pages)で実現するサンプルコードを公開します。
※WindowsNTサーバ編

ASPサンプルコード

<%@ language="javascript" %>
<%
function check_mail_address(address) {
    // http://www.tt.rim.or.jp/~canada/comp/cgi/tech/mailaddrmatch/
    var regex = new RegExp("^[\x01-\x7F]+@(([-a-z0-9]+\.)*[a-z]+|\[\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\])$", "i");
    return regex.test(address);
}

function form_parameter() {
    this.s = "";
    this.n = "";
    this.k = "";
    this.m = "";
    this.c = "";
}

function user_infomation() {
    this.host = "";             // REMOTE_HOST
    this.ua = "";               // HTTP_USER_AGENT
    this.time = "";
}

// ////////////////////////////////////////////////////////////////
var info = new user_infomation();
var param = new form_parameter();
for (var i in param) {
    param[i] = Request.Form(i).item();
}

var text = "";
text += "<dl>\n";
for (var i in param) {
    text += "<dt>" + Server.HTMLEncode(i) + "</dt><dd>" + Server.HTMLEncode(param[i]) + "</dd>\n";
}
text += "</dl>\n";

if (param.s == "上記に同意して送信") {
    if (param.n != "" && param.k != "" && param.m != "" && check_mail_address(param.m)) {
        info = new user_infomation();
        info.host = Request.ServerVariables("REMOTE_HOST");
        info.ua = Request.ServerVariables("HTTP_USER_AGENT");
        // 時刻
        info.time = get_current_time();

// ここで情報を送信
        var cdo = Server.CreateObject("CDONTS.NewMail");
        cdo.To = "xxxxx@xxxx.xx.xx";
        cdo.From = "xxxxx@xxxx.xx.xx";
        cdo.Subject = "テスト応募";
        cdo.Body = "名前\t"           + param.n + "\n"
                 + "ふりがな\t"       + param.k + "\n"
                 + "メールアドレス\t" + param.m + "\n"
                 + "コメント\n"       + param.c + "\n\n"
                 + "REMOTE_HOST\t"    + info.host + "\n"
                 + "HTTP_USER_AGENT\t" + info.ua + "\n"
                 + "TIME\t"            + info.time + "\n\n";
        cdo.Send();

cdo = null;
        cdo = Server.CreateObject("CDONTS.NewMail");
        cdo.To = param.m;
        cdo.From = "xxxxx@xxxx.xx.xx";
        cdo.Subject = "テストさんくすメール";
        cdo.Body = param.n + "さん、さんくす\n\n"
        cdo.Send();

Response.Redirect("./thankyou.html");
    } else {
        text += "<p><strong>入力に不備があります。</strong></p>\n";

if (param.m != "") {
            if (check_mail_address(param.m)) {
                text += "<p>" + Server.HTMLEncode(param.m) + "はOK</p>\n";
            } else {
                text += "<p>" + Server.HTMLEncode(param.m) + "はNG</p>\n";
            }
        }
    }
} else {
    param = new form_parameter();
    // Response.Redirect("./test.html"); でもいいかも
}
// ////////////////////////////////////////////////////////////////
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
  <meta http-equiv="Content-Script-Type" content="text/javascript">
  <meta http-equiv="Content-Style-Type" content="text/css">
  <meta name="robots" content="noindex,nofollow">
  <meta name="robots" content="noarchive">
  <title>てすとよう</title>
  <script type="text/javascript" src="test.js" charset="UTF-8"></script>
</head>

<body>
  <h1>応募フォーム</h1>
  <p>応募の際の注意点を書く</p>

<% = text %>

<form method="POST" action="test.asp" id="entry_form" onsubmit="return validate(this);">
<dl>
  <dt>氏名:</dt>
  <dd><input type="text" size="20" name="n" id="entry_name" value="<% = Server.HTMLEncode(param.n) %>"></dd>
  <dt>ふりがな:</dt>
  <dd><input type="text" size="20" name="k" id="entry_kana" value="<% = Server.HTMLEncode(param.k) %>"></dd>
  <dt>メールアドレス:</dt>
  <dd><input type="text" size="30" name="m" id="entry_mail" value="<% = Server.HTMLEncode(param.m) %>"></dd>
  <dt>コメント:</dt>
  <dd><textarea rows="10" cols="40" name="c" id="entry_comment"><% = Server.HTMLEncode(param.c) %></textarea></dd>
</dl>
<p>応募の際の確認事項を書く</p>
<p><input type="submit" name="s" value="上記に同意して送信"></p>
</form>
</body>
</html>

ポイントは、メールを送信する時に、担当者宛てと、応募者にそれぞれ

var cdo = Server.CreateObject("CDONTS.NewMail");

を使って

cdo.Send();

をするところです。２通送っているだけです・・・。

また、送信が完了した場合には、Thankyouページを開くために

Response.Redirect("./thankyou.html");

で、URLリダイレクト処理をいれています。

Server.HTMLEncode で文字列をエンコードするのを忘れると文字化けしますのでご注意下さい。