Enviar Email sin CDO

Desde hace un tiempo, tenéis disponible un artículo dedicado a enviar email desde ASP, a través del objeto CDO. También tenéis un ejemplo on line en la sección de Código. ¿Pero qué pasa con los que no tienen CDO? ¿Es obligatorio instalar un Windows NT o 2000? ¿Tengo que saber configurar el SMTP?

La respuesta es no, por fortuna. Persits Software ha desarrollado un componente para enviar Email desde ASP. Y la buena noticia: funciona con el PWS (conectado a Internet, claro), y podéis decirle que use el servidor de correo que queráis, así que nada de configurar SMTP.

La segunda y probablemente mejor noticia, es que ASPEmail, que así se llama el componente, es gratis. Tiene algunas características avanzadas que necesitan que nos registremos, pero con la versión gratuita se puede hacer prácticamente de todo.

Para los que no sepáis qué es un componente, es básicamente una DLL que hay que registrar en el Registro de Windows, para que nos proporcione algunos objetos para ASP, Visual Basic, etc.

Comenzando

Una vez descargado el software (ver enlaces al final del artículo), tenemos que instalarlo ejecutando el archivo que hemos bajado y después, registrarlo. Esto se hace ejecutando la siguiente línea desde una ventana de MS-DOS o desde Ejecutar en el botón Inicio.

C:\>regsvr32 c:\AspEmailDir\AspEmail.dll

AspEmailDir es el directorio donde hayáis instalado ASPEmail. Esto al menos, es lo que pone en su manual, pero yo acabo de hacerlo y la DLL está en el subdirectorio \bin, así que he escrito:

C:\>regsvr32 c:\AspEmail\bin\AspEmail.dll

Si todo ha ido bien, una ventanita nos dirá que el registro ha sido exitoso. ¡Ya podemos enviar emails!

Muy muy fácil

Al igual que con CDO, todas las operaciones necesarias se hacen invocando unos métodos y propiedades muy sencillos. Aquí os pongo el código, y ahora os lo comento:

<%
'Prueba de envío de correo con ASPEMail
Dim Mail

set Mail=Server.CreateObject("Persits.MailSender")


Mail.Host = "www.misitio.com"
Mail.From = "carlos@misitio.com"
Mail.FromName = "Carlos"
Mail.AddAddress "mama@vuelvopornavidad.com", "Madre"
Mail.Subject = "Prueba ASPEmail"

Mail.Body = "Hola mundo!"
On Error Resume Next
Mail.Send

if Err <> 0 Then
	Response.Write ( "Error: " & Err.Description )
else
	Response.Write ( "Mail enviado." )
end if

%>

Lo más interesante de ASPEmail (como bien apuntó nuestra lectora Laura en los Foros), es esta línea:

Mail.Host="www.misitio.com"

que te permite elegir el servidor de correo saliente. Esto significa que usando cualquiera de vuestras cuentas de correo POP3 podéis enviar mails, simplemente utilizando ese servidor.

El resto de código es de risa:

Para crear el objeto, Server.CreateObject("Persits.MailSender").
Para especificar el remitente, Mail.From = "remite". Opcionalmente, puedes elegir un nombre para el remite con Mail.FromName = "nombre".
Para añadir destinatarios del mail, se usa el método AddAddress "direccion@mail, nombre". Podéis añadir tantas como queráis, llamando al método una vez por cada destinatario.
Para poner el asunto del mail, Mail.Subject = "texto".
Sí, Mail.Body = "texto" define el cuerpo del mensaje, y
enviamos el email con el método Send.

Por si no lo sabíais, el código que viene a continuación utiliza el objeto Err de ASP para detectar si hay un error, imprimiendo en ese caso una descripción con Err.Description.

¿Hay más?

Sí, desde la versión 4.3 se pueden enviar caracteres fuera del estándar US-ASCII como nuestras tildes, en las cabeceras del mensaje (Subject, FromName...) utilizando Mail.EncodeHeader. Así:

Mail.FromName = Mail.EncodeHeader ("José el Francés")

Además, ASPEmail os permite añadir direcciones de respuesta, adjuntar ficheros, etc. Visitad la web del manual que os indico abajo para ver todas las características.

En resumen

ASPEmail es un componente magnífico para utilizar desde nuestro PWS. Además, suele venir preinstalado en la mayoría de hospedajes para ASP de pago, por lo que es bueno comenzar a utilizarlo.

Nada más, hasta el próximo artículo.

Un saludo,
MOS

Enviar Emails Sin CDO

Comenzando

Muy muy fácil

¿Hay más?

En resumen

Links