¿Se ha instalado el componente Jmail, pero todavía no se puede utilizar?

1. Instalación

De manera similar al uso de otros componentes, el componente Jmail.dll debe estar instalado o registrado antes de usar el componente de correo Jmail. El método de registro específico es copiar primero el archivo Jmail.dll a un directorio determinado en el disco duro (como C:\Jmail\Jmail.dll) y luego ejecutar el comando Regsvr32 C:\Jmail\Jmail.dll.

2. Desinstalar

Desinstalar un componente es la acción opuesta a instalar un componente. Puede utilizar el parámetro /U para desinstalar el componente instalado y ejecutar el comando Regsvr32 /U Jmail. dll.

Enviar correo usando el componente Jmail

Nombre de la función: SendMail

Función: Enviar correo usando el componente Jmail

Parámetro: MailtoAddress --- -Dirección del destinatario

Nombre del correo -----Nombre del destinatario

Asunto -----Asunto

Cuerpo del correo -----Contenido de la carta

FromName -----Nombre del remitente

MailFrom -----Dirección del remitente

Prioridad -----Prioridad del mensaje'** ***** *****************************************

'Función nombre: SendMail

'Función: Enviar correo usando el componente Jmail

'Parámetro: MailtoAddress ----Dirección del destinatario

'MailtoName -----destinatario nombre

' Asunto -----asunto

' Cuerpo del correo -----contenido de la carta

' DeNombre -----Nombre del remitente

' MailFrom -----Dirección del remitente

' Prioridad -----Prioridad del mensaje

' ************ ***************************************

función EnviarMail(MailtoAddress ,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)

en caso de error, reanudar a continuación

Dim JMail

Set JMail=Server.CreateObject("JMail. Mensaje")

si error entonces

SendMail= "

err.clear

función de salida

end if

JMail.Charset="gb2312" 'Codificación de correo

JMail.silent=true

JMail.ContentType = "text/html" 'Formato de texto del correo

'JMail.ServerAddress=MailServer 'Servidor SMTP utilizado para enviar correos electrónicos

'Si el servidor requiere autenticación SMTP , también debe especificar los siguientes parámetros

JMail.MailServerUserName = MailServerUserName 'Nombre de usuario de inicio de sesión

JMail.MailServerPassWord = MailServerPassword 'Contraseña de inicio de sesión

JMail.MailDomain = MailDomain 'Nombre de dominio (si inicia sesión con un nombre de usuario como "nombre@dominio.com", especifique dominio.com

JMail.AddRecipient MailtoAddress,MailtoName 'Destinatario

JMail .Subject=Asunto 'Asunto

JMail.HMTLBody=MailBody 'Texto del correo (formato HTML)

JMail.Body

=MailBody 'Cuerpo del correo (formato de texto plano)

JMail.FromName=FromName 'Nombre del remitente

JMail.From = MailFrom 'Correo electrónico del remitente

JMail .Priority =Prioridad 'Nivel de correo electrónico, 1 es urgente, 3 es normal, 5 es nivel bajo

JMail.Send(MailServer)

SendMail =JMail.ErrorMessage

JMail.Close

Establecer JMail=nada

función final

Cómo utilizar el componente Jmail para enviar correos electrónicos

JMail es actualmente el más funcionales Componentes de envío de correo electrónico completos, estables y eficientes, algunos de los cuales están instalados en nuestros servidores espaciales de la serie Windows.

El siguiente es un ejemplo del uso de este componente para enviar correos electrónicos:

Ejemplo 1:

<%

Set msg = Server.CreateObject("JMail.Message ")

msg.silent = true

msg.Logging = true

msg.Charset = "gb2312"

msg.MailServerUserName = " sales@abc.com" 'Esta es su cuenta de inicio de sesión de correo electrónico. Cámbiela a su propia cuenta de inicio de sesión de correo electrónico cuando la utilice

msg.MailServerPassword = "56789" 'Esta es su contraseña de inicio de sesión de correo electrónico. Al utilizar Por favor cambie su contraseña de inicio de sesión de correo electrónico

msg.From = "sales@abc.com" 'Correo electrónico del remitente

msg.FromName = "XX empresa" 'Enviar correo electrónico Nombre de la persona

msg.AddRecipient "tech@abc.com" 'Correo electrónico del destinatario

msg.Subject = "Prueba de envío de Jmail" 'Asunto del correo electrónico

msg.Body = " ¡Este es un correo electrónico enviado por el componente Jmail!" 'Texto del correo

msg.Send ("mail.abc.com") 'Dirección del servidor SMTP

msg. close()

establecer mensaje = nada

%>

Ejemplo 2:

<%

nombre =request.form ("nombre")

email=request.form("email")

note=request.form("nota")

Establecer msg = Servidor .CreateObject("JMail.Message")

msg.silent = true

msg.Logging = true

msg.Charset = "gb2312 "

msg.MailServerUserName = "sales@abc.com" 'Esta es su cuenta de inicio de sesión de correo electrónico. Cámbiela por su propia cuenta de inicio de sesión de correo electrónico cuando la utilice

msg.MailServerPassword = " 56789" '. Esta es su contraseña de inicio de sesión de correo electrónico. Cámbiela por su propia contraseña de inicio de sesión de correo electrónico cuando la utilice

msg.From = email 'Correo electrónico del remitente

msg.FromName = name 'Nombre del remitente<. /p>

msg.AddRecipient "tech@abc.com" 'Correo electrónico del destinatario

msg.Subject = "Prueba de envío de Jmail" 'Asunto del correo electrónico

msg.Body = " Este es un correo electrónico ordenado por "&nombre&", el mensaje de pedido es "?e&"" 'Texto del correo electrónico

msg.Send ("mail.abc.com") ' Dirección del servidor SMTP

msg.close()

establecer msg = nada

%>

========= ======= ============================================ ==

'Un proceso de llamada a Jmail:

sub Jmail(email)

Dim JMa

il

Set jmail = Server.CreateObject("JMAIL.Message") 'Crea un objeto para enviar correo

jmail.silent = true 'Protege errores de excepción y devuelve FALSO y VERDADERO j

jmail.logging = true 'Habilitar el registro de correo electrónico

jmail.Charset = "GB2312" 'La codificación de texto del correo electrónico es el estándar nacional

jmail. ContentType = " text/html" 'El formato del correo electrónico es HTML

jmail.AddRecipient email 'La dirección del destinatario del correo electrónico

jmail.From = "heyitang@heyitang.net " 'Enviar correo electrónico La dirección de CORREO ELECTRÓNICO de la persona

jmail.MailServerUserName = "admin" 'Nombre de usuario requerido para iniciar sesión en el servidor de correo

jmail.MailServerPassword = "pa￥￥ word" 'Inicie sesión en el servidor de correo Contraseña requerida

jmail.Subject = "Hay una respuesta a su comentario en el foro Longing for Shenying" 'Título del correo electrónico

jmail .Body = mailbody 'Contenido del correo electrónico

'response.write mailbody

'jmail.Prority = 1 'Programa de emergencia de correo electrónico, 1 es el más rápido, 5 es el más lento, 3 es el valor predeterminado

jmail.Send("mail.heyitang.net") 'Realizar envío de correo electrónico (a través de la dirección del servidor de correo)

si se equivoca, entonces

'SendMail=err.description

'response.write err.description

err.clear

SendMail="OK"

else

SendMail="OK "

'response.write "ok"

end if

jmail.Close() 'Cerrar el objeto

Establecer JMail = Nada

end sub

'Al enviar una carta:

mailbody="Una carta de prueba"

llamar a jmail(heyitang@ heyitang.net )

'Bloquear envío es similar:

mailbody="Una carta de prueba"

'Enviar cartas a todos los usuarios en un bucle

if rs("useremail")<>"" entonces

email=rs("useremail")

llama a jmail (correo electrónico)

rs.movext

bucle

======================= ============== =

Nota importante:

Encontré muchos artículos que hablan sobre Jmail, pero no sobre la verificación Smtp.

Muchos correos electrónicos enviados por programas Asp son rebotados debido a problemas de verificación Smtp.

<%

Dim Jmail

Establecer Jmail=server.createobject("Jmail.Message")

Jmail.Charset = " gb2312"

Jmail.Silent = true

Jmail.Priority = 3

Jmail.MailServerUserName = "xyp@chinalabs.com" ' Reemplace esto con el suyo SMTP cuenta de autenticación

Jmail.MailServerPassword = "********" ' Complete aquí su contraseña de autenticación SMTP

Jmail.From = "xyp@chinalabs.com" ' Dirección de correo electrónico del remitente

Jmail.FromName = "Nombre del remitente" '

Jmail.Subject = "Asunto de la carta" '

Jmail.AddRecipient "abc @abc. com" 'Dirección del destinatario

Jmail.Body = mailbody 'El parámetro Mailbody es el texto de la carta

Jmail.Send("xxx.xyz.com") 'Rellene el remitente aquí El servidor de correo, como mail.8sea.com, debe corresponder a la información de autenticación SMTP

Establecer Jmail=nada