|
Ejemplo práctico de ASPEmail
Para usar AspEmail bajo ASP, precisa
inicialmente, crear una instancia del objeto en ASP como sigue:
<%
Set Mail = Server.CreateObject("Persits.MailSender")
%>
Para enviar los mensajes, el componente hace uso de un servidor de
correo SMTP. Adicionalmente está permitido el uso de puertos:
Mail.Host = "mail.su-dominio.com"
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Puede especificar tantos correos como desee, separándolos por " ; ":
Mail.Host = "mail.midominio.com;mail.miotrodominio.com;mail.mitercerdominio.com"
Puede especificar también la dirección del emisor del correo , así
como un nombre opcional:
Mail.From = "ventas@midominio.com"
Mail.FromName = "Departamento de Ventas" ' Opcional
Para insertar los destinatarios de los mensajes, así como aquellas
personas que recibirán una copia del mail, existen los métodos
asociados: AddAddress, AddCC, AddBcc and AddReplyTo. Disponen de dos
parámetros, el segundo de los cuales es opcional:
Mail.AddAddress "destino@undominio.com", "Destinos"
Mail.AddCC "viajes@agencia.com" ' El nombre es opcional
Use las propiedades Subject y Body para indicar el asunto y cuerpo
del mensaje. Puede crear el mensaje en formato de texto o HTML
(deberá especificar la propiedad IsHTML al valor True):
Mail.Subject = "Mensaje de Ventas"
Mail.Body = "<HTML>><BODY BGCOLOR=#0000FF>Estimado Sr:....</BODY></HTML>"
Mail.IsHTML = True
Para adjuntar un archivo puede usar el método AddAttachment. Puede
llamarlo por cada archivo que desee adjuntar y tiene que especificar
la ruta completa a disco del archivo que desea adjuntar:
Mail.AddAttachment "d:\\xvrt\\dominio.com\\archivo_que_desea_enviar.doc"
Finalmente, para enviar el mensaje debe llamar al método Send. y en
caso de error, el método lanza una excepción, que puede capturar a
través de la sentencia On Error Resume Next:
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If
|
 |
|
