一个常见的“没有权限”的老问题

[olmouse]

环境IIS 5(Windows2000 Advance Server)
使用在scripts目录下使用mail发送邮件，代码如下：
set oMailer=Server.CreateObject("CDONTS.NewMail")
oMailer.From=EMail
oMailer.To=.......（内容省略，下同）
oMailer.Subject=.......
oMailer.Body=........
bRet=oMailer.Send() <—— 就是这里出了问题
set oMailer=nothing

出问题的情况如下：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
/scripts/makecall.asp，行68 （就是send 语句所在的行）


我想这个应该是老问题了，所以希望大家能给于帮助！谢谢

[flying310]

是你打开组建的初始化条件出问题了把.

[cloudchen]

服务器不支持cdonts

[lions911]

SMTP-属性-安全-添加EVERYONE用户

[olmouse]

以上都不是！！不行

[Programmersheaven]

用阿江ASP探针检查一下你的服务器是否Cdonts.

[jinco]

你服务器开了SMTP服务吗？要是你们的服务器用的是ESMTP的话，需要验证才能发信的。

[甘泉123]

利用CDONTS组件在Win2k上发送邮件

<%
'Last Updated By Recon On 05/14/2001
'On Error Resume Next

'利用CDONTS组件在Win2k上发送邮件

'发送普通邮件
SendMail "[e-mail]", "[e-mail]", "Normal Mail!", "Please check the attatchment!", 2, 0, "C:\Love.txt"

'发送HTML邮件
Dim m_fso, m_tf
Dim m_strHTML

Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set m_tf = m_fso.OpenTextFile("C:\Mail.htm", 1)
m_strHTML = m_tf.ReadAll

'Write m_strHTML
Set m_tf = Nothing
Set m_fso = Nothing

SendMail "[e-mail]", "[e-mail]", "HTML Mail!", m_strHTML, 2, 1, Null

'参数说明
'strFrom : 发件人Email
'strTo : 收件人Email
'strSubject : 信件主题
'strBody : 信件正文
'lngImportance : 信件重要性
' : 0 - 低重要性
' : 0 - 中等重要性（默认）
' : 0 - 高重要性
'lngAType : 信件格式
' : 为1时将邮件正文作为HTML（此时可以发送HTML邮件）
'strAttach : 附件的路径
Sub SendMail(strFrom, strTo, strSubject, strBody, lngImportance, lngAType, strAttach)
Dim objMail

Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
With objMail

.From = strFrom
.To = strTo
.Subject = strSubject
.Body = strBody
.Importance = lngImportance

If lngAType = 1 Then
.BodyFormat = 0
.MailFormat = 0
End If

If IsEmpty(strAttach) = False And IsNull(strAttach) = False Then
.AttachFile strAttach
End If

.Send
End With
Set objMail = Nothing
End Sub
%>

[olmouse]

to jinco(阿华):我安装了exchange 2000的，SMTP有，你说的ESMTP是否是Exchange?
to Programmersheaven(Finally): 刚检查的，支持！

[net_boy]

bRet=oMailer.Send()
改为
oMailer.Send
试试可以么

[qschina]

反这一句

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

删除

[olmouse]

没有<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>这一句阿

[ttt2]

换一个目录试试也许可以

[cdsun]

关注

up