¿Cómo abrir una carpeta específica de Outlook desde Excel?

¿Ha intentado alguna vez abrir una carpeta específica de Outlook, como la Bandeja de entrada, Contactos o cualquier otra, directamente desde un archivo de Excel? En este artículo, le explicaré cómo acceder desde un libro de Excel a la carpeta de Outlook que necesite.

Abrir una carpeta específica de Outlook desde un archivo de Excel con código VBA

---

Abrir una carpeta específica de Outlook desde un archivo de Excel con código VBA

El siguiente código VBA le permite abrir una carpeta específica de Outlook directamente desde una hoja de cálculo de Excel. Siga estos sencillos pasos:

1. En Excel, mantenga pulsadas las teclas «Alt» + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en «Insertar» > «Módulo» y pegue la siguiente macro en la ventana del módulo.

Código VBA: Abrir una carpeta específica de Outlook desde un archivo de Excel:

Sub OpenOutlookFolder()
    Dim xOutlookApp As Outlook.Application
    Dim xNameSpace As Outlook.Namespace
    Dim xFolder As Outlook.Folder
    Dim xFolderType As OlDefaultFolders
    On Error Resume Next
    Set xOutlookApp = New Outlook.Application
    Set xNameSpace = xOutlookApp.Session
    Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
    xFolder.Display
    Set xFolder = Nothing
    Set xNameSpace = Nothing
    Set xOutlookApp = Nothing
    Exit Sub
End Sub

Nota: En el código anterior, puede sustituir «Bandeja de entrada» en la instrucción «Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)» por el nombre de cualquier otra carpeta que desee abrir.

3. A continuación, en la ventana de «Microsoft Visual Basic para Aplicaciones», haga clic en **Herramientas** > **Referencias** y, en el cuadro de diálogo emergente **Referencias: Proyecto1**, active la opción **Microsoft Outlook Object Library** en la lista **Referencias disponibles**. Vea la captura de pantalla:

4. A continuación, haga clic en «Aceptar» para cerrar el cuadro de diálogo y pulse la tecla «F5» para ejecutar este código; la carpeta especificada de Outlook se abrirá inmediatamente.