Hola:
El CDONTS 1.2.1 como su nombre lo indica (objetos de colaboración de datos para
NT) viene con sistemas NT; para windows 2000 o Windows XP es OTRO y se llama simplemete CDO.
Aqui tienes un ejemplo usando un servidor de correo remoto.
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Asunto del mensaje"
objMessage.Sender = "
[email protected]"
objMessage.To = "
[email protected]"
objMessage.TextBody = "Cuerpo del Mensaje"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.telefonica.net.pe"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
Aqui encontraras mas ejemplos :
http://www.paulsadowski.com/WSH/cdo.htm