CDO Mail

[Drew]

I am trying to setup an error reporting system for our Intranet. We have a
Windows 2000 Server with SQL Server and we have an Exchange Server 5.5. I
need to set it up so I can use CDO mail. I have used CDO before, but have
never set it up to work. I built a small little page with some CDO code on
it, but I get an error when I try to run it. How can I set this up to send
mail from the webserver to people in our facility?

Thanks,
Drew

 

[Ray at]

What error? And with what snippet of code?

Ray at work

 

[Drew]

Sorry about the lack of details, I was trying to get the question out there
before I left for lunch...

Here is the code snippet I used.

<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")

objCDO.To = "drew.laingATNOSPAMswvtc.dmhmrsas.virginia.gov"
objCDO.From = "adminATNOSPAMswvtc.dmhmrsas.virginia.gov"

Dim txtSubject
txtSubject = "TESTING CDO Mail"

objCDO.Subject = "TEST"
objCDO.Body = txtSubject
objCDO.Send
%>

(I of course used @ instead of ATNOSPAM, just trying to keep my email addy
from those email address robots!)

Here is the error I received,

Error Type:
(0x80090020)
An internal error occurred.
/swvtc/cdotest.asp, line 15

Line 15 is, objCDO.Send

Thanks,
Drew

 

[Aaron [SQL Server MVP]]

For starters, stop using CDONTS.NewMail. See http://www.aspfaq.com/2026 for
better techniques.

 

[Drew]

If I use the following code,

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "<enter_mail.server_here>"
.update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "adminATNOSPAMswvtc.dmhmrsas.virginia.gov"
.To = "drew.laingATNOSPAMswvtc.dmhmrsas.virginia.gov"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

I get this error,

Error Type:
Microsoft VBScript runtime (0x800A0030)
Error in loading DLL: 'cdoConfig.Fields'
/swvtc/cdotest.asp, line 7

Thanks,
Drew

 

[Aaron [SQL Server MVP]]

What operating system? What service pack?

--
http://www.aspfaq.com/
(Reverse address to reply.)

 

[Drew]

Windows 2000 Server SP 4

Thanks,
Drew

What operating system? What service pack?

 

[Aaron [SQL Server MVP]]

Can you try reinstalling the latest scripting engine 5.6? Maybe that will
reinstate the relevant DLLs...

http://msdn.microsoft.com/downloads/list/webdev.asp

--
http://www.aspfaq.com/
(Reverse address to reply.)

 

[Drew]

I will, but since I am only the "humble programmer" and I don't have any
control over the server, I will have to wait until tommarow, or maybe the
beginning of next week. I really appreciate your time and help on this
issue. If I continue to have problems after reinstalling scripting engine
5.6, I will post again.

Thanks,
Drew