| ASPMail デモ | << CLOSE >> |
このデモは、ASPMailコンポーネントを利用して本ページ上から入力した内容をメールとして送信します。また、データベースからの日本語データも同時に送信します。
送信後、メールを確認してみてください。
このメール送信ページのコードです。
著作権フリーです。
商用・非商用を問わずご自由にご利用ください。
商用にはほど遠いコードですが・・・（笑
また、このコードは自己の責任においてご利用ください。
MIS沖縄はいっさいの責任を負いません。あしからず。
<%@ CodePage=932
%>
<%
if request.QueryString("act") = "send" then
session.codepage=1252 '' ASPMailコンポーネントを使い始めるので言語コードを英語に設定
dim Mailer, dateAndTime, sSendMail, strBody
dim sLine1, sLine2, sLine3, sLine4, sLine5, sLine6
dim sRecipient, sSubject
'' フォームからのメールに必要なデータを変数として格納
sLine1 = request.Form("line1") '' sline1〜6は本文に入る見出し
sLine2 = request.Form("line2")
sLine3 = request.Form("line3")
sLine4 = request.Form("line4")
sLine5 = request.Form("line5")
sLine6 = request.Form("line6")
sRecipient = request.Form("name") '' 差し出し人名前
sSubject = request.Form("subject") '' 件名
'' メールオブジェクトの生成
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
dateAndTime = now()
'' メールの本文を作成
strBody = sLine1
strBody = strBody & vbCrLf
strBody = strBody & sLine2 & DateAdd("h", 15, dateAndTime) & vbCrLf
strBody = strBody & sLine3 & request.Form("name") & vbCrLf
strBody = strBody & sLine4 & request.Form("email") & vbCrLf
strBody = strBody & sLine5 & request.Form("text") & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & sLine6 & request.Form("data") & vbCrLf
'' 日本語のメッセージや件名、差出人を表示するにはこの方法
Mailer.ContentType = "text/plain"
Mailer.CustomCharSet = "iso-2022-jp" '' 日本語メール用のエンコード指定
Mailer.RemoteHost = "smtp.misokinawa.com" '' お使いのSMTPサーバーを記入
Mailer.FromName = Mailer.EncodeHeader(request.Form("fromName"))
Mailer.FromAddress = request.Form("email")
rctName = Mailer.EncodeHeader(sRecipient)
Mailer.AddRecipient rctName, request.Form("email") '' あなたのメールアドレス
Mailer.Subject = Mailer.EncodeHeader(sSubject)
Mailer.BodyText = strBody
'' メールを送信
if not Mailer.SendMail then
Response.Write " Mailing Failed... Error is: <br>"
Response.Write Mailer.Response
else
sSendMail = "success"
end if
Set Mailer = Nothing '' メールオブジェクトを終了させる
session.codepage=932 '' ASPMailコンポーネントを使い終わったので言語コードを日本語に戻す
Else
'' ＤＢからデータを取得
dim objConn, objRec, sSQL, sSearch, sDescription
'' データベース接続オブジェクトの生成
set objConn = Server.CreateObject("ADODB.Connection")
'' データベースに接続
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/test.mdb")
'' レコードセットオブジェクトを生成
set objRec = Server.CreateObject("ADODB.Recordset")
'' SQLを指定
sSQL = "SELECT * FROM datatable"
'' レコードセットの中にデータを呼び込む
objRec.Open sSQL, objConn
'' 日本語データを変数として格納
sDescription = objRec("data1")
'' 各オブジェクトを閉じる
objRec.Close
set objRec = Nothing
objConn.Close
set objConn = Nothing
End If
%>
<html>
<head>
<title>MIS沖縄 - ASPMail デモ</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr class="textm">
<td width="50%" class="textl"><strong>ASPMail デモ</strong> </td>
<td width="50%" align="right"><a href="javascript:window.close()" onMouseOver="window.status='<<
CLOSE >>';return true" onMouseOut="window.status='';return
true"><<
CLOSE >></a></td>
</tr>
</table>
<p class="textm">このデモは、ASPMailコンポーネントを利用して本ページ上から入力した内容をメールとして送信します。また、データベースからの日本語データも同時に送信します。
<p class="textm">送信後、メールを確認してみてください。</p>
<hr size="1" color="#006699" noshade>
<%
if sSendMail = "success" then
response.write ("<p><font color=green>メール送信成功</font>")
else
%>
<form name="form1" method="post" action="aspmail.asp?act=send">
<table width="600" border="0" cellpadding="0">
<tr>
<td bgcolor="#333333"><table width="100%" border="0" cellspacing="1" cellpadding="3" bordercolorlight="#CCCCCC" bordercolordark="#CCCCCC">
<tr class="textm">
<td width="25%" bgcolor="#336699"><font color="#FFFFFF">氏名： </font></td>
<td width="75%" bgcolor="#FFFFFF">
<input type="text" name="name">
</td>
</tr>
<tr class="textm">
<td width="25%" bgcolor="#336699"><font color="#FFFFFF">送り先メールアドレス：
</font></td>
<td width="75%" bgcolor="#FFFFFF">
<input type="text" name="email">
</td>
</tr>
<tr class="textm">
<td bgcolor="#336699"><font color="#FFFFFF">件名：</font></td>
<td bgcolor="#FFFFFF">
<input name="subject" type="text" id="subject" value="MIS沖縄 ASPMail
テストメール" size="57"></td>
</tr>
<tr class="textm">
<td width="25%" bgcolor="#336699"><font color="#FFFFFF">詳しい内容： </font></td>
<td width="75%" bgcolor="#FFFFFF">
<textarea name="text" cols="40" rows="5" wrap="VIRTUAL">これはASPMailコンポーネントを利用したウェブメールから送られたメッセージです。</textarea>
</td>
</tr>
<tr class="textm">
<td width="25%" bgcolor="#336699"><font color="#FFFFFF">データベースからの日本語データ</font></td>
<td width="75%" bgcolor="#FFFFFF"><%= sDescription
%> </td>
</tr>
</table></td>
</tr>
</table>
<p>
<!-- 上記以外のメールに必要な他の情報をここで指定 -->
<input type="hidden" name="line1" value="=====テストメールの内容です=====">
<input type="hidden" name="line2" value="日時： ">
<input type="hidden" name="line3" value="氏名: ">
<input type="hidden" name="line4" value="メール: ">
<input type="hidden" name="line5" value="質問の内容: ">
<input type="hidden" name="line6" value="データベースからの日本語データ： ">
<input type="hidden" name="fromName" value="MIS沖縄 ">
<input type="hidden" name="data" value="<% response.write
sDescription %>">
<input name="submit" type="submit" class="button" value="送信">
</p>
</form>
<p>
<%
end if
%>
</p>
<hr size="1" color="#006699" noshade>
<div align="center">
<p class="textm"><a href="javascript:window.close()" onMouseOver="window.status='<<
CLOSE >>';return true" onMouseOut="window.status='';return
true"><<
CLOSE >></a></p>
<p> </p>
</div>
<p> </p>
</body>
</html>