ASP使用Jmail组件发送电子邮件的代码

ASP 专栏收录该内容
7 篇文章 0 订阅

最近网站需要新增某项操作触发自动发送邮件功能,上网查了一些资料,需要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 = "abcdefg@163.com"''发件人 
msg.FromName = "站长"''发件人姓名 
msg.AddRecipient "shoujianren@163.com"''收件人  
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("shoujianren@163.com","网站管理员","网站新留言提醒","刚刚有人在留言板:http://www.abcde.com/main/new/guestbook.asp 留言了。","网站留言自动监测系统","abcdefg@163.com") 
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" '域名(如果用"name@domain.com"这样的用户名登录时,请指明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 
%>

  • 1
    点赞
  • 0
    评论
  • 1
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值