Cómo extraer un cuadro de texto y enviarlo a un buzón de correo específico en un entorno VB

Programa de envío de correo

El proceso de procesamiento básico del programa de envío de correo es redactar un correo electrónico basado en la información ingresada por el usuario y luego usar el método Enviar del control de mensaje MAPI para envía el correo electrónico. Los pasos de programación son los siguientes:

1. Cree un nuevo proyecto VB.

2. Establezca la propiedad Título del formulario predeterminado Form1 en ""Enviar correo"".

3. Agregue el control MAPI a la caja de herramientas de VB.

4. Agregue un control de sesión MAPI MAPISession1 y un control de mensajes MAPI MAPIMessages1 a Form1.

5. Agregue tres controles de cuadro de texto a Form1, establezca sus propiedades de Nombre en txtSendTo, txtSubject y txtMessage respectivamente, y establezca la propiedad Multilínea de txtMessage en True. Estos tres controles de cuadro de texto se utilizarán para completar el destinatario, el asunto y el contenido del correo electrónico, respectivamente.

6. Agregue tres controles de etiqueta a Form1, establezca sus propiedades Título en ""Destinatario"", ""Asunto"" y ""Contenido"" respectivamente, y colóquelos Etiquete el control de cuadro de texto correspondiente en la ubicación adecuada.

7. Agregue un control de botón de comando a Form1 y establezca su propiedad Título y propiedad Nombre en ""Enviar"" y ""cmdSend"" respectivamente.

8. Agregue el siguiente código al evento Form_Load de Form1:

Private Sub Form_Load()

MAPISession1.SignOn

Fin Sub

9. Agregue el siguiente código al evento Form_Unload de Form1:

Private Sub Form_Unload(Cancel As Integer)

MAPISession1.SignOff

End Sub

10. Agregue el siguiente código al evento Click de cmdSend:

Private Sub cmdSend_Click()

With MAPIMessages1

.MsgIndex = -1

.RecipDisplayName = txtSendTo.Text

.MsgSubject = txtSubject.Text

.MsgNoteText = txtMessage.Text

.SessionID = MAPISession1.SessionID

.Enviar

Finalizar con

MsgBox ""¡Correo electrónico enviado! "", , ""Enviar correo electrónico""

Finalizar 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 aparece un mensaje de error en tiempo de ejecución, significa que el correo electrónico se envió correctamente al destino. De lo contrario, verifique si la dirección del destinatario ingresada es correcta y si el sistema de mensajería que se ejecuta en el sistema funciona correctamente.