Envío de E-Mails con CDONTS

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 = "envio@programacionweb.net"
objetoMail.To    = "destino@programacionweb.net"
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

Usuarios que han visto este tema también han visto...

- Uso del objeto diccionario de ASP
- Chequear que exista un fichero con ASP
- Cortar Cadenas
- Ejemplos básicos de ASP
- Bloquear IPs a través de un array con ASP

- Versión imprimible de este documento

- Enviar por e-mail este documento