CDO Message not working in Windows 2003

[D Averch]

I have and ASP form that sends out an email on Windows 2003. I get the
following error:
ActiveX component can't create object. What should I do to fix this?

Set objMessage = CreateObject("CDO.Message")
If Err.Number Then
Response.Write Err.Description
Else
objMessage.From = "da*****@hotmail.com"
objMessage.Subject = "Example CDO Message"
objMessage.To = "da*****@hotmail.com"
objMessage.TextBody = "Text"

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi
guration/sendusing") = 2

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi
guration/smtpserver") = "mysmtpservername"

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi
guration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
End If

[Aaron [SQL Server MVP]]

Have you tried using the code from http://www.aspfaq.com/2026 ? Also, have
you tried accessing this ASP page through windows authentication instead of
anonymous?

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

"D Averch" <da*****@hotmail.com> wrote in message
news:Nw*****************@news.uswest.net...

I have and ASP form that sends out an email on Windows 2003. I get the
following error:
ActiveX component can't create object. What should I do to fix this?

Set objMessage = CreateObject("CDO.Message")
If Err.Number Then
Response.Write Err.Description
Else
objMessage.From = "da*****@hotmail.com"
objMessage.Subject = "Example CDO Message"
objMessage.To = "da*****@hotmail.com"
objMessage.TextBody = "Text"

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi
guration/sendusing") = 2

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi
guration/smtpserver") = "mysmtpservername"

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi
guration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
End If

[D Averch]

Fails with same error message. CDO.Message nor CDO.Configuration are unable
to create objects.

"Aaron [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:ub**************@TK2MSFTNGP12.phx.gbl...

Have you tried using the code from http://www.aspfaq.com/2026 ? Also, have you tried accessing this ASP page through windows authentication instead of anonymous?

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

"D Averch" <da*****@hotmail.com> wrote in message
news:Nw*****************@news.uswest.net...

I have and ASP form that sends out an email on Windows 2003. I get the
following error:
ActiveX component can't create object. What should I do to fix this?

Set objMessage = CreateObject("CDO.Message")
If Err.Number Then
Response.Write Err.Description
Else
objMessage.From = "da*****@hotmail.com"
objMessage.Subject = "Example CDO Message"
objMessage.To = "da*****@hotmail.com"
objMessage.TextBody = "Text"

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi guration/sendusing") = 2

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi guration/smtpserver") = "mysmtpservername"

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi guration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
End If