邮件发送权限问题！请高手指点一下！

[shareanway]

原代码如下：
Set objCDOMail=Server.CreateObject("CDONTS.NewMail")
objCDOMail.from="[e-mail]"
objCDOMail.to="[e-mail]"
objCDOMail.subject= "留言主题"
objCDOMail.body="留言内容"
objCDOMail.send
set objCDOMail=nothing
我用探针代码可以测出远程服务器安装了CDONTS.NewMail组件，本地开发服务器上也安装了CDONTS.NewMail组件，但问题出现了：
我在本地开发服务器上使用AD身份可以通过CDONTS发送邮件，但是在远程服务器上无法发送，出现“没有权限”的出错信息。
请问我该如何解决这个问题呢？

[shareanway]

补充一下：
我使用本地服务器发送邮件时，可以发送，但是要过很久才能接受到。请问是否应该指定邮件发送服务器名称？该如何指定？难道是objCDOMail.SMPT="mail.you.com"??

[shareanway]

怎么没有人回答我的问题呢？

[shareanway]

谢谢51windows(海娃)，不过JMail.Message好象服务器上不支持呢，
只支持JMail.SMTPMail和CDONTS.NewMail

[shareanway]

我有些急呀，大家帮帮我呀！为什么总是说没有权限呢？

[51windows]

用CDONTS.NewMail发邮件时，会先在X:\Inetpub\mailroot\Queue中生成一个eml文件，所以在X:\Inetpub\mailroot中要有写的权限！


服务器一般都不会有这个权限的！




用JMail.Message出现什么错误信息？

[shareanway]

快点呀，怎么没有人会吗？？高手进来呀！

[hongmaohouzi]

可能和硬件有些联系或是网络有问题或是服务器在配置的时候限定权限了！仔细看看服务器的配置时候有问题！

[shareanway]

怎么个有问题法？能具体告诉我在远程服务器上怎么配置这个组件的权限？？？

[devinjiang]

估计应该是服务器的设定问题，象pop163等应该设置一下邮件服务器！

[devinjiang]

象163的邮件服务器：
发送是：smtp.163.com
接受是：pop.163.com

[shareanway]

可是本地服务器我什么都没有设置都可以发，就是接受慢了点！

[shareanway]

真的难道没有解决办法吗？有没有搞过这方面的出来指点一下啦！

[51windows]

一般的虚拟主机都不能使用这个组件的

jmail多数是可以用的


提供一个代码。。


<%
sub sendmail(Recipients,Subjects,Bodys)
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312"
JMail.From = "用户名@邮件服务器"'如[e-mail]
JMail.FromName = "管理员"
JMail.Subject = Subjects
'contentId = JMail.AddAttachment (filename, True)
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.AddRecipient(Recipients)
'JMail.HTMLBody = "<center>点击这里<a href=' cid:" & contentId & "' >[附件文件]</a>将文件保存</center>"
' 邮件主体（文本部分）
JMail.Body = Bodys
JMail.Send("用户名:密码@smtp邮件服务器")
JMail.Close()
Set JMail = Nothing
if err<>0 then
response.write "发送失败!"
else
response.write "发送成功!"
end if
end sub

call sendmail("收件人","测试","这里是邮件内容")
%>