¿Cómo enviar correos electrónicos automáticamente después de la confirmación en la página web?

<%

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

jmail.silent = true 'Escudo excepciones Error, devuelve valores FALSO y VERDADERO j

Jmail.logging = true 'Habilitar registro de correo

jmail.Charset = "GB2312" 'La codificación de texto del correo es la 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 = "Correo electrónico del remitente" 'La dirección de CORREO ELECTRÓNICO del remitente

jmail.MailServerUserName = "Nombre de usuario del correo electrónico" 'El nombre de usuario requerido para iniciar sesión en el servidor de correo

jmail.MailServerPassword = " Contraseña del correo electrónico" 'La contraseña requerida 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.Send("Dirección del servidor") 'Realizar el envío de correo electrónico (a través de la dirección del servidor de correo)

jmail. Close() 'Cerrar el objeto

%>

Puedes escribir esto en sendmail.asp:

< %@ Language=VBScript %>

<%

dim strT,strT1,strSend

strt=request.form("Nombre")

si trim(strt)<>"" entonces

strSend=strSend & "Nombre:" & strt & vbcrlf

finalizar si

strt= request.form("Correo electrónico")

if trim(strt)<>"" entonces

strEnviar =strEnviar & "Correo electrónico:" & strt & vbcrlf

end if

strt=request.form("NombreEmpresa")

if trim(strt )<>"" entonces

strSend=strSend & "Empresa:" & strt & vbcrlf

end if

strt=request.form("Industria" )

if trim(strt)<>"" entonces

strSend=strSend & "ocupación:" & strt & vbcrlf

end if

strt=request.form("Teléfono")

if trim(strt)&

lt;>"" entonces

strSend=strEnviar & "Teléfono:" & strt & vbcrlf

fin si

strt=request.form("Calle" )

if trim(strt)<>"" entonces

strSend=strSend & "Dirección:" & strt & vbcrlf

end if

strt=request.form("Código Postal")

si trim(strt)<>"" entonces

strSend=strEnviar & "Código Postal:" & strt & vbcrlf

finalizar si

strt=request.form("Asunto")

si trim(strt)<>"" entonces

strEnviar =strEnviar & "Asunto del mensaje:" & strt & vbcrlf

end if

strt=request.form("Contenido")

if trim(strt) <>"" entonces

strSend=strSend & "Contenido del mensaje:" & vbcrlf & strt & vbcrlf

end if

set mail = server.CreateObject ( "CDONTS.NewMail")

mail.To = "Dirección del buzón del destinatario"

mail.From = "Dirección del buzón del remitente (se puede completar de manera informal)"

mail.Subject = "Title"

mail.Body = strSend

mail.Send

%>

Antes de tener Envié un código de correo electrónico JMAIL simple por un tiempo. Hoy haré un comentario específico sobre este código, agregaré otros dos formatos de código 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" 'Enviar servidor de correo electrónico

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" 'Dirección de correo electrónico del remitente del correo electrónico

jmail.Prior

ity = 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 ciego

jmail.AddRecipientCC Email 'La dirección del carbón copiar destinatario

jmail.Execute() 'Ejecutar envío de correo electrónico

jmail.Close 'Cerrar el objeto de correo electrónico

%>

w3 Rediseño del componente Jmail4.3 Su estructura interna ha cambiado: use 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 correo

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

mail.logging = true 'Habilita el registro de correo

jmail.Charset = "GB2312" 'La codificación de texto del el correo 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 = "Correo electrónico del remitente" 'La dirección de CORREO ELECTRÓNICO del remitente

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

jmail.MailServerPassword = "Contraseña de correo electrónico" 'Nombre de usuario requerido para iniciar sesión en el servidor de correo Contraseña requerida

jmail.Subject = "Asunto del correo" 'El título del correo electrónico

jmail.Body = "Cuerpo del correo" 'El contenido del correo electrónico

jmail = 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") 'Ejecutar envío de correo electrónico (a través de la dirección del servidor de correo)

jmail.Close() 'Cerrar el objeto

%>

Hablemos del método de envío de mensajes utilizando el componente CDONTS propio de Microsoft:

<%

Set 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 se enviará

m" 'Dirección del destinatario

cdomail.Body = "Cuerpo del correo" '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!

Escribimos programas y generalmente lo hacemos. debe modularizarse 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

'Dirección de correo: 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

'Remitente: correo electrónico del remitente dirección

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 generará 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 de 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 envió el correo electrónico

jmail.AddRecipient Email 'El destinatario del correo electrónico

jmail.SenderName = sender 'El nombre del remitente del correo electrónico

jmail.Sender = fromer '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 se bloqueado aquí Si lo necesita, puede restaurarlo aquí

'jmail.AddRecipientBCC Email 'La dirección del destinatario ciego

'jmail.AddRecipientCC Email 'La dirección del carbón. copiar

jmail.Execute() 'Ejecutar envío de correo

jmail.Close 'Cerrar el objeto de correo

End Sub

' Ejemplo de llamada a este Sub

Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer

strSubject = "Este es un correo electrónico de prueba enviado mediante JMAIL"

strContent = "JMail ¡La prueba de envío del componente fue exitosa! "

strEmail = "runbing@eyou.com"

strFrom

er = "runbing@eyou.com"

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. ¡No dudes en darme algunos consejos!