Usar el componente es tan simple como:

1. Crear el objeto
2. Configurar unas pocas propiedades
3. Invocar el método SendMail

Creación del Objeto

El primer paso para usar a ASPMail es crear el objeto, lo cual puede hacerse con el siguiente código:<% Set Mailer = Server.CreateObject ("SMTPsvg.Mailer") %>

Configurando las Propiedades

Básicamente usted necesita configurar 5 propiedades y llamar un método para definir su mensaje en ASPMail.

Las propiedades que usted necesita configurar son:

El método al que debe llamar es:

Volver al comienzo

Llamada al método "SendMail"

El método "SendMail" no toma las propiedades, pero sí retorna la booleana "True" o "False" para indicar Éxito o Fracaso en el envío del mensaje.

Ejemplo 1:
returnCode = Mailer.SendMail
if returnCode = TRUE then
' Mensaje enviado exitosamente
else
' Falló el envío del Mensaje
end if

Con el siguiente ejemplo se consigue el mismo resultado sin tener que usarse la variable con el código de retorno.

Ejemplo 2:
if Mailer.SendMail then
' Mensaje enviado exitosamente

Else

' Falló el envío del Mensaje
end if

Volver al comienzo

Manejo del Error

Una vez hemos llamado a "SendMail" y hemos verificado una falla de envío podemos querer conocer que hubo una condición de error. ASPMail consta de una propiedad llamada "Response" que contiene una descripción textual de por qué el mensaje no fue enviado. Usted podría usar este mensaje pare informarle al usuario o pra escribirlo en un archivo de bitácoras.

Ejemplo:
if Mailer.SendMail then
' Mensaje enviado exitosamente
response.write ("Your message was sent")
else
' Falló el envío del Mensaje
response.write ("Su mensaje no fue enviado. ")
response.write ("debido al error: " & Mailer.Response)
end if

Volver al comienzo

Ejemplo Completo

<%
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Mailer.FromName = "Joe's Widgets Corp."
Mailer.FromAddress = "sales@joeswidgets.com"
Mailer.Subject = "Su orden Widget"
Mailer.BodyText = "Su orden ha sido procesada."
Mailer.RemoteHost = "mail.rapidsite.net"

Mailer.AddRecipient "John Smith", "jsmith@someisp.com"

if Mailer.SendMail then
' Mensaje enviado exitosamente
response.write ("Your message was sent")
else
' Falló el envío del Mensaje
response.write ("Su mensaje no fue enviado. ")
response.write ("debido al error: " & Mailer.Response)
end if
%>

Volver al comienzo