asp+jmail发送邮件

最新推荐文章于 2024-07-03 13:29:45 发布

aithena

最新推荐文章于 2024-07-03 13:29:45 发布

阅读量1.2k

点赞数

分类专栏： asp 文章标签： jmail asp发送邮件

本文链接：https://blog.csdn.net/aithena/article/details/88048203

版权

asp 专栏收录该内容

4 篇文章 1 订阅

订阅专栏

代码如下：

<%
Function sendjmail(address,receive,content)
	'address:接收邮件地址
	'receive:接收邮件用户名（用于发件箱发送时）
	'content:邮件正文
	
	dim jmail
	set jmail=server.createobject("Jmail.message")
	jmail.silent=true
	jmail.charset="gb2312"
	jmail.ContentType = "text/html"

	'发件人邮箱
	jmail.from="noreply@qq.com"
	'指定别的回信地址
	JMail.ReplyTo="replay@qq.com"
	'发件人名称
	jmail.fromname="发件人姓名"
	'发送邮件标题
	jmail.subject = receive & "给您发了一份邮件"
	'收件人邮箱, 姓名（使用于回信）
	jmail.AddRecipient address,receive
	'邮件的紧急程度 1.2.3.4.5
	jmail.Priority = 1
	
	JMail.HTMLBody = "<blockquote style='margin:1rem;'><div style='font-family:microsoft YaHei;font-size:13px;color:#666;padding:20px 25px;border:1px solid #e2e2e2;background:#fff;border-top:4px solid #009ee7;'><h1 style='font-size:16px; font-weight:normal;'>您好：</h1><p>有一份数据报表已经提交，请您跟进。</p><br/>"& content &"<br/><br/><br/><h3 style='border-left:4px solid #009ee7;padding-left:10px;color:#434A54;margin-top:6px;'>注意事项</h3><div style='font-size:13px;line-height:22px;'>1.请使用IE9及以上、Chrome、Sogou、Firefox、Safari、QQ、360浏览器。Sogou、360只能使用极速模式。如遇异常可以换一个浏览器。<br>2.邮件有部门专有邮箱发送，请不要回复该邮箱地址。<br>3.如有技术问题请联系产品市场部。</div><div style='color:#bbb;border-top:1px solid #c6c6c6;padding-top:10px;margin-top:10px;font-size:13px;'>此功能由<a style='text-decoration:none;color:#009ee7;' href='http://www.qq.com/' target='_blank'>产品市场部</a>提供技术支持，如有疑问请访问<a style='color:#009ee7;text-decoration:none;' href='http://www.qq.com/' target='_blank'>帮助首页</a>。此邮件由系统自动发送，请勿回复。</div></div></blockquote>"
	
	jmail.mailserverusername="username"        '邮件发送服务器登录名称
	jmail.mailserverpassword="123456"          '邮件发送服务器登录密码
	sendok=jmail.send("smtp.qq.com")           'smtp服务器名称
	
	if sendok then
	    response.write "恭喜您，"&address&"邮件发送成功！" & NOW()
	else
	    response.write "对不起，邮件发送失败，可能由于服务器登录设置不当或信息有误！" & NOW()
	end if

	jmail.Close
	set jmail=nothing
End Function

Function HtmlCode(Con)
	If Con="" Or IsNull(Con) Then
		HtmlCode=""
		Exit Function
	End If

	HtmlCode=Con
	HtmlCode=Replace(HtmlCode,"<","<")
	HtmlCode=Replace(HtmlCode,">",">")
	HtmlCode=Replace(HtmlCode,Chr(9)," ")
	HtmlCode=Replace(HtmlCode,Chr(13) & Chr(10),"<br>")
	HtmlCode=Replace(HtmlCode,Chr(13),"<br>")
	HtmlCode=Replace(HtmlCode,Chr(10),"<br>")
End Function
%>