1
Abra Microsoft Access 2007 . Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic ". Seleccione el menú " Herramientas" y haga clic en "Referencias ". Marque la casilla al lado de " Microsoft Outlook (número de versión ) Biblioteca de objetos . " Haga clic en " Aceptar".
2
Copia y pega el código de abajo en su nuevo módulo. El código se lea la carpeta " Bandeja de entrada" en Microsoft Outlook de correo electrónico y mostrar el asunto y el cuerpo a través de un cuadro de mensaje.
ReadOutlookMail Sub Private ()
Set otlkApp = CreateObject ( " Outlook.Application " )
Set MAPISpace = otlkApp.GetNamespace ( " MAPI " )
Set otlkFolder = MAPISpace.GetDefaultFolder ( olFolderInbox )
For Each MailItem En
otlkFolder.Items
MsgBox " Asunto: " y MailItem.Subject y "Body :" & MailItem.body
Siguiente MailItem
End Sub
3
Pulse la tecla "F5 " para ejecutar la subrutina " ReadOutlookMail " .