主题:  2003的CDONTS

书同人
职务：普通成员
等级：1
金币：0.0
发贴：179
#12004/3/4 20:23:15
刚刚换了系统，原来用2000SERVER的CDONTS。DLL发送邮件，但是2003里面好象不太好使呀，要怎样才能使用CDONTS。NEWMAIL呢？



书同人
职务：普通成员
等级：1
金币：0.0
发贴：179
#22004/3/5 13:54:36
老大，按你的指示已经激活了那个级件，可是在发送邮件的时间报这个错，是怎么一回事？
Microsoft VBScript 运行时错误 错误 '800a0046'

没有权限

/backstep/teach/expert_detail.asp，行 108

108行的代码：objemail.send
如果把这行给注释掉就不会报错，可是信件发不出去，这是为什么？权限都已经开通了！！



书同人
职务：普通成员
等级：1
金币：0.0
发贴：179
#32004/3/5 21:59:30
老大们帮帮忙呀！



悲伤的设计
职务：普通成员
等级：1
金币：1.0
发贴：158
#42004/3/6 11:48:09
1,SMTP启动或安装了没?
2,如启动了,重启一下看看
3,
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(9)
Dim theComponentName(9)
Dim theotherComponent(1)
Dim theotherComponentName(1)

' the components
theComponent(0) = "SMTPsvg.Mailer"
theComponent(1) = "Persits.MailSender"
theComponent(2) = "SMTPsvg.Mailer"
theComponent(3) = "CDONTS.NewMail"
theComponent(4) = "CDONTS.NewMail"
theComponent(5) = "dkQmail.Qmail"
theComponent(6) = "Geocel.Mailer"
theComponent(7) = "iismail.iismail.1"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"

'the other components
theotherComponent(0) = "ocxQmail.ocxQmailCtrl.1"
theotherComponent(1) = "SoftArtisans.SMTPMail"

' the name of the components
theComponentName(0) = "ASPMail"
theComponentName(1) = "ASPEMail"
theComponentName(2) = "ASPQMail"
theComponentName(3) = "CDONTS"
theComponentName(4) = "Chili!Mail"
theComponentName(5) = "dkQMail"
theComponentName(6) = "GeoCel"
theComponentName(7) = "IISMail"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"

'the name of the other components
theotherComponentName(0) = "OCXQMail"
theotherComponentName(1) = "SA-Smtp Mail"


Function IsObjInstalled(strClassString)
 On Error Resume Next
 ' initialize default values
 IsObjInstalled = False
 Err = 0
 ' testing code
 Dim xTestObj
 Set xTestObj = Server.CreateObject(strClassString)
 If 0 = Err Then IsObjInstalled = True
 ' cleanup
 Set xTestObj = Nothing
 Err = 0
End Function
%>

<HTML>
<HEAD>
<TITLE>发信组件测试</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY bgColor="white" text="midnightblue" link="darkblue" aLink="red" vLink="red">
<font face="Verdana, Arial, Helvetica">
<table border=0 cellspacing=0 cellpadding=0 align=center>
  <tr valign="top">
    <td bgcolor="black">
    <table border=0 cellspacing=1 cellpadding=4>
      <tr valign="top">
        <td bgcolor="midnightblue" colspan="2" align="center"><font size="2" color="mintcream"><b>发信组件测试</b></font></td>
      </tr>
      <tr valign="top">
        <td bgcolor="midnightblue" colspan="2" align="center"><font size="2" color="mintcream">The following components are currently<br>available choices in the latest<br>release of Snitz Forums 2000</font></td>
      </tr>
        <% Dim i
           For i=0 to UBound(theComponent)
             Response.Write "<tr><td bgColor=""A0B0E0"" align=""right""><font face=""Verdana, Arial, Helvetica"" size=""2""><strong>" & theComponentName(i) & ":&nbsp;</strong></td><td bgColor=""A0B0E0"" align=""center"">"
	     If Not IsObjInstalled(theComponent(i)) Then
	       Response.Write "没有安装"
	     Else
	       Response.Write "<strong><FONT color=red>已经安装!</FONT></strong>"
	     End If
	     Response.Write "</td></font></tr>" & vbCrLf
	   Next %>
    </table>
    </td>
  </tr>
</table>
<br>
<table border=0 cellspacing=0 cellpadding=0 align=center>
  <tr valign="top">
    <td bgcolor="black">
    <table border=0 cellspacing=1 cellpadding=4>
      <tr valign="top">
        <td bgcolor="midnightblue" colspan="2" align="center"><font size="2" color="mintcream"><b>Email Component Test</b></font></td>
      </tr>
      <tr valign="top">
        <td bgcolor="midnightblue" colspan="2" align="center"><font size="2" color="mintcream">The following components are not currently<br>available choices in the latest<br>release of Snitz Forums 2000<br>but mods are available to add them.</font></td>
      </tr>
        <% Dim j
           For j=0 to UBound(theotherComponent)
             Response.Write "<tr><td bgColor=""A0B0E0"" align=""right""><font face=""Verdana, Arial, Helvetica"" size=""2""><strong>" & theotherComponentName(j) & ":&nbsp;</strong></td><td bgColor=""A0B0E0"" align=""center"">"
	     If Not IsObjInstalled(theotherComponent(j)) Then
	       Response.Write "没有安装"
	     Else
	       Response.Write "<strong><FONT color=red>已经安装!</FONT></strong>"
	     End If
	     Response.Write "</td></font></tr>" & vbCrLf
	   Next %>
    </table>
    </td>
  </tr>
</table>
</font>
</BODY>
</HTML>

来测试一下,你的服务器组件安装正确了没