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

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

邮件也可以用表单格式发送吗？我见一个朋友这样做的。

当然可以，用OCXMail就行：

formToEmail.htm

' 表单
<FORM METHOD="POST" ACTION="formToEmail.asp"> 
<P> 
收件人: <INPUT SIZE=30 NAME="recipient" MAXLENGTH=200> 
<P> 
发件人: <INPUT SIZE=30 NAME="sender" MAXLENGTH=200> 
<P> 
主题: <INPUT SIZE=30 NAME="subject" MAXLENGTH=512> 
<P> 
内容一: <TEXTAREA ROWS=2 COLS=60 NAME="messageline1"> </TEXTAREA> 
<P> 
内容二: <TEXTAREA ROWS=2 COLS=60 NAME="messageline2"> </TEXTAREA> 
</PRE> 
<INPUT TYPE=submit VALUE="发送"> 

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 ％> 
抱歉,邮件发送失败!
<H2> 
<％= result ％> 
</H2> 
<％ End If ％>