VBA: Cómo conectarse a puntos de vista y leer el correo electrónico

las aplicaciones de Microsoft Office pueden comunicarse fácilmente mediante el uso de Visual Basic para Aplicaciones. Puede conectarse a Outlook desde cualquier otra aplicación de Office como Excel mediante el uso de la biblioteca de objetos de Microsoft Outlook. La biblioteca le da acceso al espacio de nombres necesario para comunicarse a Outlook. Una vez que realice la conexión se puede acceder a los mensajes de correo electrónico y guardar los datos en un formato diferente, como Excel.

Instrucciones

1 Lanzamiento de Microsoft Office Excel, haga clic en la pestaña "desarrolladores", y haga clic en "Visual Basic". Haga clic en el menú "Insertar" y haga clic en "Módulo" para insertar un nuevo módulo de código VBA.

2 Haga clic en el menú "Herramientas" y haga clic en "Referencias". Marque la casilla junto a "Microsoft Outlook <número de versión> biblioteca de objetos" y haga clic en "Aceptar".

3 Crear un nuevo procedimiento sub escribiendo el siguiente código:

Private Sub connectToOutlook ()

4 Crear las variables de objeto de Outlook que va a utilizar para leer mensajes de correo electrónico.

Establecer olkApp = CreateObject ( "Outlook.Application")

Establecer olkNSpace = olkApp.GetNamespace ( "MAPI")

Establecer olkFolder = olkNSpace.GetDefaultFolder (olFolderInbox)

5 Agregue el código siguiente para recorrer todos los mensajes de correo electrónico en la carpeta Bandeja de entrada de Outlook y mostrarlos a través de la ventana Inmediato:

Para cada MAILMSG En olkFolder.Items

Debug.Print mailMsg.Subject

Debug.Print mailMsg.Body

Siguiente MAILMSG

6 Completar el procedimiento mediante la adición de "End Sub". Pulse la tecla "Ctrl" y "G" para abrir la ventana Inmediato y presione la tecla "F5" para ejecutar el código.