CDO Help

jfiorini

Member
Dec 7, 2001
34
0
0
I'm trying to use Microsoft Windows 2000 CDO Library to send an e-mail to users who have recently registered with my site. I'm currently getting the error:

CDO.Message.1 (0x80040155)
Interface not registered

My code looks like this:
Dim objMail ' As CDONTS.NewMail
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set flds = objConf.Fields
flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
flds.Item("http://schemas.microsoft.com/cdo/configuration/SendUsing") = 2
flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = "10"
flds.Update
set objMail.Configuration = objConf
objMail.To = sTo
objMail.From = """" & sSiteName & """ <" & sFrom & ">"
objMail.Subject = sSubject
objMail.HTMLBody = sBody
objMail.Send
Set objMail = Nothing
I've look on multiple sites for help, and can't find what I'm doing wrong. I had to register the CDO Library manually, but I don't know if that has anything to do with it. Any ideas?

Thanks!