Skip to main content

Como encontrar uma pasta (caminho completo da pasta) pelo nome da pasta no Outlook?

Author: Kelly Last Modified: 2025-06-04

Por exemplo, no painel de navegação, você move uma pasta e a solta acidentalmente em uma pasta desconhecida no Outlook, e deseja restaurar essa pasta, mas não consegue encontrá-la imediatamente. Infelizmente, o Outlook não suporta o recurso "Pesquisar" como aquele presente no Microsoft Word ou Excel. Não se preocupe! Você pode aplicar uma macro VBA para resolver esse problema no Outlook.


Encontrar pasta (caminho completo da pasta) pelo nome da pasta com VBA

Por favor, siga os passos abaixo para pesquisar pastas pelos nomes das pastas com VBA no Outlook.

1. Pressione as teclas "Alt" + "F11" juntas para abrir a janela "Microsoft Visual Basic for Applications".

2. Clique em "Inserir" > "Módulo", e depois cole o código VBA abaixo na nova janela do Módulo.

VBA: Pesquisar e abrir pastas pelo nome da pasta no Outlook

Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean

Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True

Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders

  Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False

  sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName

  m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))

  Set oFolders = Application.Session.Folders
LoopFolders oFolders

  If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean

If SpeedUp = False Then DoEvents

  For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If

    If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub

3. Pressione a tecla "F5" ou clique no botão "Executar" para executar este VBA.

4. Na caixa de diálogo "Pesquisar pasta" que aparece, digite o nome da pasta específica que você deseja pesquisar e clique no botão "OK".
doc-search-by-folder-name-1
Observação: Este VBA suporta o caractere curinga asterisco. Por exemplo, você pode digitar tes* para encontrar todas as pastas cujo nome comece com tes.

5. Agora, uma caixa de diálogo aparece e mostra o caminho da pasta da pasta encontrada. Se você precisar abrir a pasta encontrada, clique no botão "Sim".
doc-search-by-folder-name-2

E agora a pasta encontrada está sendo aberta no painel de navegação, conforme mostrado na captura de tela abaixo:
doc-search-by-folder-name-3

Observação: Se houver mais de uma pasta com o nome especificado, este VBA poderá encontrar e abrir apenas uma pasta.

Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS

Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.
doc ai email handle

Este recurso suporta:

  • Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
  • Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
  • Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
  • Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
  • Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
  • Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.

Este recurso suporta:

  • Respostas inteligentes de e-mail
  • Conteúdo otimizado
  • Rascunhos baseados em palavras-chave
  • Extensão inteligente de conteúdo
  • Resumo de e-mails
  • Tradução multilíngue

O melhor de tudo é que este recurso é completamente grátis para sempre! Não espere — baixe agora o Assistente de E-mail AI e aproveite


Pesquise a pasta pelo nome da pasta com uma ferramenta incrível

Se você tiver o "Kutools para Outlook" instalado, pode aplicar seu recurso "Abrir Pasta" para encontrar rapidamente todas as pastas por um determinado nome de pasta e também abrir facilmente qualquer pasta encontrada.

Desbloqueie a máxima eficiência de e-mail com o Kutools para Outlook! Acesse 70 recursos poderosos totalmente grátis, para sempre. Faça o download da Versão Gratuita Agora!

1. Clique em "Kutools Plus" > "Abrir Pasta" para ativar este recurso.
doc-search-by-folder-name-4

2. Na caixa de diálogo "Abrir Pasta", digite o nome da pasta específica na caixa "Pesquisar", selecione uma pasta nos resultados da pesquisa e clique no botão "OK".
doc-search-by-folder-name-5

Agora, a pasta especificada com o nome da pasta é encontrada e aberta imediatamente.
doc-search-by-folder-name-6


Artigos relacionados:


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