当前位置: 代码迷 >> ASP >> 小弟我真的快哭了,快救救小弟我啊发送邮箱的有关问题!5555
  详细解决方案

小弟我真的快哭了,快救救小弟我啊发送邮箱的有关问题!5555

热度:258   发布时间:2012-09-06 10:37:01.0
我真的快哭了,快救救我啊!!发送邮箱的问题!!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>"