小弟我真的快哭了，快救救小弟我啊发送邮箱的有关问题！5555
日期：2014-05-17 浏览次数：20998 次
我真的快哭了，快救救我啊！！发送邮箱的问题！！5555
<%
dim email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,jmail,isgo
'收件人信息
email="**@qq.com" '//收信人邮箱
title="是我的发的呢" '//标题
msg="收到了吧<br />dsadasdsa" '//邮件正文内容
smtpserver = "smtp.126.com" '//邮件服务器
smtpuser ="demo" '//你邮箱的用户名
smtpemail ="demo@126.com" '//换成你的邮箱
smtppwd ="demopassword" '//manciyan@126.com的密码 ,也就是你邮箱密码
Set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
jMail.ContentType = "text/html"
jmail.From ="demo@126.com@126.com" '//这里成你的发信人地址
jmail.FromName = "朋友发的" '//发信人姓名
jmail.Subject = title
jmail.AddRecipient email
jmail.Body = msg
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)
if err then
SendMail= err.description
err.clear
else
SendMail="OK"
end if
jmail.Close
set jmail = nothing
Response.Write SendMail
%>
以上是我用来发送邮件的代码！！
我用liulingen@126.com设置一下四个
smtpuser ="demo" '//你邮箱的用户名
smtpemail ="demo@126.com" '//换成你的邮箱
smtppwd ="demopassword" '//manciyan@126.com的密码 ,也就是你邮箱密码
jmail.From ="demo@126.com@126.com" '//这里成你的发信人地址
可以使用，而且绝对没有问题，已经测试N便！！！
然后我改成用另外别的同样是126的邮箱，全部不行，别的邮箱也不行！！
天啊，为什么会这样他怎么就只认得liulingen@126.com这个，快帮帮忙，我快疯了！！
------解决方案--------------------
别哭。。你最好换其他邮箱试试，126 和 163 以及 yahoo 等邮箱，好像在最近2年申请的都不支持POP3和SMTP了。。。
------解决方案--------------------
2007年之前申请的126，163邮箱支持SMTP
之后申请的就不支持了！
------解决方案--------------------
tom邮箱可以
------解决方案--------------------
foxmail的可以，我用的就是，也就是qq邮箱
------解决方案--------------------
我用的邮箱都可以
如果是取数据库里的数据（邮箱和密码）最好 去除前后空格。
Function SendMail(MailtoAddress,MailBody,MailSubject,MailFrom,MailServerUser,MailServerPass,MailServer)
'参 数：
' MailtoAddress -----收信人信箱
' MailtoName -----收信人姓名
' MailSubject -----主题
' MailBody -----信件内容
' MailFrom -----发信人信箱
' FromName -----发信人姓名
' MailServerUser -----登陆邮箱用户名
' MailServerPass -----登陆邮箱密码
' MailDomain -----邮箱域名
' MailServer -----发件SMTP服务器
Dim JMail,JMailstat
Set JMail=Server.CreateObject("JMail.Message")
if err then
err.clear
Response.Write "组件检测失败"
JMail.close()
Set JMail=nothing
exit function
end if
JMail.Charset="gb2312" '邮件字符集
JMail.silent=True '忽略错误
JMail.ContentType = "text/html" '邮件编码
JMail.AddRecipient MailtoAddress,MailtoName '收件人地址
JMail.ReturnReceipt = True '是否收条（验证中）
JMail.From = MailFrom '发件人邮箱
JMail.MailDomain=MailDomain '邮箱所在域名（验证中）
JMail.FromName = FromName '发件人姓名
JMail.MailServerUserName=MailServerUser '邮箱用户名
JMail.MailServerPassWord=MailServerPass '邮箱密码
JMail.Subject=MailSubject '邮件主题
'JMail.Body=MailBody '邮件正文（纯文本格式）
'JMail.HMTLBody=MailBody '邮件正文（HTML格式）
JMail.HTMLBody = "<html><body>"&MailBody&"</body></html>"
<%
dim email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,jmail,isgo
'收件人信息
email="**@qq.com" '//收信人邮箱
title="是我的发的呢" '//标题
msg="收到了吧<br />dsadasdsa" '//邮件正文内容
smtpserver = "smtp.126.com" '//邮件服务器
smtpuser ="demo" '//你邮箱的用户名
smtpemail ="demo@126.com" '//换成你的邮箱
smtppwd ="demopassword" '//manciyan@126.com的密码 ,也就是你邮箱密码
Set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
jMail.ContentType = "text/html"
jmail.From ="demo@126.com@126.com" '//这里成你的发信人地址
jmail.FromName = "朋友发的" '//发信人姓名
jmail.Subject = title
jmail.AddRecipient email
jmail.Body = msg
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)
if err then
SendMail= err.description
err.clear
else
SendMail="OK"
end if
jmail.Close
set jmail = nothing
Response.Write SendMail
%>
以上是我用来发送邮件的代码！！
我用liulingen@126.com设置一下四个
smtpuser ="demo" '//你邮箱的用户名
smtpemail ="demo@126.com" '//换成你的邮箱
smtppwd ="demopassword" '//manciyan@126.com的密码 ,也就是你邮箱密码
jmail.From ="demo@126.com@126.com" '//这里成你的发信人地址
可以使用，而且绝对没有问题，已经测试N便！！！
然后我改成用另外别的同样是126的邮箱，全部不行，别的邮箱也不行！！
天啊，为什么会这样他怎么就只认得liulingen@126.com这个，快帮帮忙，我快疯了！！
------解决方案--------------------
别哭。。你最好换其他邮箱试试，126 和 163 以及 yahoo 等邮箱，好像在最近2年申请的都不支持POP3和SMTP了。。。
------解决方案--------------------
2007年之前申请的126，163邮箱支持SMTP
之后申请的就不支持了！
------解决方案--------------------
tom邮箱可以
------解决方案--------------------
foxmail的可以，我用的就是，也就是qq邮箱
------解决方案--------------------
我用的邮箱都可以
如果是取数据库里的数据（邮箱和密码）最好 去除前后空格。
Function SendMail(MailtoAddress,MailBody,MailSubject,MailFrom,MailServerUser,MailServerPass,MailServer)
'参 数：
' MailtoAddress -----收信人信箱
' MailtoName -----收信人姓名
' MailSubject -----主题
' MailBody -----信件内容
' MailFrom -----发信人信箱
' FromName -----发信人姓名
' MailServerUser -----登陆邮箱用户名
' MailServerPass -----登陆邮箱密码
' MailDomain -----邮箱域名
' MailServer -----发件SMTP服务器
Dim JMail,JMailstat
Set JMail=Server.CreateObject("JMail.Message")
if err then
err.clear
Response.Write "组件检测失败"
JMail.close()
Set JMail=nothing
exit function
end if
JMail.Charset="gb2312" '邮件字符集
JMail.silent=True '忽略错误
JMail.ContentType = "text/html" '邮件编码
JMail.AddRecipient MailtoAddress,MailtoName '收件人地址
JMail.ReturnReceipt = True '是否收条（验证中）
JMail.From = MailFrom '发件人邮箱
JMail.MailDomain=MailDomain '邮箱所在域名（验证中）
JMail.FromName = FromName '发件人姓名
JMail.MailServerUserName=MailServerUser '邮箱用户名
JMail.MailServerPassWord=MailServerPass '邮箱密码
JMail.Subject=MailSubject '邮件主题
'JMail.Body=MailBody '邮件正文（纯文本格式）
'JMail.HMTLBody=MailBody '邮件正文（HTML格式）
JMail.HTMLBody = "<html><body>"&MailBody&"</body></html>"
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
