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

三流君(TOP) /ASPで遊ぶ /ASP記事一覧を見る

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

メール送信テスト

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

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

終了です。


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

詳細解説は[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>" 'ここから下は、通常必要ないです 'イタズラで、このフォームから送られてたので、 '送信先とIPアドレスをテキストへ保存してます。 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> でオブジェクトを作成して、比較的簡単にASPからメール送信可能です<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>

広告

リンク広告
  1. --[ Windows10 OSのフルバックアップ システムイメージバックアップ]
  2. --[Windows 自動ログイン control userpasswords2 や netplwiz]
  3. --[モンスト 超獣神祭]
  4. --[【ガチャ】モンスト 3500万人記念!!オーブ0ガチャ]
  5. --[Access コンボボックスを使ってみた]

Googleで関連項目を検索する

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

Google

あれ?私のページが検索に載ってない(笑)一度お試しを(私のページに、また戻ってきてね(爆))

[Topへ戻る] −−>[ASP系のTOPへ戻る] −−>[記事一覧を見る]

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

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

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

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



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

その他:blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[永遠の下書き日記?]← 恥ずかしいのであまり載せてないけど・・・
[ひとりで掲示板?] ←一人で?掲示板?ぉぃぉぃ


[Topへ戻る] −−>[ASP系のTOPへ戻る] −−>[記事一覧を見る]

現在時刻は、2017/03/23 11:16:59です。