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

Author: Xiaoyang Last Modified: 2025-08-06

Você já tentou abrir uma pasta específica do Outlook a partir de um arquivo do Excel, como a pasta "Caixa de Entrada", a pasta "Contatos" ou qualquer outra pasta? Neste artigo, vou explicar como abrir uma pasta desejada do Outlook a partir de uma pasta de trabalho do Excel.

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

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

O seguinte código VBA pode ajudá-lo a abrir uma pasta específica do Outlook a partir de uma planilha do Excel. Por favor, siga estes passos:

1. No Excel, pressione e segure as teclas "Alt" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".

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

Código VBA: Abrir uma pasta específica do Outlook a partir do arquivo 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

Observação: No código acima, você pode alterar o "Caixa de Entrada" no script "Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)" para qualquer outro nome de pasta que deseja abrir.

3. Depois, clique em "Ferramentas" > "Referências" na janela "Microsoft Visual Basic for Applications" e, na caixa de diálogo "Referências-Projeto1" que aparece, marque a opção "Biblioteca de Objetos do Microsoft Outlook" na lista de "Referências Disponíveis". Veja a captura de tela:

check Microsoft Outlook Object Library option in References dialog box

4. Em seguida, clique em "OK" para fechar a caixa de diálogo e pressione a tecla "F5" para executar este código, e a pasta especificada do Outlook será aberta imediatamente.