关闭

asp邮件发送代码,已测试

标签: asp邮件服务器htmlreferenceemail嵌入式
1319人阅读 评论(1) 收藏 举报
分类:

首先安装jmail这个网上很多提供的,在这里我也给大家一个把

http://down.chinaz.com/soft/526.htm

 

 

代码如下,只需稍加修改即可。

<% 

cname="名称"

cemail="407593529@qq.com"

emailtitle="标题"

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 = "zhaoyingjie1008@163.com" ' 发送者地址 

JMail.FromName = "zhaoyingjie1008@163.com" ' 发送者姓名 

JMail.MailServerUserName = "zhaoyingjie1008@163.com" ' 身份验证的用户名 

JMail.MailServerPassword = "12312312" ' 身份验证的密码 

'加入新的收件人 

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.163.com" ) then '执行邮件发送(通过邮件服务器地址)smtp.域名.com 不一定是邮件服务器 

response.Write("OK") 

else 

response.Write("no") 

end if 

JMail.Close() 

Set JMail = Nothing 

%>


 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:187146次
    • 积分:2961
    • 等级:
    • 排名:第11867名
    • 原创:136篇
    • 转载:15篇
    • 译文:0篇
    • 评论:15条
    最新评论