Hace algún tiempo, envié un código de correo electrónico JMAIL simple. Hoy haré un comentario específico sobre este código, agregaré otros dos códigos de formato y daré algunos ejemplos simples:
El primero es el código central de jmail.smtpmail:
<%
Establecer jmail = Server.CreateObject("JMAIL.SMTPMail") 'Crear un objeto JMAIL
jmail.silent = true 'JMAIL no arrojará errores de excepción y los valores devueltos son FALSO y VERDADERO
jmail.logging = true 'Habilitar registros de uso
jmail.Charset = "GB2312" 'El código del texto del correo electrónico es chino simplificado
jmail.ContentType = "text/html" 'El formato del correo electrónico es HTML
jmail.ServerAddress = "Dirección del servidor" 'El servidor que envía correos electrónicos
jmail.AddRecipient Email 'El destinatario del correo electrónico
jmail.SenderName = "SenderName" 'El nombre del remitente del correo electrónico
jmail.Sender = "Dirección de correo electrónico" 'La dirección de correo electrónico del remitente del correo electrónico
jmail.Priority = 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.Subject = "Asunto del correo" 'El título del correo electrónico
jmail.Body = "Cuerpo del correo" 'El contenido del correo electrónico
jmail.AddRecipientBCC Email 'La dirección del destinatario del correo electrónico ciego
jmail.AddRecipientCC Email 'La dirección de la persona que copia el correo electrónico
jmail.Execute() 'Ejecutar envío de correo electrónico
jmail.Close 'Cerrar el objeto de correo
%>
w3 El componente Jmail4.3 ha rediseñado su estructura interna: utiliza el objeto Mensaje en lugar del objeto único original Jmail.smtpmail para enviar correos electrónicos. Algunos métodos requieren autenticación (como 163, yahoo, etc.), que puede resolverse mediante el. siguiente método:
<%
Set jmail = Server.CreateObject("JMAIL.Message") 'Crea un objeto para enviar correos electrónicos
jmail.silent = true 'Protege errores de excepción y devuelve valores FALSO y VERDADERO j
mail.logging = true 'Habilitar el registro de correo
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 formato HTML
jmail.AddRecipient Email 'Dirección del destinatario del correo electrónico
jmail.From = "Correo electrónico del remitente" 'Dirección de correo electrónico del remitente
jmail.MailServerUserName = "Nombre de usuario del correo electrónico" 'Nombre de usuario necesario para iniciar sesión en el servidor de correo
jmail.MailServerPassword = "Contraseña de correo electrónico" 'Contraseña necesaria para iniciar sesión en el servidor de correo
jmail.Subject = "Asunto del correo" 'El título del correo electrónico
jmail.Body = "Cuerpo del correo" 'El contenido del correo electrónico
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("Dirección del servidor") 'Realizar envío de correo electrónico (a través de la dirección del servidor de correo)
jmail.Close() 'Cerrar el objeto
%>
Hablemos de cómo enviar mensajes usando el componente CDONTS propio de Microsoft:
<%
Establecer cdomail = Server.CreateObject("CDONTS.NewMail") 'Crear un objeto de correo
cdomail.Subject = "Asunto del correo" 'Título del correo
cdomail.From = "Correo del remitente" 'Dirección del remitente
cdomail.To = "El correo electrónico será de" 'Dirección del destinatario
cdomail.Body = "Cuerpo del correo" 'El contenido del correo electrónico
cdomail.Send 'Ejecutar envío
%>
Este método es el más sencillo para enviar correos electrónicos, pero también trae ciertos problemas, es decir, ¡pocos servidores abrirán este servicio!
Cuando escribimos programas, normalmente decimos que el código debe estar modularizado para facilitar el mantenimiento y la portabilidad. Por lo tanto, escribiré este correo electrónico aquí como una subrutina, que se puede llamar directamente al llamar (por supuesto, si está dispuesto a escribirlo como una función, también es posible, esto depende principalmente de sus intereses personales):
<%
'Descripción del parámetro
'Asunto: Título del correo electrónico
'MailAddress: La dirección del servidor de envío, como smtp.163.com
'Correo electrónico: dirección de correo electrónico del destinatario
'Remitente: nombre del remitente
'Contenido: contenido del correo electrónico
'Fromer: dirección de correo electrónico del remitente
Sub SendAction(asunto, dirección de correo, correo electrónico, remitente, contenido, remitente)
Establecer jmail = Server.CreateObject("JMAIL.SMTPMail") 'Crear un objeto JMAIL
jmail.silent = true 'JMAIL no arrojará errores de excepción y los valores devueltos son FALSO y VERDADERO
jmail.logging = true 'Habilitar registros de uso
jmail.Charset = "GB2312" 'El código del texto del correo electrónico es chino simplificado
jmail.ContentType = "text/html" 'El formato del correo electrónico es HTML
jmail.ServerAddress = dirección de correo 'El servidor que envía correo
jmail.AddRecipient Email 'El destinatario del correo electrónico
jmail.SenderName = remitente 'El nombre del remitente del correo electrónico
jmail.Sender = fromer 'La dirección de correo electrónico del remitente del correo electrónico
jmail.Priority = 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.Subject = asunto 'El título del correo electrónico
jmail.Body = contenido 'El contenido del correo electrónico
'Dado que BCC y CC no se utilizan, estas dos oraciones están bloqueadas aquí. Si es necesario, puede restaurarlas aquí.
'jmail.AddRecipientBCC Email 'La dirección del destinatario del correo electrónico ciego
'jmail.AddRecipientCC Email 'La dirección del correo electrónico copia al carbón
jmail.Execute() 'Ejecutar envío de correo electrónico
jmail.Close 'Cerrar el objeto de correo
Subtítulo final
'Ejemplo de cómo llamar a este Sub
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "Este es un correo electrónico de prueba enviado mediante JMAIL"
strContent = "¡El componente JMail envió la prueba exitosamente!"
strEmail = " [email protected] "
strFromer = " [email protected] "
strMailAddress = "mail.ubbcn.com"
Llamar a SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
%>
Lo anterior es mi opinión aproximada sobre el código para enviar correos electrónicos. ¡Me gustaría agradecerle por su consejo!