如何使用表单发送电子邮件？

如何使用表单发送电子邮件？

formToEmail.htm

' 表单.

收件人:

发件人:

主题:

内容一:

内容二:

发送">

formToEmail.asp

' 处理接收和发送邮件.
<%
Set mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient = Request.Form("recipient")
sender = Request.Form("sender")
subject = Request.Form("subject")
message = Request.Form("messageline1")
message = message & vbCRLF
message = message & vbCRLF
message = message & Request.Form("messageline2")
mailserver = "www.intels.net"

' 写上邮件服务器.

result = mailer.SendMail(mailserver, recipient, sender, subject, message)
%>
<% If "" = result Then %>
恭喜,邮件发送成功!
<% Else %>
抱歉,邮件发送失败!

<%= result %>

<% End If %>

[1]