ayuda para CDO

Hola, tengo el siguiente codigo que funciona pero no conecta bien con el
servidor, alguen sabe porque.
PD: El nombre y usuario lo he cambiado, si quereis probar el codigo teneis
que poner el vuestro.

Espero vuestra ayuda. GRACIAS


Set Msg = CreateObject("CDO.Message")
Set Cfg = CreateObject("CDO.Configuration")

Cfg.Fields("http://schemas.microsoft.com/cdo/co...port").
Value = 119
Cfg.Fields("http://schemas.microsoft.com/cdo/co...sing").Value
= 2
Cfg.Fields("http://schemas.microsoft.com/cdo/co...cate"
).Value = 2
Cfg.Fields("http://schemas.microsoft.com/cdo/co...rver").Valu
e = "news.wanadoo.es"
Cfg.Fields("http://schemas.microsoft.com/cdo/co...nectiontim
eout").Value = 2000
Cfg.Fields("http://schemas.microsoft.com/cdo/co...name")
.Value = "prueba@wanadoo.es"
Cfg.Fields("http://schemas.microsoft.com/cdo/co...name").Va
lue = "prueba"
Cfg.Fields("http://schemas.microsoft.com/cdo/co...word").Va
lue = "clave"

Cfg.Fields.Update
Set Msg.Configuration = Cfg

Msg.Subject = "prueba"
Msg.From = "prueba@hotmail.com"
Msg.Newsgroups = "microsoft.public.es.iis"
Msg.Post