Configurar Jmail

Para los que programan con ASP classic y desean enviar correos electrónicos utilizando la librería Jmail, tenemos que configurarla en nuestro servidor haciendo lo siguiente:

1.       Descargar jmail.dll de: http://www.serverwatch.com/img/downloads/JMailVBS.zip

2.       Copiar jmail.dll en “C:\Windows\SysWOW64” (para Windows 64 bits), para el caso de Windows NT  y 2000 en "C:\WINNT\System32".

3.       En consola hacer un regsvr32 jmail.dll (recordar que tienen que estar en la ruta antes mencionada).

4.       Entramos en “Administrador de Internet Information Services (IIS)” (en mi caso tengo IIS 7).

5.       Damos clic en el nombre del Sitio Web y clic en “Configuración Avanzada” y miramos el nombre que tenemos del “Grupo de aplicaciones”.

6.       Vamos a “Grupo de aplicaciones” en el Menú izquierdo y en ese apartado seleccionamos el nombre que vimos en el paso 5.

7.       Damos clic en “Configuración avanzada”, nos saldrá una ventana y la opción: “Habilitar aplicaciones de 32 bits: True” y “Aceptar”.

8.       Reiniciamos el Sitio Web y listo.

--------Código asp para envío de email utilizando Jmail--------

Dim emailEnvio : emailEnvio = "a@a.com" 'Email de envío

Dim nombrePersonaEnvio : nombrePersonaEnvio = "XXXX" 'Nombre de la persona de envío

Dim emailDestino : emailDestino = "a@a.com" 'Email de Destino

Dim subject : subject = "Prueba de Email" 'Asunto

Dim strBody : strBody = "Mensaje de Correo" 'Mensaje

Dim objJMail  : Set objJMail = Server.CreateObject("Jmail.Message")

'Usuario y clave de email de envío

objJMail.MailServerUserName = emailEnvio

objJMail.MailServerPassword = claveEmailEnvio 

objJMail.From = emailEnvio

'Nombre de quien envía el correo

objJMail.FromName = nombrePersonaEnvio

'Email destino

objJMail.AddRecipient emailDestino

'Asunto del email

objJMail.Subject = subject

'Cuerpo del email

objJMail.HTMLBody = strBody

'Nivel de importancia

objJMail.Priority = 3 

'Servidor de envío

objJMail.Send(SERVER_MAIL & ":" & PUERTO_EMAIL) 'Ponemos el servidor de correo y el puerto

'Cierro el objeto

Set objJMail = Nothing