Como encontrar uma pasta pelo nome no Outlook?

Por exemplo, se tiver criado muitas pastas de e-mail no Outlook, ao precisar abrir uma pasta pessoal específica, terá de expandir várias pastas até que ela apareça. É incómodo ter de expandir múltiplas pastas, uma a uma, apenas para aceder à pasta pretendida. Na verdade, se souber o nome da pasta, tudo se torna muito mais simples. Neste tutorial, mostramos-lhe um método prático para localizar uma pasta diretamente pelo seu nome no Outlook, evitando a necessidade de expandir pastas sucessivamente até encontrar a que procura.

Localizar pasta pelo nome no Outlook com código VBA

Procurar pasta pelo nome em todas as contas no Outlook com Kutools para Outlook

---

Localizar pasta pelo nome no Outlook com código VBA

Com o seguinte código VBA, pode localizar facilmente uma pasta específica pelo seu nome.

Nota: Lembre-se do nome da pasta para utilizar este código VBA.

1. Prima as teclas Alt + F11 no teclado para abrir a janela do Microsoft Visual Basic for Applications.

2. Em seguida, faça duplo clique em Project1 > Microsoft Outlook Object > ThisOutlookSession para abrir a janela Project1 – ThisOutlookSession. Veja a captura de ecrã:

3. Copie e cole o seguinte código VBA na janela Project1 – ThisOutlookSession.

VBA: localizar pasta pelo nome

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4. Em seguida, prima a tecla F5 no teclado para executar o código VBA.

5. Na caixa de diálogo Macros, clique no botão Executar.

6. Na caixa de diálogo Procurar Pasta que surge, introduza o nome da pasta na caixa de texto e, em seguida, clique no botão OK. Veja a captura de ecrã:

7. Em seguida, surge uma caixa de diálogo do Microsoft Outlook que mostra o caminho da pasta pretendida; clique depois no botão Sim.

8. A pasta de e-mail especificada será aberta imediatamente.

Nota: Este código VBA é compatível com o Outlook 2007, 2010 e 2013.

---

Procurar pasta pelo nome em todas as contas no Outlook com Kutools para Outlook

Se não estiver familiarizado com VBA, experimente a funcionalidade Kutools para Outlook Ir Para da, que lhe permite localizar e pesquisar pastas por nome ou caractere específico e aceder diretamente à pasta pretendida.

Instale gratuitamente oKutools para Outlook e siga os passos abaixo:

1. Clique em KUTOOLS PLUS > Pasta > Ir Para.

2. Na caixa de diálogo Ir Para, introduza o nome da pasta ou os caracteres específicos na barra de pesquisa; as pastas correspondentes serão listadas.

3. Faça duplo clique no nome da pasta para a qual pretende ir; esta será então aberta.

  Demonstração