¿Cómo utilizar VB para enviar correos electrónicos directamente?
Autor: Fuente: Yesky
Para algunas aplicaciones que realizan tareas especiales, enviar y recibir correos electrónicos es una función muy útil . Por ejemplo, si una herramienta de software que monitorea el uso de recursos de un servidor de red tiene la función de enviar correos electrónicos automáticamente, cuando descubre que el uso de recursos del servidor está cerca de un estado crítico preestablecido, puede enviar un correo electrónico al Administrador del sistema: Correos electrónicos de alerta para que los administradores del sistema puedan tomar medidas oportunas para evitar incidentes importantes. En Visual Basic, las aplicaciones pueden llamar a MAPI (Interfaz de programación de aplicaciones de mensajería) de Microsoft para implementar la función de enviar y recibir correos electrónicos. En este artículo, el autor utilizará un ejemplo simple para presentarle el método de programación para realizar la función de enviar y recibir correos electrónicos en un programa VB.
Al programar un programa VB con la función de enviar y recibir correos electrónicos, debe usar Visual Basic 4.0 o superior, porque solo los dos controles centrales que vienen con Visual Basic 4.0 o superior pueden realizar el envío y la recepción de correos electrónicos. Función: control de sesión MAPI y control de mensajes MAPI. El control de sesión MAPI se usa para establecer y controlar sesiones de Microsoft Mail y el control de mensajes MAPI se usa para crear, enviar y recibir mensajes de correo electrónico. Además, el programa debe ejecutarse en un entorno que utilice un sistema de mensajería compatible con MAPI (como Microsoft Exchange, Microsoft Mail, Outlook, etc.).
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 Control personalizado en el elemento del menú Herramientas en la barra de menú de VB, abra el cuadro de diálogo "Control personalizado", seleccione el elemento de la tabla "Control MAPI de Microsoft" en el cuadro de lista "Controles disponibles" y luego presione el botón de comando "Aceptar" y presione el botón de comando "Aceptar" para salir del cuadro de diálogo. Posteriormente, se agregarán dos nuevos íconos a la caja de herramientas, para el control de sesión MAPI y el control de mensajes MAPI.
A continuación, tomaré dos programas VB simples como ejemplos para presentar los métodos de programación para enviar y recibir correos electrónicos respectivamente.
Remitente de correo electrónico
El proceso básico de un remitente de correo electrónico es redactar un correo electrónico según la entrada del usuario y luego utilizar el método Enviar del control de mensajes MAPI para enviar el correo electrónico. Los pasos de programación son los siguientes:
1. Cree un nuevo proyecto VB.
2. Establezca el atributo de título del formulario predeterminado Form1 en "Enviar correo".
3. Agregue controles MAPI en la caja de herramientas de VB.
4. Agregue un control de sesión MAPI MAPISession1 y un control de mensajes MAPI MAPIMessages1 en Form1. Agregue tres controles de cuadro de texto a Form1, establezca sus propiedades de nombre en txtSendTo, txtSubject, txtMessage, establezca el formulario predeterminado de Form1 en "Enviar correo", txtMessage y establezca la propiedad multilínea de txtMessage en True. 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 "Destinatario", "Asunto" y "Contenido" y colóquelos en las posiciones correspondientes para etiquetar el control de 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()
Evento MAPISession1.Unload:
Private Sub Form_Unload(Cancelar como entero)
MAPISession1.Form_Unload(Cancelar como entero)