[三流君] −−＞ [ＡＳＰで遊ぶ、失敗する] −−＞ [バックナンバー一覧]
−−＞ No.036 Server.CreateObject("basp21pro") ASPからメール送信

Server.CreateObject("basp21pro") ASPからメール送信

本文(発行内容)

＜Server.CreateObject("basp21pro") ASPからメール送信＞

こんにちは、Ｋｅｎ３です。

ご無沙汰です、
今回は、
ASPからメールを送る処理で、有名なbasp21を使ってみたいと思います。

/*
 * １．メール送りたいんだけど....basp21って何だ？
*/

商品の問合せとの自動返信とかで、
処理完了後にメールを送りたい、なんて用途ありますよね。
そんな時、Perlなとでは有名なのは、Sendmailを使用かなぁ。

ＡＳＰでメール送信を探すと、必ずと言っていいほど出てくるのが、
basp21を使えば簡単、そんな話を見かけます。

でもなぁ、
私が使っているのレンタルサーバーだしなぁ、
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
使えないだろう、、と思っていたら、
basp21proって製品版がセットアップされてて、
最近メール送信で使えるようになったみたい。

BASP21 Pro アプリケーションガイド
http://www.b21soft.co.jp/basp21/basp21pappl.html

Ken3が使っているレンタルサーバーの紹介
http://www.ken3.org/asp/server.html
ASP で Access MDB / SQL Server が使用可能、
BASP21でメールが送信可能。
Server.CreateObject("basp21pro") が使えます。

/*
 * ２．簡単？こんなんで送れるの、、、
*/

サンプル見てポイントは下記のような感じです。

  'メールの送信先、件名を設定します。
  mailto = "*****@ken3.org"
  subj = "未承諾広告※"

  'メール本文の組み立てを行います。
  m_honbun = Now & "に作成" & chr(13) & chr(10) _
           & "テストです" & chr(13) & chr(10) _
           & "OKですか？" chr(13) & chr(10)

	'メールを送信します。
	Set bobj = Server.CreateObject("basp21pro")  'オブジェクトの作成
	bobj.Env = "IUSR_MACHINE:" & Request.ServerVariables("REMOTE_ADDR")
	bobj.mailfrom = "gomi@ken3.org"  '送信元のメールアドレス

	rc = bobj.sendmail(mailto,subj,m_honbun)  '設定後、送信メソッド実行

    'rcを見て、エラー処理を行う

/*
 * ３．問合せフォームのサンプル
*/

宣伝ばかりだと怒られそうなので、問合せフォームのサンプルを作成します。

http://www.ken3.org/cgi-bin/test/test036-1.asp で実行可能です。

-- test036-1.asp
<%@LANGUAGE=VBScript%>
<% 'メール送信処理をまとめる


Sub SENDMAIL(mailto, subj, honbun) 'メールの送信

  '送信データアリかチェックする
  If Len(mailto) = 0 Then Exit Sub
  If Len(subj) = 0 Then Exit Sub
  If Len(honbun) = 0 Then Exit Sub

  'メール本文の組み立てを行います。 後ろにテスト文章を追加
  m_honbun = honbun & chr(13) & chr(10) _
           & "----------------" & chr(13) & chr(10) _
           & "テスト送信です" & chr(13) & chr(10)

	'メールを送信します。
	Set bobj = Server.CreateObject("basp21pro")  'オブジェクトの作成
	bobj.Env = "IUSR_MACHINE:" & Request.ServerVariables("REMOTE_ADDR")
	bobj.mailfrom = "gomi@ken3.org"  '送信元のメールアドレス

	rc = bobj.sendmail(mailto,subj,m_honbun)  '設定後、送信メソッド実行

    Response.Write "<HR>"
    Response.Write mailto & " へメールを送りました。<BR>"
    Response.Write "送信終了リターン値は" & rc & "でした。"
    Response.Write "<HR>"

End Sub

%>

<html>
<head>
<title>Server.CreateObject("basp21pro") ASPからメール送信</title>
</head>
<body>
<h2>Server.CreateObject("basp21pro") ASPからメール送信</h2>
test036-1.asp<br>
<br>
<%  '頭で、入力パラメーターDATAがあるかチェックする
  If IsEmpty(Request.Form("MTO")) = True Then
        'そのまま下のHTMLフォームを実行
%>
    <h3>メール送信テスト</h3>
    <FORM ACTION="test036-1.asp" METHOD="POST">
      <b>メールアドレス：</b>
      <INPUT TYPE="text" SIZE="26" NAME="MTO" VALUE="*****@ken3.org"><BR>
      ＊送信先メールアドレスを入れてください。<br>
      <b>件名：</b>
      <INPUT TYPE="text" SIZE="40" NAME="SUBJECT" VALUE="XXXXについて"><BR>
      ＊好きな入れてください。<br>
      <b>内容</b><br>
      <TEXTAREA NAME="HONBUN" ROWS=10 COLS=40>内容</TEXTAREA><br>
      ＊↑質問内容を入れてください。<br>
      <INPUT TYPE="submit" VALUE="問合せメール送信">
      <INPUT TYPE="reset"  VALUE="クリア">
    </FORM>

<%
  Else 'データが入力されていたら、メールを送信する
      Call SENDMAIL( Request.Form("MTO"), _
                      Request.Form("SUBJECT"), _
                       Request.Form("HONBUN") )
  End If
%>
<hr>
終了です。<br>

<% Call OUT_SRC("basp21") 'ソースの表示関数を呼ぶ %>

</body>
</html>

BASP21 Pro アプリケーションガイド
http://www.b21soft.co.jp/basp21/basp21pappl.html
をみると他にもいろいろな関数が載ってます。

Ken3が使っているレンタルサーバーの紹介
http://www.ken3.org/asp/server.html
ASP で Access MDB / SQL Server が使用可能、
BASP21でメールが送信可能。
Server.CreateObject("basp21pro") が使えます。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

/*
 * ４．終わりの挨拶
*/

なんとか、メール送信ができました。

http://www.ken3.org/cgi-bin/test/test036-1.asp
で自分のアドレス入れて、遊んでください。
＊質問入力フォーム設置しないとなぁ。

素朴な疑問あったら、気軽に、
メール、掲示板に書き込んでくださいね。
掲示板 : http://www.ken3.org/asp/bbs-asp.html

ＡＳＰ、ＶＢＳｃｒｉｐｔ勉強中の三流プログラマーのＫｅｎ３でした。

----------------------------------
関連項目(ただのバックナンバー紹介)
----------------------------------
[No.04 フォームから値を受け取りたい]
( http://www.ken3.org/backno/backno_asp01.html#4 を参照)
では、
フォームを作成し、モードＰＯＳＴで送信
受け取りの基本は簡単で、
Request.Form("フォームの項目名")
で受け取りました。

ページフッター

ここまで、読んでいただきどうもです。目的の情報が見つかったか？少々心配しつつ、、、

三流君へ メッセージを送る

感想や質問・要望・苦情など 三流君へメッセージを送る。
返信例 XXXXさんへ
下記のフォームからメッセージを送ることができます。

あなたのお名前（ニックネーム）:さん
返信は？:

アドレス:に返事をもらいたい
感想や質問↓:


(感想や質問・要望・苦情はHPで記事に載せることがあります。)

種類別のリンク や 広告など

[三流君(TOP ken3.org へ戻る)] / [ASPで遊ぶ、失敗する] / [ASP記事 バックナンバー目次]

Blogとリンク:[三流君のMemo別館]/ [ASP 三流君のソースコード置き場]/ [Ken3Video YouTubeで動画解説]
広告:

気になった ジャンル ↓を選択してください。

まぁ、基本はデータの受け取りかなぁ。
・[Form等を使用したデータのやり取り]・・・ASPと言っても、HTMLの入力フォームからデータを受け取ります。POSTやGETでやりとりを押さえますか。

次は、データの入出力 で ADOを使った(ADOで接続) と SQLの解説を少々
・[ADOでMdbファイルを使う]・・・MDBと接続して、簡単な追加・更新・削除を行った。
・[ADOでExcelと接続してみた]・・・.xlsと接続してSQLを使ってみた。
・[ADOでCSVと接続してみた]・・・.CSV テキストを読み出した。※更新・削除はできません

広告:

DBが使えるので、あまり使用しないけど、普通のテキストファイル処理
・[テキストファイル処理]・・・ファイルを開いて、書き込む。１行読み込みなどを軽く

VBScriptでFormat関数が無いなど、微妙にVBAと違うけど
[VBScript関数関係の説明]・・・少し、処理を書いてみた。
[その他処理サンプル]・・・あまり良いサンプル作れなかったけど。。。
何かの参考となれば幸いです。


[三流君(TOP ken3.org へ戻る)] / [ASPで遊ぶ、失敗する] / [ASP記事 バックナンバー目次]

広告: