Vamos a ver cómo podemos enviar un email desde nuestro servidor windows 2000 o mas antiguo usando CDONTS, ya que con servidores mas modernos usaremos CDO , veremos cómo crear el objeto para mandar el email cómo lo modificaremos y como enviaremos el email y destruiremos el objeto.

<% Option Explicit
Dim objetoMail
Set objetoMail = Server.CreateObject ( "CDONTS.NewMail" )
%>

Luego configuraremos las propiedades del objeto que són: From - Cadena que contiene el email desde el que será enviado el email
To - Cadena que contiene el email del destinatario
Subject - Asunto del email enviado
Cc - Cadena que contiene los email a donde enviar cópia
Bcc - Cadena que contiene los email a donde enviar cópia oculta
BodyFormat - Formato del texto (0 - HTML, 1 -texto)
MailFormat - Formato del email (0 - Mime, 1 - texto) Veamos un ejemplo de cómo usaremos este objeto para enviar un email en formato de texto a un destinatario:

<% Option Explicit
' Creamos el objeto email
Dim objetoMail
Set objetoMail = Server.CreateObject ( "CDONTS.NewMail" )

' Configuramos el email
objetoMail.From = "[email protected]"
objetoMail.To    = "[email protected]"
objetoMail.Subject = "Este es un email de prueba"
objetoMail.Body     = "Este email es mandado como prueba para provar el envio de emails desde ASP con CDONTS"

' Enviamos el email
objetoMail.Send

' Destruimos el objeto email
Set objetoMail = Nothing
%>

Este es un ejemplo sencillo que podremos configurar ampliamente para mandar emails a nuestros visitantes para recuperar contraseñas, avisar de mensajes y contenidos nuevos...

Artículo por cortesía de Eloi de San Martín
www.programacionweb.net