Como aceder e abrir rapidamente a pasta com os resultados da pesquisa no Outlook?

No Outlook, pode pesquisar e-mails com base num texto específico utilizando a função de Pesquisa. Contudo, ao pesquisar em Todos os Itens do Outlook, não conseguirá identificar rapidamente a pasta onde se encontra o resultado da pesquisa. Para o ajudar, aqui ficam alguns truques que lhe permitem aceder e abrir rapidamente essa pasta.

Aceder e abrir a pasta do resultado da pesquisa com VBA

Aceder e abrir a pasta do resultado da pesquisa com clique direito

---

Aceder e abrir a pasta do resultado da pesquisa com VBA

No Outlook, não existe nenhuma função incorporada capaz de realizar esta tarefa, exceto recorrendo a código VBA.

Antes de utilizar o código VBA, certifique-se de que a coluna «Nome da Pasta» está visível nos resultados da pesquisa.

1. Clique em Ver > Adicionar Múltiplas Colunas.

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

3. Clique em Adicionar para adicionar Nas Pastas à lista Mostrar estas colunas por esta ordem, depois clique no botão Mover para Cima para mover Na Pasta para o topo.

4. Clique em OK para fechar a caixa de diálogo. Agora, ao pesquisar e-mails, a coluna Nome da Pasta será exibida nos resultados da pesquisa.

5. Prima agora as teclas Alt + F11 para abrir a janela Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo para criar um novo módulo.

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

VBA: Abrir pasta específica do Outlook por 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. Prima a tecla F5 para executar o código e, na caixa de diálogo que aparecer, introduza o nome da pasta para a qual pretende navegar.

8. Clique em OK. Surge uma caixa de diálogo a indicar-lhe a localização da pasta; clique em Sim para aceder diretamente à pasta ou clique em Não para cancelar.

---

Aceder e abrir a pasta do resultado da pesquisa com clique direito

Se tiver o Kutools para Outlook instalado, será incorporado um utilitário «Abrir Pasta» no menu de clique direito, permitindo-lhe aceder rapidamente à pasta do e-mail selecionado — mesmo na lista de resultados da pesquisa.

Instale gratuitamente oKutools para Outlook e siga os passos abaixo:

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