主题:  求救!!!一个Jmail组件使用的问题

djj128

职务:普通成员
等级:1
金币:0.0
发贴:12
注册:2003/6/25 14:03:12
#12003/6/28 10:26:34
我用的是winxp iis5.1 ud4.0 jmail组件已安装
在本机测试浏览出错
错误类型:
jmail.SMTPMail (0x8000FFFF)
The message was undeliverable. All servers failed to receive the message
/guestbook/getpassok.asp, 第 31 行

我的代码:<%@LANGUAGE="VBSCRIPT"%>

<%
Dim member__MMColParam
member__MMColParam = "1"
if (Session("MM_Username") <> "") then member__MMColParam = Session("MM_Username")
%>
<%
set member = Server.CreateObject("ADODB.Recordset")
member.ActiveConnection = MM_guest_STRING
member.Source = "SELECT * FROM admin WHERE admin = '" + Replace(member__MMColParam, "'", "''") + "'"
member.CursorType = 0
member.CursorLocation = 2
member.LockType = 3
member.Open()
member_numRows = 0
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.emaichina.net:25"
JMail.Sender = "email@emaichina.net"
JMail.Subject = "您的登录密码"
JMail.AddRecipient(member.Fields.Item("mail").value)
JMail.Body = "尊敬的用户您好,首先感谢您使用我们的服务!." & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "您的用户名是:" &(member.Fields.Item("admin").value) & vbCrLf
JMail.Body = JMail.Body & "您的注册邮箱是:" &(member.Fields.Item("mail").value) & vbCrLf
JMail.Body = JMail.Body & "您的登录密码是:" &(member.Fields.Item("password").value) & vbCrLf
JMail.Body = JMail.Body & "请妥善保管您的密码,如再次遗忘密码,请登录至http://www.0576rd.com/guestbook/getpass.asp%20%20取回您的密码,谢谢您使用本系统。" & vbCrLf
JMail.Body = JMail.Body & "顺祝商祺!" & vbCrLf
JMail.Body = JMail.Body & "******有限公司"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute

%>
另问:163.com 的免费邮箱是否可这这个组件上使用,它的STMP 也就是该组件代码中的JMail.ServerAddress = "smtp.163.com:25" 对吗?如不对,是什么,敬请你的帮忙.