error sending mail

Hello.

I have a following code:

=============================================
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "subject"
objMessage.Sender = "email@adres.com"
objMessage.To = "email@adres.com"
objMessage.TextBody = "BODY"

'==This section provides the configuration information for the remote
SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"smtp.server.com"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==
objMessage.Send
======================================================

The code used to work. But now I get error message "The transport
failed to connect to server"
code: 80040213
source: cdo.message.1

Can somebody point me in direction to solve this?
Thanks
Martin

Steven
Fri Oct 07 08:35:23 CDT 2005

http://aspfaq.com/show.asp?id=2405

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

<martin.hruby@gmail.com> wrote in message
news:1128691950.199078.135340@g43g2000cwa.googlegroups.com...
> Hello.
>
> I have a following code:
>
> =============================================
> Set objMessage = CreateObject("CDO.Message")
> objMessage.Subject = "subject"
> objMessage.Sender = "email@adres.com"
> objMessage.To = "email@adres.com"
> objMessage.TextBody = "BODY"
>
> '==This section provides the configuration information for the remote
> SMTP server.
> '==Normally you will only change the server name or IP.
> objMessage.Configuration.Fields.Item _
> ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
>
> 'Name or IP of Remote SMTP Server
> objMessage.Configuration.Fields.Item _
> ("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
> "smtp.server.com"
>
> 'Server port (typically 25)
> objMessage.Configuration.Fields.Item _
> ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
>
> objMessage.Configuration.Fields.Update
>
> '==End remote SMTP server configuration section==
> objMessage.Send
> ======================================================
>
> The code used to work. But now I get error message "The transport
> failed to connect to server"
> code: 80040213
> source: cdo.message.1
>
> Can somebody point me in direction to solve this?
> Thanks
> Martin
>

martin
Fri Oct 07 08:59:41 CDT 2005

I just found the solution. Mcaffe virusscan was bloking acces to smtp
server.

Martin