CDO error on Windows 2003 Server

[Mihaela M.]

Hello.
I am trying to send an email from ASP code, using CDO.Message object on a
Windows 2003 server
and I get the following error:
CDO.Message.1 error '80040213'

The transport failed to connect to the server.

The error occurs in the line where the Send method is called: "objMsg.Send".
Here is my code:

Sub
SendEmail(strFromName,strFromAddr,strRecipName,str RecipAddr,strCC,strSubject
,strBody,strFormat)
dim objMsg,objConf
set objMsg = Server.CreateObject("CDO.Message")
set objConf = Server.CreateObject("CDO.Configuration")
objConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "localhost"

objConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpor
t") = 25
objConf.Fields("http://schemas.microsoft.com/cdo/configuration/SendUsing")
= 2
objConf.Fields.Update()
objMsg.Configuration = objConf
objMsg.From = strFromAddr
objMsg.To = strRecipAddr
objMsg.CC = strCC
objMsg.Subject = strSubject
if CInt(strFormat)=0 then objMsg.HtmlBody = strBody else objMsg.TextBody =
strBody
objMsg.Send
set objConf = nothing
set objMsg = nothing
End Sub

I really cannot find the problem, can someone help?

Thanks a lot.

[Jeff Cochran]

On Thu, 11 Mar 2004 11:38:23 +0200, "Mihaela M."
<mi*************@s-concept.net> wrote:

Hello.
I am trying to send an email from ASP code, using CDO.Message object on a
Windows 2003 server
and I get the following error:
CDO.Message.1 error '80040213'

The transport failed to connect to the server.

The error occurs in the line where the Send method is called: "objMsg.Send".
Here is my code:

Sub
SendEmail(strFromName,strFromAddr,strRecipName,st rRecipAddr,strCC,strSubject
,strBody,strFormat)
dim objMsg,objConf
set objMsg = Server.CreateObject("CDO.Message")
set objConf = Server.CreateObject("CDO.Configuration")
objConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "localhost"

objConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpor
t") = 25
objConf.Fields("http://schemas.microsoft.com/cdo/configuration/SendUsing")
= 2
objConf.Fields.Update()
objMsg.Configuration = objConf
objMsg.From = strFromAddr
objMsg.To = strRecipAddr
objMsg.CC = strCC
objMsg.Subject = strSubject
if CInt(strFormat)=0 then objMsg.HtmlBody = strBody else objMsg.TextBody =
strBody
objMsg.Send
set objConf = nothing
set objMsg = nothing
End Sub

I really cannot find the problem, can someone help?

An obvious question is "Did you install SMTP on the server?" The
followup is did you configure it to accept connections from itself
without authenticating? The SMTP group or Windows Server groups can
help on these processes.

Jeff