Cdo

[voyageur]

Que tal, espero que me puedan ayudar con este tema.
Tengo un envio de news y cuando quiero enviar un mail me sale el siguiente error

error '8004020f'

Les paso el codigo
(donde dice xxx son los datos de la cuenta, servidor y clave. saque la parte de la pagina web porque el foro no me deja poner direcciones web)


Set myMail=CreateObject("CDO.Message")
myMail.Subject= asunto
myMail.From= "xxx"
myMail.Configuration.Fields.Item("/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item("/cdo/configuration/smtpserver")="xxx"
'Server port
myMail.Configuration.Fields.Item("/cdo/configuration/smtpserverport")=25
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
myMail.Configuration.Fields.Item("/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
myMail.Configuration.Fields.Item("/cdo/configuration/sendusername") = "xxx"

'Your password on the SMTP server
myMail.Configuration.Fields.Item("/cdo/configuration/sendpassword") = "xxx"

'Use SSL for the connection (False or True)
myMail.Configuration.Fields.Item _
("/cdo/configuration/smtpusessl") = False

'TIMEOUT en segundos, el tiempo máximo que tratará CDO para establecer una conección con el SMTP
myMail.Configuration.Fields.Item _
("/cdo/configuration/smtpconnectiontimeout") = 60

myMail.Configuration.Fields.Update



Lei un mensaje que hablaba de este tema, pero entiendo poco y no se como solucionarlo.
Gracias de antemano.

Saludos.