View Source Code

SourceFileName = "samples/mail_send.asp"

C:\inetpub\wwwroot\aspsample\samples\mail_send.asp

<%
Select Case Request.QueryString("ACT")
  Case "WRITE"
    Response.Cookies("userid-mailsend")("toemail") = Request.Form("toemail") 
    Response.Cookies("userid-mailsend")("email") = Request.Form("email") 
    Response.Cookies("userid-mailsend").Expires = Date + 30
End Select
%>
<!-- Copyright K.Nakajima -->
<!-- このスクリプトはご自由にご利用頂いて結構ですが、転売、無断転用などを禁止いたします。 -->
<!-- 下記のuseridの部分をお客様のユーザーIDと置き換えて下さい。-->
<%
 Subject = Request.Form("subject")
 ToEmail = Request.Form("toemail")
 Email = Request.Form("email")
 Stext = Request.Form("text")

 If Subject & ToEmail & Email & Stext = "" Then
%>
<!-- 入力フォーム 始まり -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<title>メールしますか</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body>

<p><big><big>メールしますか？？？ </big></big></p>


<form action="mail_send.asp?ACT=WRITE" method="POST">
  <table border="0" cellpadding="0" cellspacing="0" width="641">
    <tr>
      <td width="156">表題（見出し）</td>
      <td width="485"><input type="text" name="subject" size="43"></td>
    </tr>
    <tr>
      <td width="156">宛先<br>
      電子メールアドレス</td>
      <td width="485"><input type="text" name="toemail" size="29" value="<% = Request.Cookies("userid-mailsend")("toemail") %>"></td>
    </tr>
    <tr>
      <td width="156">差出人<br>
      電子メールアドレス</td>
      <td width="485"><input type="text" name="email" size="29" value="<% = Request.Cookies("userid-mailsend")("email") %>"></td>
    </tr>
    <tr>
      <td width="156">本文（コメント）</td>
      <td width="485"><textarea rows="6" name="text" cols="41"></textarea></td>
    </tr>
  </table>
  <p><input type="submit" value="送信" name="Go"> <input type="reset" value="クリア"><br>
  </p>
</form>
</body>
</html>

<!-- 入力フォーム 終わり -->

<%
 ElseIf  Subject = "" Or Email = "" Or Stext = "" Then
     Response.Write "<BR><FONT SIZE=4 COLOR=#FF0000>全ての項目を入力して下さい。</FONT><BR><BR>"
     Response.End
   Else
     ' メール送信します
     ' この下の一行は絶対に変更しないで下さい。
     If InStr(1,Email,"cnet.ne.jp",1) Or InStr(1,Email,"post.gr.jp",1) Then
       Call Em
     Else
       Response.Write "<BR><FONT SIZE=4 COLOR=#FF0000>Cnet Communicationsのお客様以外の差出人は利用できません。</FONT><BR><BR>"
       Response.End
     End if
%>

<!-- 結果フォーム 始まり -->

<html>
<head>
<title>メールを送信しました</title>
</head>
<body bgcolor="#FFFFFF">
<p>　</p>
<strong><big><% = ToEmail %> さんに、</big></strong></p>
<p><strong><big>メールを送信しました。</big></strong></p>
</body>
</html>

<!-- 結果フォーム 終わり -->

<% End if %>

<script LANGUAGE="VBScript" RUNAT="Server">

Sub Em
   Rem  自分宛てにメールします
Dim rc
vCr = Chr(13) + Chr(10)
'vCr = "<BR>"
    '下記のpo.post.gr.jpはCnet Communicationsのお客様だけが利用できます。
sMailServer = "po.post.gr.jp" '← メールサーバー(SMTP Server)
sTo = ToEmail '← 宛先メールアドレス
sFrom = Email '← 差出人メールアドレス
sSubject = Subject '← 表題
sFiles = "" '← 添付ファイル
sBody = Stext
Set objMail = Server.CreateObject("Basp21")
rc = objMail.SendMail(sMailServer, sTo, sFrom, sSubject, sBody, sFiles)
If rc <> "" Then
  Response.Write  "<B><BR><FONT SIZE=4 COLOR=#FF0000>メールが送信出来ませんでした再度入力しなおしてください.</B></FONT><BR>"
End if
End Sub

</script>