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

No Outlook, você pode pesquisar e-mails com base no texto específico com a função Pesquisar. Mas, se você estiver pesquisando em todos os itens do Outlook, não poderá encontrar rapidamente a pasta do resultado da pesquisa. Nesse caso, aqui tenho alguns truques que podem ajudá-lo a ir rapidamente e abrir a pasta do resultado da pesquisa.

Vá para e abra a pasta do resultado da pesquisa com o VBA

Acesse e abra a pasta do resultado da pesquisa com o botão direito do mouse

Vá para e abra a pasta do resultado da pesquisa com o VBA

No Outlook, não há nenhuma função interna que possa lidar com esse trabalho, exceto o código VBA.

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

1. Clique Veja > Adicionar Colunas.

2. No Mostrar colunas diálogo e em Selecione as colunas disponíveis em lista suspensa, selecione Todos os campos de correio, Em seguida, escolha Na pasta no Colunas disponíveis Lista.

3. Clique Adicionar adicionar Em pastas para Mostra essas colunas nesta ordem lista e clique em Subir botão para mover Na pasta para o topo.

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

5. Agora pressione Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo para criar um novo módulo.

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

VBA: vá 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 F5 para habilitar o código, agora insira o nome da pasta que você deseja acessar na caixa de diálogo.

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

Acesse e abra a pasta do resultado da pesquisa com o botão direito do mouse

Se você tem Kutools para Outlook, haverá um Pasta aberta utilitário incorporado no menu do botão direito que pode ir rapidamente para a pasta do e-mail selecionado.

Livre Instalar Kutools para Outlook e siga as etapas abaixo:

Após a busca, clique com o botão direito no resultado que deseja abrir sua pasta, selecione Pasta aberta no menu de contexto.

Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

• Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
• Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
• Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
• Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
• Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.

Leia mais... Baixe Agora...