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 agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / 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 mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
