天柱网络公司 http://www.atzwl.com
安庆网站建设分享 ASP 实现 JMail 发送邮件的方法
相信很多做网站建设的朋友都遇到过这样的一个情况，使用 ASPCMS 系统
建站，在进行 JMail 组件发邮件时出错了，甚至有的朋友不知道如何使用。今
天天柱网络小编在这里来给大家分享一下这方面的经验。
//**************************************************
//函数名：SendMail
//作 用：用 Jmail 组件发送邮件
//参 数：MailtoAddress ----收信人地址
// MailtoName -----收信人姓名
// Subject -----主题
// MailBody -----信件内容
// FromName -----发信人姓名
// MailFrom -----发信人地址
// Priority -----信件优先级
//**************************************************
function
SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,M
ailFrom,Priority)
on error resume next
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
if err then
SendMail= "
没有安装 JMail 组件
"
err.clear
exit function
end if
JMail.Charset="gb2312" //邮件编码
JMail.silent=true
JMail.ContentType = "text/html" //邮件正文格式
JMail.ServerAddress=MailServer //用来发送邮件的 SMTP 服务器 如
smtp.163.com
//如果服务器需要 SMTP 身份验证则还需指定以下参数
JMail.MailServerUserName = MailServerUserName //登录用户名
JMail.MailServerPassWord = MailServerPassword //登录密码
JMail.MailDomain = MailDomain //域名（如果用“name@cmjie.com”
这样的用户名登录时，请指明 cmjie.com
JMail.AddRecipient MailtoAddress,MailtoName //收信人
JMail.Subject=Subject //主题
JMail.HMTLBody=MailBody //邮件正文（HTML 格式）
JMail.Body=MailBody //邮件正文（纯文本格式）
JMail.FromName=FromName //发信人姓名
天柱网络——您身边的网络推广专家！
资源评论
- A1B1C1_A1B1C12018-05-09感觉好行 稍加修改就能用
