cdonts.asp

来自「email sending script」· ASP 代码 · 共 45 行

<%
	'----------------------------------------------------------------------------
	'
	'	Send email using the CDONTS component
	'
	'	by Chris Hardy
	'	http://www.chrishardy.co.uk/
	'
	'----------------------------------------------------------------------------

  Option Explicit

  dim sName, sEmail, sMessage

  if Request.Form("Action") <> "" then
    sName = Request.Form("Name")
    sEmail = Request.Form("Email")
    sMessage = Request.Form("Message")

    dim oMail
    Set oMail = Server.CreateObject("CDONTS.NewMail")
    with oMail
      .To = "[e-mail]"
      .From = sEmail
      .Subject = "Message from website"
      .Body = sMessage
			.Importance = 1 ' 0=low, 1=normal (default), 2=high
			.BodyFormat = 1 ' 0=HTML, 1=plain text (default)
			.MailFormat = 1 ' 0=MIME (use for HTML e-mail), 1=plain text (default)
      .Send
    end with
    Set oMail = Nothing

    response.write "Thanks for your message!"
  else
%>
<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<p>Name:<br /><input type="text" name="Name" /></p>
<p>E-mail:<br /><input type="text" name="Email" /></p>
<p>Message:<br /><textarea name="Message"></textarea></p>
<p><input type="submit" name="Action" value="Send" /></p>
</form>
<%
  end if
%>