jmail发送邮件问题

[sonic18]

<%
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "[e-mail]" ''输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword = "*******" ''输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From ="[e-mail]" ' Request.Form("email") ''发件人Email
msg.FromName = "小灰" 'Request.Form("name") ''发件人姓名
msg.AddRecipient "[e-mail]" ''收件人Email
msg.Subject = "信件主题" 'Request.Form("subject") ''信件主题
msg.Body = "正文" 'Request.Form("body") ''正文
'msg.addattachment(server.mappath("new.txt"))
msg.Send ("smtp.126.com") ''smtp服务器地址（企业邮局地址）
set msg = nothing
response.write("发送成功！")
%>

运行后，显示“发送成功”
但是到[e-mail] 没有发现。（两个小时还是没有？）
大家看看看看是什么问题？我已经安装了jmail组件。

[sear]

没看出问题啊 。。！

[zktz1]

rp

[yb2008]

有时是这样的,看明天早上收到没有...

[sonic18]

怎么没有人回答啊？
谢谢

[sonic18]

哦，是我自己写错了，现在已经发送成功
把msg.MailServerUserName = "[e-mail]" ''输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）的[e-mail]改为sonic18就ok 了

现在的问题是，怎么判断smtp服务器验证登陆名和密码是否正确？如果不正确，发送不成功。

[yb2008]

怎么判断smtp服务器验证登陆名和密码是否正确？如果不正确，发送不成功

<%
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")

smtpserver = "mail.dgemail.com"
smtpuser = "[e-mail]"
smtppwd = "password"

Jmail.Silent = true
JMail.Charset = "gb2312"
JMail.Logging = true
JMail.Priority = 3

JMail.From = "[e-mail]"
JMail.FromName = "yourname"
Jmail.ReplyTo ="[e-mail]"

JMail.AddRecipient("[e-mail]")

JMail.Subject = "Test for JMail"& vbcrlf & vbcrlf & tbody
JMail.Body = "testtest"

Jmail.MailServerUserName = smtpuser
Jmail.MailServerPassWord = smtppwd

'Jmail.Send(smtpserver)

isgo = Jmail.Send(smtpserver) '注意看这里,如果发送不成功,会在下面出现错误........

if isgo then

RESPONSE.WRITE("提交成功！谢谢你的支持。")
'RESPONSE.WRITE(JMail.log)
else
RESPONSE.WRITE(JMail.log)

end if

JMail.Close()
Set JMail = Nothing
%>

'楼主给分我...

[yangfan2008]

<%
if request.querystring("act")="send" then

dim chstr
chstr="title:标题,content:内容,lxr:联系人,tel:联系电话,mail:电子信箱,name:公司名称,address:联系地址"

for each item in split(chstr,",")
citem=split(item,":")(0)
if trim(request.form(""&citem&""))="" then
%>
<script language="javascript">
alert("信息提交失败。\n\n原因为：必填项[<%=split(item,":")(1)%>]为空！")
history.back()
</script>
<%
response.end
end if
next

dim sendmsg
sendmsg="标题："&server.htmlencode(request.form("title"))&chr(13)&chr(10)&"内容："&server.htmlencode(request.form("content"))&chr(13)&chr(10)&"联系人："&server.htmlencode(request.form("lxr"))&chr(13)&chr(10)&"联系电话："&server.htmlencode(request.form("tel"))&chr(13)&chr(10)&"联系传真："&server.htmlencode(request.form("fax"))&chr(13)&chr(10)&"电子信箱："&server.htmlencode(request.form("mail"))&chr(13)&chr(10)&"公司名称："&server.htmlencode(request.form("name"))&chr(13)&chr(10)&"联系地址："&server.htmlencode(request.form("address"))&chr(13)&chr(10)&"邮政编码："&server.htmlencode(request.form("zip"))

Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "网上定单"
msg.MailServerPassword = "*******"
msg.From = "[e-mail]"
msg.FromName = "常悦网上定单"
msg.AddRecipient "[e-mail]"
msg.Subject = "定单"
msg.Body = sendmsg
dim sendfile
if request.cookies("lastuploadfile")<>"" then
sendfile=server.mappath("uptemp/"&request.cookies("lastuploadfile"))
set fs=Server.CreateObject("Scripting.FileSystemObject")
if (fs.FileExists(sendfile)) then
msg.AddAttachment(sendfile)
end if
set fs=nothing
end if
msg.Send ("211.152.51.69")
set msg = nothing
%>
<script language="javascript">
alert("信息已经成功提交。")
history.back()
</script>
<%
if request.cookies("lastuploadfile")<>"" then
sendfile=server.mappath("uptemp/"&request.cookies("lastuploadfile"))
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(sendfile) then
fs.DeleteFile(sendfile)
end if
set fs=nothing
end if
response.end
end if
%>
同样也是收不到邮件，大家帮忙看看有什么错误。

[sonic18]

放心。马上给
问题是我还是看不出那局是判断？能告诉我吗？
谢谢。

[sonic18]

怎么我用其他的邮箱发送到 126 不成功
用126发送到其他邮箱也不成功？

意思就是只有用126发送到126才成功。

怎么没有人回答？？？？？？？？？
谢谢

[liaoxing]

up

[sonic18]

自己顶

[sonic18]

帮帮忙啊