Cómo enviar correos electrónicos en segundo plano del programa VB6.0
Antes de comenzar a programar, primero debe agregar el control MAPI a la caja de herramientas de VB. La operación específica es: seleccione el comando Piezas en el elemento del menú Herramientas en la barra de menú de VB, abra el cuadro de diálogo Controles externos, seleccione el elemento "Controles Microsoft MAPI" en el cuadro de lista y luego confirme. Después de esto, se agregarán dos nuevos íconos a la caja de herramientas, uno para el control de sesión MAPI y otro para el control de mensajes MAPI.
Remitente de correo electrónico
El flujo básico de un remitente de correo electrónico es redactar un correo electrónico basándose en la entrada del usuario y luego enviar el mensaje utilizando el método Enviar de MAPI. control de mensajes. Los pasos de programación son los siguientes:
1. Cree un nuevo proyecto VB.
2. Establezca la propiedad de título del formulario predeterminado Form1 en "Enviar correo".
3. Agregue controles MAPI en la caja de herramientas de VB.
4. Agregue el control de sesión MAPI MAPISession1 y el control de mensajes MAPI MAPIMessages1 en Form1.
5. Agregue tres controles de cuadro de texto en el Formulario 1, establezca sus propiedades de nombre en txtSendTo, txtSubject, txtMessage y establezca la propiedad txtMessage en "Enviar correo", txtMessage y establezca txtMessage La propiedad multilínea es establecido en Verdadero. Estos tres controles de cuadro de texto se utilizarán para completar los destinatarios, el asunto y el contenido del correo electrónico, respectivamente.
6. Agregue tres controles de etiqueta en Form1, establezca sus propiedades de título en "Para" (destinatario), "Asunto" (tema) y "Contenido" (contenido) y establezca su Ubicación en el lugar correcto. posición del control del cuadro de texto correspondiente.
7. Agregue un control de botón de comando en Form1 y establezca su propiedad Título y propiedad Nombre en "Enviar" y "cmdSend" respectivamente.
8. Agregue el siguiente código en el evento Form_Load de Form1:
Private Sub Form_Load()
MAPISession1.SignOn
End Sub
9. Agregue el siguiente código en el evento Form_Unload de Form1:
10.Evento de descarga:
Private Sub Form_Unload(Cancel As Integer)
p>
MAPISession1.SignOff
End Sub
10.
.MsgSubject = txtSubject.Text
.MsgNoteText = txtMessage .Text
.SessionID = MAPISession1.SessionID
.Send
Fin con
MsgBox "¡Se ha enviado el correo electrónico!" , "Enviar correo "
.SessionID = MAPISession1.SessionID
.Enviar
Finalizar con
MsgBox " ¡Correo electrónico enviado!, " Enviar correo"
End Sub
Después de completar el destinatario, el asunto y el contenido del correo electrónico, presione el botón de comando "Enviar". Si no se produce ningún error de tiempo de ejecución, el correo electrónico se envió correctamente. al destino; de lo contrario, verifique si la dirección del destinatario está completada con precisión y si el sistema de mensajería que se ejecuta en el sistema es normal
Resumen
Analizando el código del programa anterior. , podemos enviar y recibir mensajes El proceso básico del programa VB para funciones de correo electrónico se resume a continuación:
1. Utilice el control de sesión MAPI para establecer una sesión de correo. 2. Utilice el control de mensajes MAPI para el procesamiento de correo.
3. Utilice el control de sesión MAPI nuevamente para liberar la sesión de correo.
Dado que los dos programas VB anteriores son solo ejemplos simples, Se omiten algunos detalles que no están estrechamente relacionados con el tema de este artículo, como el manejo de errores. Al escribir un programa de utilidad, debe considerar agregar estos detalles para garantizar la confiabilidad del programa. ------- ---------- ---- ------ --
Cabe señalar que al utilizar el control MAPI para enviar correos electrónicos, ahora debe configurar una cuenta de correo en OUTLOOK; de lo contrario, no podrá enviar correos electrónicos.
--------- ---------- ---------- --