网络编程
位置:首页>> 网络编程>> Asp编程>> 如何使用表单发送电子邮件?

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

  发布时间:2010-05-16 15:13:00 

标签:OCXMail,邮件,表单

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

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

当然可以,用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 %> 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com