福州建网站-福州做网站公司
福州做网站电话:0591-83584081 点击在线即时聊天-福州建站 点击在线即时聊天-福州网站建设
新闻中心
行业新闻
INDUSTRY NEWS
企业动态
ENTERPRISES DYNAMIC
网络编程
INTERNET KNOWLEDGE
网站优化
SEO

 
在线客服咨询一:
在线客服咨询二:
在线技术咨询一:
在线技术咨询二:
24小时在线咨询:
在线咨询:0591-83584081
 行业资讯
揭秘:利用知识付费赚钱
福州澳特乐食品有限公司
苏宁研制自动送货机器人
京东便利店模式:并非直
疯狂的区块链,分裂的朋
“马云的战略+马化腾的产
福州管道疏通推荐福州榕
共享单车还能走多远,二
♦ 您的位置:首页 >> 新闻中心  

JMail邮件发送实例教程
本文来源:网络  发表日期:2010-8-10 8:45:19  录入:www.015580.cn
网上我见到过很多的关于jmail发信的教程,可是每一篇讲的几乎都只是原理,对于没有用过jmail的ASP用户要调试成功还是很需要下一番苦工,我就是被理论蒙蔽了的受害者,不过经过反复琢磨还是调试成功了,以下我把他单独作成了示例大家只要按要求复制代码另存后就能看到效果了,代码旁边有注释,结合理论教程我想应该没问题了!

  复制下面的代码,存为ASP文件,把他上传到支持ASP和JMAIL发信组件空间里,运行就能看到小过了,

  另外需要特别说明的就是邮件服务器是否需要验证这个选项是很关键的,经过我们反复测试如果不需要验证的服务器发送时您选中了需要验证信件将无法成功发送,而需要验证身份的服务器,您发送时必须选中需要验证,并正确填写好验证ID和密码比如如果你是使用163.COM的免费信箱的用户SMTP服务器应该是SMTP.163.COM这个是需要验证的正确填写后才能发送!

  发不出信件还有一种可能那就是有些服务器的SMTP身份验证密码,和您登陆信箱的密码是不一样的,这个信箱提供商应该会在醒目位置提醒你一般这样的SMTP邮件服务器很少,至少我还没碰到过!

<%'======================================================================================

Dim ForUser, FromUser, ForUserEmail, FromUserEmail, SmtpServer

Dim emailTit, emailTxt, FromUserID, FromUserIDPW

emailTit = Request.Form("emailTit") '从表单获取email的标题

emailTxt = Request.Form("emailTxt") '从表单获取邮件的内容

'==========================以下绿色代码是判断服务器是否支持JMAIL组件

Function IsObjInstalled(strClassString)

On Error Resume Next

IsObjInstalled = False

Err = 0

Dim xTestObj

Set xTestObj = Server.CreateObject(strClassString)

If 0 = Err Then IsObjInstalled = True

Set xTestObj = Nothing

Err = 0

End Function

if not IsObjInstalled("JMail.Message") then

Response.write"你所使用的服务器不支持邮件发送!"

Response.End

end if

'==========================================================

if Trim(Request.Form("action")) = "确定发送" then

SmtpServer = Request.Form("SmtpServer")

FromUserEmail = Request.Form("FromUserEmail")

FromUser = Request.Form("FromUser")

ForUserEmail = Request.Form("ForUserEmail")

FromUserID = Request.Form("FromUserID")

FromUserIDPW = Request.Form("FromUserIDPW")

Dim JMail

Set JMail=Server.CreateObject("JMail.Message")

JMail.Logging=True

JMail.Charset="gb2312"

JMail.ContentType = "text/HTML"

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

if Request.Form("smtpPW") = "1" then '判断服务器是否需要身份验证

' 身份验证

JMail.MailServerUserName = FromUserID

' 身份验证的用户名

JMail.MailServerPassword = FromUserIDPW

' 身份验证的密码

end if

JMail.From = FromUserEmail '发件人的信箱

JMail.FromName = FromUser '发件人的名字

JMail.Subject = emailTit '邮件的主题

JMail.Body = emailTxt '邮件的内容

'==============================收件人的地址!

JMail.AddRecipient(ForUserEmail) '收件人的地址

JMail.Priority=5 '邮件级别1-5数字越大级别越高---3为普通邮件

JMail.Send(SmtpServer) '红色变量是邮件服务器地址

JMail.Close

Set JMail=nothing

if err then

err.clear

Response.Write " 发信功能已经打开,但因服务器不支持发信或者信箱地址错误,导致信件无法发出!"

Response.End

else

Response.Write " 信件已经发出!"

Response.End

end if

end if %>

收件人名字:

收件人地址:

发件人姓名:

发件人地址:

服务器是否需要身份验证:

需要

不需要

发件信箱登陆名:

发件人登陆密码:

邮件服务器:

邮件标题:

邮件内容:

分享到:
 
研发中心:福州市金山创意园
联系电话:0591-83584081 
网站标签:福州网站建设 福州网络公司 福州小程序开发 福州网站SEO优化 福州APP开发
 
点击这里给我发消息