我用jmail发邮件，提示成功，为何收不到邮件呢？

[xxw365]

<%
Set JMail=Server.CreateObject("JMail.Message")
JMail.Subject = "toppic"
JMail.Body = "mailbody"
JMail.Silent = true
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.From = "[e-mail]"
JMail.FromName = "发送者姓名"
JMail.MailServerUserName = "[e-mail]"
JMail.MailServerPassword = "8537283"
JMail.Maildomain = "smtp.163.com"
JMail.Priority = 1
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.AddRecipient "[e-mail]"
isgo = JMail.Send("xxw820105:[e-mail]")
JMail.close()
set JMail = nothing
if isgo =true then
sendmsg="<p>· 您的注册信息已经发往您的邮箱，请注意查收!</p>"
else
sendmsg="<p>· 邮件系统繁忙，注册信息资料未能发送到您的邮箱!</p>"
end if
response.write(sendmsg)
%>

[pilicat]

是不是发送邮件的服务器需要身份难证呢？

---------------------------------------------------
http://kmok.cn

[starytx]

强顶！不久前也弄这个，结果没人帮我测试，我那个缺少下边这两项，估计发不了
JMail.MailServerUserName
JMail.MailServerPassword

[colinyin]

我测试成功了

[wxf0104]

这个百分百可以用，因为我现在系统正在用的。供楼主参考。


<%if request("usermail")<>"" then
usermail=request("usermail")
else
usermail="暂无"
end if

if request("username")<>"" then
userName=request("userName")&request("sex")
else
userName="暂无"
end if





if request("tel")<>"" then
tel=request("tel")
else
tel="暂无"
end if

title=request("title")
txtSubject="网站邮件系统转发的用户信件"
txtBody2=request("txtBody2")
txtToAdress=request("fh_mail")
fh_name=request("fh_name")
txtBody1=fh_name&"您好，这是网站邮件系统转发的邮件，发件用户信息如下："&vbCrLf&"用户名："&userName&vbCrLf&"联系电话："&tel&vbCrLf&"邮箱："&usermail
mail_x="-------------------------------------------------------"

Dim SMTP

Set SMTP = CreateObject("jmail.Message")

SMTP.Charset = "GB2312"
SMTP.Silent = False

SMTP.Priority = 3

txtFromName="网站组"
txtFromAdd="abs"
txtFromPs="1234"
txtFromAddress="[e-mail]"
txtBody=txtBody1&vbCrLf&vbCrLf&mail_x&vbCrLf&vbCrLf&"邮件标题："&title&vbCrLf&vbCrLf&"邮件内容如下："&vbCrLf&txtBody2


SMTP.FromName = Trim(txtFromName)
SMTP.MailServerUserName = Trim(txtFromAdd)
SMTP.MailServerPassWord = Trim(txtFromPs)
SMTP.From = Trim(txtFromAddress)


SMTP.Subject = Trim(txtSubject)
SMTP.AddRecipient Trim(txtToAdress)
SMTP.Body = txtBody


isgo=SMTP.Send ("smtp.sohu.com")
SMTP.close()
Set SMTP = Nothing

if isgo =true then%>
<p>· 邮件已经成功发送，<a href="#" onclick="javascript:window.close()">关闭此窗口</a>!</p>
<%else%>
<p>· 邮件发送失败，请与电脑部--网站组联系，<a href="#" onclick="javascript:window.close()">关闭此窗口</a>!
<%end if%>