关于jmail的问题

giant2006 2006-06-28 08:57:20

我参与的一个OA 其中有一个可以在线发送邮件的功能,可是我的既然不能回复邮件
到底是那里错了
请指教!!!
代码如下
Class HX_SendMail
Sub Sendmail()
' On Error Resume Next
set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
JMail.ContentType = "text/html"
jmail.From = smtpemail
jmail.FromName = sendname
jmail.ReplyTo = myemail
jmail.Subject = topic
jmail.AddRecipient "netcst@126.com"
jmail.Body = mailbody
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)
if isgo then
msg="已成功发送"
else
msg = "发送失败！可能是参数设置是错误，请与管理员联系！"
end if
jmail.Close
set jmail = nothing
response.Write "<script>alert('"&msg&"');window.close();</script>"
response.end
End Sub
End Class
其中我的stmpserver是:stmp.163.com
可是每次回复信件的时候都显示
发送失败！可能是参数设置是错误，请与管理员联系
请高手门帮我看看谢谢

...全文