Como crear un formulario utilizando el componente Jmail en Windows

Componente para enviar e-mails directamente desde una página web ASP a través del servidor. Muy fácil de utilizar. Similar a CDONTS pero con más prestaciones. Permite enviar e-mails formateados en HTML desde sus páginas ASP.

Funcionamiento en general

Definimos las variables necesarias

< %
Dim ObjMail

Creamos una instancia del objeto de ' JMail ' en el servidor.

Set objMail = Server.CreateOBject("JMail.Message")

Una vez que el objeto de JMail se haya creado en el servidor podemos utilizar varias características y métodos del objeto de JMail para construir el email.

Vamos utilizar la propiedad from para dejar saber de quién es el email. Si usted no especifica esta propiedad o no tiene un formato correcto el email fallará.

objJMai.From = " E-mail@Domain.com "

La propiedad SenderName no es necesaria y se puede prescindir de ella. Esta propiedad se puede utilizar para especificar el nombre del remitente.

objJMail.FromName = " nombre "

En la propiedad AddRecipient se debe especificar la dirección de la persona que desea que reciba el email. Ésta necesita ser una dirección de e-mail correctamente ajustada al formato, ( observa la carencia del = muestra )

objJMail.AddRecipient " Email@Domain.com "

La propiedad siguiente AddRecipientCC sirve para enviar copias a otras direcciones e-mail, puede enviar el e-mail a tantas direcciones como desee, introduciendo la característa tantas veces como a direcciones desee enviarla. Si la dirección no tiene un formato correcto el email fallará. Esta característica se puede omitir si no desea enviar copias.

objJMail.AddRecipientCC = "otra@Domain.com"

Si desea enviar copias ocultas deberá utilizar la propiedad AddRecipientBCC

objJMail.AddRecipientBCC = "otra@Domain.com"

En la propiedad Subject se debe especificar el asunto del E-mail

objJMail.Subject = "E mail desde la Web"

El componente de JMail se puede utilizar para enviar el correo en texto llano o formato del HTML.
Para enviar un email en formato de texto llano utilizaremos la propiedad Body. Si deseán enviar un email en formato del HTML puede utilizar la propiedad HTMLBody o añadir una línea especificando la propiedad ContentType ="text/html" .

'Contenido del email en texto llano

objJMail.Body = " hola. " & el vbCrLf & " esto es mi email en formato de texto llano "

'Contenido del email en Html existen dos posibilidades de especificarlo
'1)
objJMail.HTMLBody = "<body bgcolor='#C6D9EC' text='#000000'> "
'2)
msg.ContentType ="text/html"
msg.Body = "<body bgcolor='#C6D9EC' text='#000000'> "

'Para añadir más líneas utilizaremos la propiedad appendText, tanto sea texto llano como HTML
' vbCrLf , equivale a un retorno de carro (Intro)
objJMail.appendText "Enviado el " + CStr(now()) +" por :" & vbCrLf
msg.appendText " <p> <font face='Verdana, Arial, Helvetica, sans-serif' size='1'> el texto </font></p>"

La propiedad Priority dice el sistema la prioridad de este mensaje. Para esta propiedad se pueden especificar 3 valores.
5 - Prioridad Baja
3 - Prioridad normal
1 - Prioridad Alta
Si no se establece el valor por defecto es 3.

objJMail.Priority = 3

Necesitamos especificar la dirección del servidor del smtp que usted está utilizando para enviar el correo. Al estar en nuestro servidor deberían poner correo.nombre_desudominio
P.e: Si su dominio fuese elmio.com pondría correo.elmio.com

objJMail.Send (" correo.su_dominio ")

Finalmente una vez que se haya enviado el email debemos cerrar todas las variables creadas.

Set objJMail = nothing %>

Enviar a un amigo
* Su nombre:
* Su email:
* Email de su amigo:
Comentario: