|
Usar este componente es tan simple como:
Crear un objeto
El primer paso para usar el ASPMail es el
de crear el objeto. Esto puede realizarse con el siguiente
código:
<% Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
%>
Configurar algunas propiedades
Generalmente se necesita configurar cinco
propiedades y llamar a un método para definir su mensaje
en el ASPMail.
Las propiedades que se deben configurar
son:
| FromName |
El nombre que debe ser utilizado para el Sender del
mensaje.
Ejemplo:
Mailer.FromName = "Juguetes Juan Perez."
|
| FromAddress |
La dirección e-mail que debe ser utilizada como
el sender del mensaje.
Ejemplo:
Mailer.FromAddress = "ventas@juguetesjuanperez.com"
|
| Subject |
Este será utilizado como el Subject del mensaje.
Ejemplo:
Mailer.Subject = "Su orden de pedido"
|
| BodyText |
Este será el mensaje propiamente dicho.
Ejemplo:
Mailer.BodyText = "Su orden ha sido procesada."
|
| RemoteHost |
El servidor SMTP a ser utilizado para enviar el mensaje.
Sería mail.rapidsite.net.
Ejemplo:
Mailer.RemoteHost = "mail.rapidsite.net"
|
| El método que
se debe llamar es: |
| AddRecipient name, email addr |
Este método agrega un nombre
y una dirección email al campo "To:"
del mensaje
Ejemplo:
Mailer.AddRecipient "Juan
Perez", "jperez@algunisp.com"
|
Método SendMail
El método SendMail no toma ninguna
propiedad, pero devuelve un True / False para indicar Success
ó Failure en el envío del mensaje email.
Ejemplo 1:
returnCode = Mailer.SendMail
if returnCode = TRUE then
' Message sent sucessfully
else
' Message send failure
end if
El siguiente ejemplo ofrece el mismo resultado sin usar una
variable para obtener un código de retorno.
Ejemplo 2:
if Mailer.SendMail then
' Message sent sucessfully
else
' Message send failure
end if
Manejo de Errores
Una vez que llamamos al SendMail y hemos
controlado una falla de envío podríamos querer
saber cual fue la condición del error. El ASPMail ofrece
una Property llamada "Response" que contiene una
descripción textual del porqué el mensaje no
fue enviado. Se puede utilizar este mensaje para informar
al usuario ó archivarlo en un archivo.
Ejemplo:
if Mailer.SendMail then
' Message sent sucessfully
response.write ("Your message was sent")
else
' Message send failure
response.write ("Your message was not sent.")
response.write ("The error was: " & Mailer.Response)
end if
Ejemplo completo
<%
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Mailer.FromName = "Joe's Widgets Corp."
Mailer.FromAddress = "sales@joeswidgets.com"
Mailer.Subject = "Your Widget Order"
Mailer.BodyText = "Your order was processed."
Mailer.RemoteHost = "mail.rapidsite.net"
Mailer.AddRecipient "John Smith", "jsmith@someisp.com"
if Mailer.SendMail then
' Message sent sucessfully
response.write ("Your message was sent")
else
' Message send failure
response.write ("Your message was not sent. ")
response.write ("The error was: " & Mailer.Response)
end if
%>
|
