各位来帮忙下，在线发邮件问题
各位来帮忙下，在线发邮件问题，我设置了说是发成功了，但是收不到。大家看看是怎么会事呢？麻烦了。在线等。在点急。。代码如下：<%
///////////////////////////
'函数名：SendMail
'作 用：用Jmail组件发送邮件(需要验证形式)
'说 明: Jmail4.3组件重新设计了其内部结构——使用
' Message对象代替原来的单一对象Jmail.smtpmail发送
' 邮件，有些方法需要身份验证的(如163、yahoo等)，
' 可以用下面的方法解决：
'参 数：MailtoAddress ----收信人地址
' MailtoName -----收信人姓名
' Subject -----主题
' MailBody -----信件内容
' FromName -----发信人姓名
' MailFrom -----发信人地址
' MailServer -----用来发邮件的SMTP服务器地址
' Priority -----信件优先级
' MailServerUserName -----登录用户名
' MailServerPassWord -----登录密码
' MailDomain -----域名
'========================================================
function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,MailServer,Priority,MailServerUserName,MailServerPassWord,MailDomain)
On Error Resume Next
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
if err then
SendMail= "<br><li>没有安装JMail组件</li>"
err.clear
exit function
end if
JMail.Charset="GB2312" '邮件编码
JMail.silent=true
JMail.ContentType = "text/html" '邮件正文格式
JMail.ServerAddress= MailServer '用来发送邮件的SMTP服务器
'如果服务器需要SMTP身份验证则还需指定以下参数
JMail.MailServerUserName = MailServerUserName '登录用户名
JMail.MailServerPassWord = MailServerPassWord '登录密码
JMail.MailDomain = MailDomain '域名（如果用“name@”这样的用户名登录时，请指明
JMail.AddRecipient MailtoAddress,MailtoName '收信人
JMail.Subject=Subject '主题
JMail.HMTLBody=MailBody '邮件正文（HTML格式）
JMail.Body=MailBody '邮件正文（纯文本格式）
JMail.FromName=FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority=Priority '邮件等级，1为加急，3为普通，5为低级
JMail.Send(MailServer)
SendMail =JMail.ErrorMessage
JMail.Close
Set JMail=nothing
End function
%>
<%
''''''''''''''''''''邮件服务器配置-请更改以下配置，保证程序正常运行''''''''''''''''''''''
FromName="中国美容网(http://meirong.)---女性美容必上的网站"
MailFrom="admin@
MailServer="smtp.
MailServerUserName="admin"
MailServerPassWord="admin888"
MailDomain=""
'收信地址
MailtoAddress=request("MailtoAddress")
'收信人
'MailtoName=request("MailtoName")
MailtoName="淘店铺网店导航"
'主题
Subject=request("Subject")
'内容
MailBody=request("MailBody")
'邮件等级，1为加急，3为普通，5为低级
Priority=request("Priority")
If Priority="" Then
Priority=3
End If
Call SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,MailServer,Priority,MailServerUserName,MailServerPassWord,MailDomain)
'Call SendMail("yeff@,"Yeff","title","content","webmaster","mdyeff@,"smtp.,"1","mdyeff","mitaogege","")
'response.write MailBody
%>
<style type="text/css">
h1{margin-top:20px;font-size:18px;}
td{font-size:12px; margin-left:30px;}
</style>
<h1 align="center">在线邮件系统</h1>
<table style="border:1px solid; width:400px;" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><br>
您已经成功的向【<%=MailtoAddress%>】发送了邮件，请核实！<br><br>
<a href="./">继续发送邮件</a> <a href="#" onclick="CloseWin()">关闭窗口</a><br>
</p>
</td>
</tr>
</table>
<script language="JavaScript">
<!--
function CloseWin()
{
var ua=navigator.userAgent
var ie=navigator.appName=="Microsoft Internet Explorer"?true:false
if(ie){
var IEversion=parseFloat(ua.substring(ua.indexOf("MSIE ")+5,ua.indexOf(";",ua.indexOf("MSIE "))))
if(IEversion< 5.5){
var str = '<object id=noTipClose classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">'
str += '<param name="Command" value="Close"></object>';
document.body.insertAdjacentHTML("beforeEnd", str);
document.all.noTipClose.Click();
}
else{
window.opener =null;
window.close();
}
}
else{
window.close()
}
}
//-->
</script>
