Server.CreateObject("basp21pro") ASPからメール送信を解説する

三流君(TOP) /ASPで遊ぶ /ASP記事一覧を見る
分類: [Form関係] /DB系ADOを使い( [Mdb接続] [CSV接続] [Excel接続]) /[ASPでTextFileを操作] /[VBScript関数ほか]
test036-1.asp
Server.CreateObject("basp21pro")
でオブジェクトを作成して、比較的簡単にＡＳＰからメール送信可能です
詳細は、下記のソースとテスト実行して確認してみてください
※現在、連続送信されているので、処理を止めてます

メール送信テスト

メールアドレス：
＊送信先メールアドレスを入れてください。
自分のアドレスにすると自分宛てにテストで送ることが出来ます
件名：
＊好きな件名を入れてください。
内容

＊↑内容を適当に入れてください。
ここに入れても私には届きません、
テストでアドレスを自分のアドレスに変更して送ってください
終了です。


メール送信を使用したサンプル(ソースの紹介)

詳細解説は[http:/asp/backno/asp036.html]を見てください
下記、/cgi-bin/test/test036-1.aspのソース（中身）です

メール送信 を 使った ソースコードを紹介する

表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはメール送信 です。
<%@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

  'イタズラが多いので処理しない時はコメントにする
  Exit Sub

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

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

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

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

   'ここから下は、通常必要ないです
   'イタズラで、このフォームから送られてたので、
   '送信先とＩＰアドレスをテキストへ保存してます。
   Set objFS = Server.CreateObject("Scripting.FileSystemObject")
   Set ts = objFS.OpenTextFile(Server.MapPath("../aaa.csv"), 8, True)
   ts.write mailto & "," & m_honbun
   ts.write chr(13) & chr(10)
   ts.close
   Set objFS = Nothing

End Sub
%>

<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>Server.CreateObject("basp21pro") ASPからメール送信を解説する</title>
</head>
<body>
<h1>Server.CreateObject("basp21pro") ASPからメール送信を解説する</h1>
test036-1.asp<br>
Server.CreateObject("basp21pro")<br>
でオブジェクトを作成して、比較的簡単にＡＳＰからメール送信可能です<br>
詳細は、下記のソースとテスト実行して確認してみてください<br>
<font color='red'>※現在、連続送信されているので、処理を止めてます</font>
<p>
<%  '頭で、入力パラメーター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="test@ken3.org"><BR>
      ＊送信先メールアドレスを入れてください。<br><b>自分のアドレスにすると自分宛てにテストで送ることが出来ます</b><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>
      <b>ここに入れても私には届きません</b>、<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>


</body>
</html>

商品:来月の予約関係を紹介(広告)

3月の人気

  1. ワンピース ONE PIECE アラーム クロック 置時計 OP-002 2/1人気が上昇中
  2. 空間除菌　ウィルスブロッカー CL-40（ストラップ有り1個、ストラップ 2/1新作や予約商品
  3. 25日 ぴくりる! 初音ミク-Project DIVA- トレーディングストラップ Track04(BOX) - おもちゃ ほか
  4. 24日 GUNDAMWAR NEX-A エキスパンションブースターパック 「ACCEL OF NEXT AGE」 [EX01] (BOX) - おもちゃ ほか
  5. 23日 テイルズ オブ ザ ヒーローズ ツインブレイヴ 初回生産限定プレミアムエディション 特典 オリジナルアニメ「ているず おぶ 劇場」プロダクトコード・ダウンロードカード付き - GAME ほか
  6. 22日 積みヴィネ 仮面ライダー 1BOX (食玩) - おもちゃ ほか
  7. 21日 Outdoors Unlimited(輸入版) - GAME ほか
  8. 17日 プリズムコネクト 劇場版魔法先生ネギま! ANIME FINAL ブースターパック BOX - おもちゃ ほか

続き(一覧)を見る


Googleで関連項目を検索する

[キーワード:メール送信] と サンプル|解説|Dim|Set で検索
↓で検索して他のページも確認してみてください。
Google

あれ？私のページが検索に載ってない（笑）一度お試しを（私のページに、また戻ってきてね（爆））
[Topへ戻る] −−＞[ASP系のTOPへ戻る] −−＞[記事一覧を見る]

リンク 三流君 ＡＳＰ系 の 解説を項目ごとにまとめてみました

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

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

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

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

その他：blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[三流なプログラムコード]← 恥ずかしいのであまり載せてないけど・・・
[通販商品の足跡を紹介] ←通販商品などを紹介してます



現在時刻は、2012/02/10 2:22:07です。