asp用JMAIL发送邮件的问题,本地行,但上传到服务器就不行了,

asp用JMAIL发送邮件的问题,本地行,但上传到服务器就不行了,接收不到邮件在服务器也用了如下代码测试JMAIL的安装问题,服务器是支持JMAIL的

<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function

response.write IsObjInstalled("jmail.message")
%>
到底哪出了问题呢,发送函数如下,本地可以接收邮件,但服务器上却不可以,谁遇到过类似的情况
function SendMail(rec_ads,mailtitle,mailhtml,mailtext,send_ads,send_name,send_user,send_password,send_server)
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient rec_ads '邮件收件人的地址
jmail.From = send_user '发件人的E-MAIL地址
jmail.FromName = send_name '发件人名称
jmail.MailServerUserName = send_user '登录邮件服务器所需的用户名
jmail.MailServerPassword = send_password '登录邮件服务器所需的密码
jmail.Subject = mailtitle '邮件的标题
jmail.body= mailhtml '邮件的html内容
jmail.appendText mailtext '邮件的文本内容
jmail.Send(send_server) '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
if jmail.errorMessage<>"" then
response.write jmail.errorMessage
else
SendMail=True
end if
set jmail=nothing
end function

9 个解决方案

#1

这都没错，关键的一点，注册成功了没有？

#2

你是说什么注册成功了,是组件吗,还是会员,会员注册成功了,

#3

帮帮忙呀,真不知道哪出了问题

#4

出的什么错？
再一个有没有安装JMAIL组件。

#5

发邮件用的用户名和密码都正常不？
另外，看看是不是杀毒软件或者防火墙阻止了。我就遇到过这样的情况。

#6

是服务器不能发哦,服务器我也不能叫他停了杀毒的吧

#7

如果是服务器中没有安装相应的组件，或是服务器上的管理功能把相应的端口给关闭的话。哪就比较麻烦了。
你可以和服务器的代理商联系一下，让他们安装一下或是开一下相应的端口。因为jmail是比较常用的组件一般不会有问题。服务器商一般都会给开。
也有一种可能是版本不对。就是你的版本与服务器商提供的不对，引起了发送失败。这些你都得和服务器商进行联系。

#8

谢谢各位

#9

没让你把杀毒的停了。
只是让你开放相应的端口，或者给Jmail放行。

#1