1
Inicie 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 junto a " Perspectivas 12.0 Biblioteca de objetos de Microsoft " y haga clic
2
Escriba lo siguiente para crear un nuevo subprograma "OK . "
GetOutlookMail Sub Private ()
a continuación, pulse " Enter".
3
Escriba el siguiente para establecer sus variables:
Set outlookApp = CreateObject ( " Outlook.Application ")
Set MAPISpace = outlookApp.GetNamespace ( " MAPI " )
Set outlookFolder = MAPISpace.GetDefaultFolder ( olFolderInbox )
4
Escriba lo siguiente para mostrar Pronóstico:
outlookFolder.Display
5
Escriba lo siguiente para recorrer todos los elementos de correo electrónico y mostrar el tema en un cuadro de mensaje :
For Each MyMail en outlookFolder.Items
MsgBox myMail.Subject
Siguiente MyMail
Press "F5 " para ejecutar la subrutina .