Como abrir uma pasta específica do Outlook diretamente a partir do Excel?

Já alguma vez tentou abrir uma pasta específica do Outlook diretamente a partir de um ficheiro do Excel — como, por exemplo, a pasta «Caixa de Entrada», a pasta «Contactos» ou qualquer outra? Neste artigo, explico-lhe como aceder à pasta do Outlook que pretende diretamente a partir de uma Pasta de Trabalho do Excel.

Abrir uma pasta específica do Outlook a partir de um ficheiro do Excel com código VBA

---

Abrir uma pasta específica do Outlook a partir de um ficheiro do Excel com código VBA

O código VBA seguinte permite-lhe abrir uma pasta específica do Outlook diretamente a partir de uma folha de cálculo do Excel. Siga estes passos:

1. No Excel, prima as teclas «Alt» + «F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole a macro seguinte na «Janela do Módulo».

Código VBA: Abrir uma pasta específica do Outlook a partir de um ficheiro do 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: No código acima, pode substituir «Caixa de Entrada» no script «Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)» pelo nome de qualquer outra pasta que deseje abrir.

3. Em seguida, clique em «Ferramentas» > «Referências» na janela «Microsoft Visual Basic for Applications» e, na caixa de diálogo «Referências – Project1» que surge, selecione a opção «Microsoft Outlook Object Library» na lista «Referências Disponíveis». Veja a captura de ecrã:

4. Depois, clique em «OK» para fechar a caixa de diálogo e prima a tecla «F5» para executar este código; a pasta especificada do Outlook será aberta imediatamente.