メール送信 を 使った ソースコードを紹介する表示色の説明：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>
<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>
| 最近発売の雑誌を紹介する
パソコン雑誌です。息抜きや空いた時間に読んで見ては？
- DTP WORLD (ディーティーピー ワールド) 2008年 06月号
- Windows 100% 2008年 06月号
- 日経 PC (ピーシー) ビギナーズ 2008年 06月号
- PC Japan (ジャパン) 2008年 06月号
- Software Design (ソフトウエア デザイン) 2008年 06月号
- Web Designing (ウェブデザイニング) 2008年 06月号
- I/O (アイオー) 2008年 06月号
- 月刊 COMPUTERWORLD (コンピュータワールド) 2008年 07月号
|