AspEmail - Componente Gratuito en Alojamientos Web

 En nuestros servidores, en cualquiera de los planes de alojamiento se encuentra instalado el componente AspEmail de Persist.

 
Este componente permite, entre otras características, el envío de múltiples archivos adjuntos, y múltiples destinatarios, copias (CC), copias ocultas (BCC) y réplicas o respuestas (Reply To).
 
Envío de mensajes a múltiples destinatarios (método SendToQueue).
Este método es muy útil cuando se desean enviar mensajes electrónicos a una gran cantidad de usuarios en la red, con esta opción podemos enviar los mensajes y dejarlos en la cola de espera del servidor SMTP, saliendo estos poco a poco.
¿Qué ganamos nosotros con este método?
Nuestro script ASP no tendrá que esperar a que los mensajes se hayan enviado en su totalidad, como envía una cola pendiente de tratar, el script se ejecuta en apenas unos segundos.
 
¿Es complicado de utilizar el componente AspEmail?
 
Para nada, este componente es sumamente sencillo de utilizar y no requiere apenas código por su parte. Tan solo debe declarar la instancia en la web que se encargue del envío y lanzar la instrucción para que esta comience.
Ejemplo:
 
<%
' Creamos la instancia
Set Mail = Server.CreateObject("Persits.MailSender")
 
' Asignamos los valores del servidor SMTP
Mail.Host = "smtp.midominio.com"
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.Username = "usuario"
Mail.Password = "contraseña"
 
' Puede incluso asignar más de un servidor de correo separados por punto y coma por si en el caso de que el primero esté caido, responda el siguiente.
Mail.Host = "smtp.midominio.com;smtp.miotrodominio.com"
 
' Puede especificar el nombre del emisor del mensaje como parámetro opcional
Mail.From = "administracion@midominio.com"
Mail.FromName = "Departamento de Administración" ' Opcional
 
' Asignamos la dirección y la copia del destinatario, (el nombre es opcional)
Mail.AddAddress "destino@dominio.com", "Destinos"
Mail.AddCC "viajes@agencia.com" ' El nombre es opcional
 
' Utilizamos la propiedad Subject y Body para asignar el Asunto y cuerpo del mensaje, si este fuese HTML deberá especificar la propiedad IsHtml a True.
Mail.Subject = "Mensaje de Ventas"
Mail.Body = "<HTML>><BODY BGCOLOR=#0000FF>Estimado Sr:....</BODY></HTML>"
Mail.IsHTML = True
 
' Si lo desea puede adjuntar un archivo al correo electrónico con la propiedad AddAttachment, si desea adjuntar más de uno, deberá llamar a la misma instrucción tantas veces como sea necesario.
Mail.AddAttachment "c:servidordominio.comarchivo.zip"
 
* Recuerde que debe indicar la ruta completa del archivo
 
' Tan solo queda llamar al método enviar (Send) para comenzar la reproducción del envío.
On Error Resume Next
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If
 
' Con la propiedad On Error Resume Next, podremos capturar los posibles errores que puedan suceder.
%>
Para más información consulte la web del proveedor aquí.