Enviar correos a través de visual basic

Dipat
30 de Mayo del 2008
Tengo el siguiente problema, tengo un programita que desarrollé y debe enviar correos de alerta, pero sucede lo siguiente: el sistema envía correos pero sólo a las direcciones internas es decir a los correos de la compañía donde trabaja, pero quiero que también envíe correos a direcciones Hotmail, Yahoo y gmail, pero no lo está asiendo se queda en la carpeta Queue y no sé porqué.

Dim cd As CDO.Message
Set cd = CreateObject("CDO.Message")
cd.From = "[email protected]"
cd.To = "[email protected]"
cd.Subject = "Prueba"
cd.TextBody = "Esto es un prueba"
cd.Send
Set cd = Nothing