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 Ver > 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 for 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.
Kutools for Outlook , Inclui 100+ recursos e ferramentas poderosos para Microsoft Outlook 2016, 2013, 2010 e Office 365. |
||
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.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.