Como encontrar uma pasta pelo nome no Outlook?
Por exemplo, você criou várias pastas de e-mail no Outlook, e quando uma pasta pessoal específica precisa ser aberta, é necessário expandir múltiplas pastas até que a pasta desejada apareça. É trabalhoso expandir várias pastas uma por uma apenas para abrir uma pasta pessoal específica. Na verdade, se você lembrar o nome da pasta, tudo ficará mais fácil. Neste tutorial, forneceremos um método para encontrar uma pasta pelo nome no Outlook, em vez de expandir pastas uma por uma para localizá-la.
Encontre uma pasta pelo nome no Outlook com código VBA
Pesquise uma pasta pelo nome em várias contas no Outlook com Kutools para Outlook
Encontre uma pasta pelo nome no Outlook com código VBA
Com o seguinte código VBA, você pode facilmente encontrar uma pasta específica pelo seu nome.
Observação: Você precisa lembrar o nome da pasta para usar este código VBA.
1. Pressione as teclas Alt + F11 no teclado para abrir a janela Microsoft Visual Basic for Applications.
2. Em seguida, clique duas vezes em Project1 > Microsoft Outlook Object > ThisOutlookSession para abrir a janela Project1 – ThisOutlookSession. Veja a captura de tela:
3. Copie e cole o seguinte código VBA na janela Project1 – ThisOutlookSession.
VBA: encontrar 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, pressione 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 Pesquisar Pasta que aparece, digite o nome da pasta na caixa de texto e clique no botão OK. Veja a captura de tela:
7. Em seguida, uma caixa de diálogo do Microsoft Outlook aparecerá, mostrando o caminho da pasta desejada; clique no botão Sim.
8. A pasta de e-mail especificada será aberta imediatamente.
Observação: Este código VBA pode ser aplicado ao Outlook 2007, 2010 e 2013.
Pesquise uma pasta pelo nome em várias contas no Outlook com Kutools para Outlook
Se você não é bom em VBA, pode experimentar o utilitário Ir Para do Kutools para Outlook, que pode encontrar e pesquisar uma pasta pelo nome ou caracteres específicos e, em seguida, ir diretamente para a pasta.
Instale gratuitamente o Kutools para Outlook e siga os passos abaixo:
1. Clique em Kutools Plus > Pasta > Ir Para.
2. Na caixa de diálogo Ir Para, digite o nome da pasta ou caracteres específicos na barra de pesquisa; as pastas relacionadas serão listadas.
3. Dê um duplo clique no nome da pasta que deseja acessar e abrir, e a pasta será aberta.
Demonstração
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint