Sección de códigos , trucos y ejemplos para visual basic

101 - Enviar Mail con el control Mapi

Este ejemplo muy simple muestra como enviar un Mail utilizando el componente MapiSession y MapiMessages.

Para agregar estos ocx se debe insertar desde Componentes bajo el nombre de Microsoft Mapi controls.

vista de la ventana de componentes de visual basic para insertar el control Mapi al proyecto

Para el ejemplo agregar estos 2 Ocx al formulario ( MapiSession y MapiMessages ) y también agregar los siguientes controles, mas o menos como muestra la imagen:

Ejemplo de como enviar mail en Visual Basic utilizando Mapi

Un TextBox llamado txtdestinatario ( Email de destino )
Un textbox llamado txtasunto ( El asunto del mail )
Un text txtMensaje
Un control Commondialog (para buscar un archivo adjunto)
2 Controles CommandButton. CmdAdjunto y CmdEnviar
Un control Label llamado LblAdjunto (para mostrar la ruta del archivo a enviar)

Código fuente en el formulario

Private Sub cmdAdjunto_Click() 'Para el archivo adjunto del Mail With CommonDialog1 .ShowOpen If .FileName = "" Then Exit Sub End If lblAdjunto = .FileName End With End Sub Private Sub CmdEnviar_Click() 'Borramos la ruta lblAdjunto = "" With MAPISession1 .NewSession = False .SignOn End With With MAPIMessages1 .SessionID = MAPISession1.SessionID ' Creamos el mensaje .Compose ' Asunto del mensaje .MsgSubject = txtasunto ' Mensaje .MsgNoteText = txtMensaje ' Nombre del Mail del destinatario .RecipDisplayName = txtdestinatario ' Archivo Adjunto If lblAdjunto <> "" Then .AttachmentPathName = lblAdjunto End If ' Enviamos el correo .Send False End With ' Cerramos la sesión abierta del Mapi MAPISession1.SignOff End Sub Private Sub Form_Load() Me.Caption = " Enviar Email con Mapi " cmdAdjunto.Caption = " Adjuntar archivo " CmdEnviar.Caption = " Enviar mail " End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb