上一篇
下一篇
asp+jmail制作的发送邮件的简单程序
作者:刚子 日期:2009-01-15
代码不是我写的，不过我自己测试过，没问题，记录下来。注意：服务器要安装了jmail组件，邮件服务器要使用支持smtp的，推荐使用QQ邮箱，免费的。
提交页面的代码这样写：
程序代码
邮件发送处理页面sendmail.asp
程序代码
提交页面的代码这样写：
程序代码<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtm ... l.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Untitled Document</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="sendmail.asp">
<table width="570" border="1" align="center">
<tr>
<td colspan="2"><div align="center">发送邮件</div></td>
</tr>
<tr>
<td width="194">客户地址</td>
<td width="360"><input name="cemail" type="text" id="cemail" /></td>
</tr>
<tr>
<td>客户名称</td>
<td><input name="cname" type="text" id="cname" /></td>
</tr>
<tr>
<td>邮件标题</td>
<td><input name="emailtitle" type="text" id="emailtitle" /></td>
</tr>
<tr>
<td>邮件内容</td>
<td><textarea name="emailcontant" cols="50" rows="5" id="emailcontant"></textarea></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="发送" />
</div></td>
</tr>
</table>
</form>
</body>
</html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Untitled Document</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="sendmail.asp">
<table width="570" border="1" align="center">
<tr>
<td colspan="2"><div align="center">发送邮件</div></td>
</tr>
<tr>
<td width="194">客户地址</td>
<td width="360"><input name="cemail" type="text" id="cemail" /></td>
</tr>
<tr>
<td>客户名称</td>
<td><input name="cname" type="text" id="cname" /></td>
</tr>
<tr>
<td>邮件标题</td>
<td><input name="emailtitle" type="text" id="emailtitle" /></td>
</tr>
<tr>
<td>邮件内容</td>
<td><textarea name="emailcontant" cols="50" rows="5" id="emailcontant"></textarea></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="发送" />
</div></td>
</tr>
</table>
</form>
</body>
</html>
邮件发送处理页面sendmail.asp
程序代码<%
cname=request.Form("cname")
cemail=request.Form("cemail")
emailtitle=request.Form("emailtitle")
emailcontant=request.Form("emailcontant")
Set JMail = Server.CreateObject("JMail.Message")
'是否将信头编码成iso-8859-1字符集. 缺省是True
JMail.ISOEncodeHeaders = True
'如果JMail.silent设置为true,ErrorCode包含的是错误代码
JMail.Silent = True
'设置标题和内容编码，如果标题有中文，必须设定编码为gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果发内嵌附件一定要注释掉这行，重要！
JMail.From = "***@***.com" ' 发送者地址
JMail.FromName = "***" ' 发送者姓名
JMail.MailServerUserName = "***" ' 身份验证的用户名
JMail.MailServerPassword = "***" ' 身份验证的密码
'加入新的收件人
JMail.AddRecipient cemail, cname
'JMail.AddRecipientBCC Email '密件收件人的地址
'JMail.AddRecipientCC Email '邮件抄送者的地址
JMail.Subject = emailtitle
JMail.Body = emailcontant
'增加一个普通附件
'JMail.AddAttachment(Server.MapPath())
'增加一个嵌入式附件
' The return value of AddAttachment is used as a
' reference to the image in the HTMLBody.
'contentId = JMail.AddAttachment(Server.MapPath("images/email.gif"))
'只有HTML格式支持嵌入图片附件，我们采用HTML格式的邮件内容
' As only HTML formatted emails can contain inline images
' we use HTMLBody and appendHTML
JMail.HTMLBody = "<html><body><br>"&emailcontant
JMail.appendHTML "<br><br></body></html>"
'如果对方信箱不支持HTML格式邮件，我们仍需要给他一个友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " "
if JMail.Send( "smtp.***.com" ) then '执行邮件发送（通过邮件服务器地址）smtp.域名.com 不一定是邮件服务器
response.Write("邮件发送成功")
else
response.Write("邮件发送失败")
end if
JMail.Close()
Set JMail = Nothing
%>
cname=request.Form("cname")
cemail=request.Form("cemail")
emailtitle=request.Form("emailtitle")
emailcontant=request.Form("emailcontant")
Set JMail = Server.CreateObject("JMail.Message")
'是否将信头编码成iso-8859-1字符集. 缺省是True
JMail.ISOEncodeHeaders = True
'如果JMail.silent设置为true,ErrorCode包含的是错误代码
JMail.Silent = True
'设置标题和内容编码，如果标题有中文，必须设定编码为gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果发内嵌附件一定要注释掉这行，重要！
JMail.From = "***@***.com" ' 发送者地址
JMail.FromName = "***" ' 发送者姓名
JMail.MailServerUserName = "***" ' 身份验证的用户名
JMail.MailServerPassword = "***" ' 身份验证的密码
'加入新的收件人
JMail.AddRecipient cemail, cname
'JMail.AddRecipientBCC Email '密件收件人的地址
'JMail.AddRecipientCC Email '邮件抄送者的地址
JMail.Subject = emailtitle
JMail.Body = emailcontant
'增加一个普通附件
'JMail.AddAttachment(Server.MapPath())
'增加一个嵌入式附件
' The return value of AddAttachment is used as a
' reference to the image in the HTMLBody.
'contentId = JMail.AddAttachment(Server.MapPath("images/email.gif"))
'只有HTML格式支持嵌入图片附件，我们采用HTML格式的邮件内容
' As only HTML formatted emails can contain inline images
' we use HTMLBody and appendHTML
JMail.HTMLBody = "<html><body><br>"&emailcontant
JMail.appendHTML "<br><br></body></html>"
'如果对方信箱不支持HTML格式邮件，我们仍需要给他一个友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " "
if JMail.Send( "smtp.***.com" ) then '执行邮件发送（通过邮件服务器地址）smtp.域名.com 不一定是邮件服务器
response.Write("邮件发送成功")
else
response.Write("邮件发送失败")
end if
JMail.Close()
Set JMail = Nothing
%>
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: -
发表评论