最近网站需要新增某项操作触发自动发送邮件功能,上网查了一些资料,需要ASP网站的服务器包含相应功能的组件,一般Jmail组件使用的比较普遍。找到了以下两组使用Jmail发送邮件的代码。
使用方法:替换相应的内容,直接放到ASP网页中即可。
代码一:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set msg=Server.CreateObject("Jmail.Message")
msg.silent=true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "abcdefg"''输入smtp服务器验证登陆名
msg.MailServerPassword = "123456"''输入smtp服务器验证密码
msg.From = "[email protected]"''发件人
msg.FromName = "站长"''发件人姓名
msg.AddRecipient "[email protected]"''收件人
msg.Subject = "测试主题"''主题
msg.Body = "本邮件由ASP自动发送!"''正文
msg.Priority = 1''设定邮件优先级1为紧急,3为正常,5为缓慢。
msg.Send ("smtp.163.com")''邮件服务器
set msg = nothing
Response.Write("Success!")
%>
代码二:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Call SendMail("[email protected]","网站管理员","网站新留言提醒","刚刚有人在留言板:http://www.abcde.com/main/new/guestbook.asp 留言了。","网站留言自动监测系统","[email protected]")
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
'函数参数说明(收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址)
'on error resume next
Dim JMail,MailServer,Flag
Set JMail=Server.CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312" '邮件编码
JMail.silent=True
JMail.ContentType = "text/html" '邮件正文格式
MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器
JMail.MailServerUserName = "abcdefg" '登录用户名
JMail.MailServerPassWord = "123456" '登录密码
JMail.MailDomain = "163.com" '域名(如果用"[email protected]"这样的用户名登录时,请指明domain.com),可选
JMail.AddRecipient MailtoAddress,MailtoName '收信人邮箱和收信人名称
JMail.Subject = Subject '主题
JMail.AppendHTML(MailBody)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = 3 '邮件等级,1为加急,3为普通,5为低级
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close
Set JMail=nothing
End Function
%>