Skip to main content

Como acessar rapidamente e abrir a pasta do resultado da pesquisa no Outlook?

Author: Sun Last Modified: 2025-06-04

No Outlook, você pode pesquisar e-mails com base em um texto específico usando a função de Pesquisa. No entanto, se estiver pesquisando em todos os itens do Outlook, não será possível encontrar rapidamente a pasta do resultado da pesquisa. Nesse caso, aqui estão alguns truques que podem ajudá-lo a acessar rapidamente e abrir a pasta do resultado da pesquisa.

Acessar e abrir a pasta do resultado da pesquisa com VBA

Acessar e abrir a pasta do resultado da pesquisa com o botão direito do mouse


Acessar e abrir a pasta do resultado da pesquisa com VBA

No Outlook, não há uma função interna que possa lidar com essa tarefa, exceto pelo código VBA.

Antes de usar o código VBA, você precisa exibir o nome da pasta nos resultados da pesquisa.

1. Clique em Visualizar > Adicionar Colunas.

doc go to open folder of searching result 1

2. Na caixa de diálogo Mostrar Colunas e na lista suspensa Selecionar colunas disponíveis de, selecione Todos os campos de e-mail, depois escolha Pasta na lista de colunas disponíveis.

doc go to open folder of searching result 2

3. Clique em Adicionar para adicionar Pastas à lista Mostrar essas colunas nesta ordem, depois clique no botão Mover para Cima para mover Pasta para o topo.

doc go to open folder of searching result 3

4. Clique em OK para fechar a caixa de diálogo. Agora, enquanto você estiver pesquisando e-mails, o nome da pasta será exibido nos resultados da pesquisa.

doc go to open folder of searching result 4

5. Agora pressione as teclas Alt + F11 para ativar a janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo para criar um novo Módulo.

6. Copie e cole o código abaixo no Módulo.

VBA: Ir para a pasta por um nome

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7. Pressione a tecla F5 para ativar o código, agora insira o nome da pasta que deseja acessar na caixa de diálogo.

doc go to open folder of searching result 5

8. Clique em OK, uma caixa de diálogo aparecerá para informar a localização da pasta, clique em Sim para ir diretamente para a pasta ou clique em Não para cancelar.

doc go to open folder of searching result 6

Acessar e abrir a pasta do resultado da pesquisa com o botão direito do mouse

Se você tiver Kutools para Outlook, um utilitário Abrir pasta será incorporado ao menu de clique com o botão direito, permitindo acessar rapidamente a pasta do e-mail selecionado, mesmo na lista de resultados da pesquisa.

 👉 O Kutools para Outlook agora tem uma versão gratuita, com 70+ recursos disponíveis gratuitamente por toda a vida. Faça o download da Versão Gratuita Agora.

Instale gratuitamente Kutools para Outlook e siga os passos abaixo:

Após a pesquisa, clique com o botão direito no resultado cuja pasta deseja abrir, selecione Abrir na Pasta (Kutools) no menu de contexto.

doc-click-open-folder

Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2