Bueno para enviarlo simplemente:
Código:
'Creamos una instancia del objeto
Set ObjetoCDO = Server.CreateObject("CDONTS.NewMail")
'Asignamos las propiedades al objeto
ObjetoCDO.From = "[email protected]"
ObjetoCDO.To = "[email protected]"
ObjetoCDO.Subject = "Prueba de correo"
objetoCDO.BodyFormat=1
ObjetoCDO.MailFormat=1
ObjetoCDO.Body = "Esto es una prueba amigo"
'Enviamos el e-mail
ObjetoCDO.Send
'Destruimos el objeto
Set ObjetoCDO = Nothing
Espero que te sirva, un saludo