jmail邮件发送问题

[madgec]

以下是我的发送邮件代码，jmail组件是4.3的，在一台机器上测试好用，但是当放在另一台机器上和服务器上的时候就是发送不了邮件，不知道原因，至少运行的时候提示“发送邮件失败”，经asp探针测试不到jmail.dll，请大侠帮助。

<!-- #include file="../Connections/conndb1.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
function sendmail(smtp,sendto,subject,body)
On Error Resume Next
Dim jmail
Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true
jmail.logging = true
jmail.Charset = "GB2312"
jmail.ContentTransferEncoding = "base64"
jmail.Encoding = "base64"
jmail.ISOEncodeHeaders = false
jmail.AddRecipient sendto
jmail.From ="[e-mail]"
jmail.MailServerUserName ="CHN\DLTVOpinion"
jmail.MailServerPassword ="dltvopinion"
jmail.Subject = subject
jmail.Body = body
jmail.Priority = 3
if jmail.send(smtp)=false then
sendmail="发送邮件失败"
else
sendmail="发送邮件成功"
end if
jmail.Close
end Function

%>
<%
dim title ,content,adddate,uname,filename
dim strSQL,rsObj,rsadd
title=Request.Form("title")
content=Request.Form("content")
adddate=Request.Form("date")

If title="" Then
Response.Write ("<script>alert('申请用户失败!\n\n错误原因:题目未填写。');history.back();</script>")
Response.End()
ElseIf content="" Then
Response.Write ("<script>alert('申请用户失败!\n\n错误原因:内容未填写。');history.back();</script>")
Response.End()
Elseif len(title)>49 then
Response.Write ("<script>alert('添加意见失败!\n\n原因:题目不得超过50。');history.back();</script>")
Response.End()
Elseif len(content)>2000 then
Response.Write ("<script>alert('添加意见失败!\n\n原因:内容长度不得大于2000。');history.back();</script>")
Response.End()
Elseif content<>"" then
response.write sendmail("172.30.100.200","[e-mail]","有人添加新意见了！","有人添加新意见了，请注意查看")
End if

Set rsadd=server.CreateObject("ADODB.Recordset")
Application.Lock
rsadd.Open "opinion",conn,3,3
rsadd.AddNew
rsadd("title")=title
rsadd("content")=content
rsadd("adddate")=adddate
rsadd("name")=session("UID")
rsadd("url")=session("fn1")
rsadd.Update
Application.UnLock
rsadd.close()
Set rsadd=nothing
CloseConn()
%>
<%
Response.Write "<script>alert('addopinion success！！！');window.location='../Default.asp'</script>"
response.end()
%>

[madgec]

组件安装了，是安装4.3版本的jmail，刚开始以为是jmail版本有问题，换成了4.4,4.5版本的，都不好用。注册regsvr32 "C:\Program Files\Dimac\w3JMail4\jmail.dll"也注册了，但是就是不好用，不知道原因到底出在哪。在注册表里注册之后找也没找到，运行regsvr32 jmail.dll就是不好用，但是安装4.4版本的可以在注册表中找到，但是还是收发不了邮件。

[sy_binbin]

那你就检查下组件的权限或者是不是让防火墙给屏蔽掉了

[athrun0814]

90%是因为没安装组件。服务器端是必须要安装才可发送的！

[sy_binbin]

服务器没注册JMAIL组件

[madgec]

防火墙已经关掉，组件的权限为administrators,everyone。还是找不到原因。

[etz2008]

应该是没安装组件
www.xizi123.cn

[lihan6415151528]

看看我的blog里面有例子

[madgec]

谢谢大家，不用jmail了，改成cdo组件了。