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

155 - Mappi desde Word

Ejemplo que muestra como enviar correo utilizando el objeto Mappi session y Mappi Message desde un documento de Word

Para enviar un Mail desde Word o como cualquier otra aplicación como Excel por ejemplo, se debe incluir la referencia al control Ocx Microsoft Mappi.

Esto lo podés hacer desde el menú Referencias del editor de Vba.

Vista de la ventana de Referencias del editor de visual basic para word que permite incluir el ocx Mappi

Nota: si no lo encontrás en la lista, presiona el botón que dice Examinar, luego selecciona desde el filtro de extenciones " Archivos OCX " y busca el archivo llamado MSMappi.ocx

Una ves con la referencia, en el documento coloca los siguientes controls como muestra este gráfico:

vista del documento de word con los controles para enviar el mail

Nota: El cuadro de controles lo podés acceder desde el menú Ver - Opción Barra de Herramientas y seleccionar Cuadro de controles, el cuadro sería (en la versión 97 ) el siguiente:

cuadro de controles de vba

Los controles TextBox, en este caso se llaman TextBox1 ( para el destinatario). TextBox2 para el asunto y TextBox3 para el Mensaje

Por último doble Click en el CommandButton para abrir la ventana de código del editor de Vba y pegar el siguiente código fuente:

Private Sub CommandButton1_Click() 'Variables para utilizar los objetos del MAppi Dim o_mapi_session As MSMAPI.MAPISession Dim o_mapi_message As MSMAPI.MAPIMessages On Error GoTo errSub Set o_mapi_session = New MSMAPI.MAPISession With o_mapi_session .LogonUI = False ' si requiere autentificación '################################3 '.username = "Nombre de usuario" '.password = "El password" .SignOn End With 'Nueva instancia del mapi Set o_mapi_message = New MSMAPI.MAPIMessages With o_mapi_message .SessionID = o_mapi_session.SessionID .Compose 'Comienza a crear el correo .RecipIndex = 0 '.RecipDisplayName = opcional 'Dirección del destinatario .RecipAddress = TextBox1 .RecipType = mapToList .AddressResolveUI = False .MsgSubject = TextBox2 'Asunto del mail .MsgNoteText = TextBox3 'Cuerpo del mensaje .Send False 'Envía el mail End With o_mapi_session.SignOff Exit Sub errSub: MsgBox Err.Number & " Descripción del error: " & Err.Description Exit Sub End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb