我真的快哭了，快救救我啊！！发送邮箱的问题！！5555

chaikunlai 2009-06-11 07:16:41

<%
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这个，快帮帮忙，我快疯了！！

...全文

142 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

wdpjs1 2012-08-31

打赏
举报

都3年了，还在哭没，没哭，在哭，我就给你解决他

zc90909090 2009-06-12

打赏
举报

tom邮箱可以

CainLai 2009-06-12

打赏
举报

foxmail qq邮箱好像都可以
有可能的话可以换 phpmailer 虽然是PHP的但是用起来很简单，支持SSL ，所以可以用GMAIL了方便啊

黑心 2009-06-12

打赏
举报

我用的邮箱都可以
如果是取数据库里的数据（邮箱和密码）最好去除前后空格。

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>"

if isAttach<>"" then '附件
Farr=split(AttachList,",")
for i=0 to ubound(Farr)-1
FAttachPath=server.MapPath("../pic/" & Farr(i))
JMail.AddAttachment FAttachPath
next
end if

JMail.Priority=3 '邮件等级，1为加急，3为普通，5为低级
JMailstat=JMail.Send(MailServer)
If JMailstat then
Sendflag=1
response.write "成功"
else
Sendflag=0
response.write "失败"
end if
JMail.close()
Set JMail=nothing
End Function