Como encontrar uma pasta por nome no Outlook?

Por exemplo, você criou muitas pastas de e-mail no Outlook; quando uma pasta pessoal especificada precisa ser aberta, você deve expandir várias pastas até que essa pasta seja exibida. É problemático expandir várias pastas uma a uma apenas para abrir uma pasta pessoal especificada. Na verdade, se você se lembrar do nome da pasta, tudo se tornará fácil. Neste tutorial, forneceremos a você um método para localizar uma pasta por seu nome no Outlook, em vez de expandir as pastas uma a uma para localizar a pasta.

Encontre a pasta por nome no Outlook com o código VBA

Pesquise a pasta por nome nas contas do Outlook por Kutools para Outlook

Encontre a pasta por nome no Outlook com o código VBA

Com o seguinte código VBA, você pode localizar facilmente uma pasta especificada por seu nome.

Note: Você precisa se lembrar do nome da pasta para usar este código VBA.

1. aperte o outro + F11 teclas no teclado para abrir o Microsoft Visual Basic para Aplicações janela.

2. Em seguida, clique duas vezes no Project1 > Objeto Microsoft Outlook > Esta sessão do Outlook para abrir o Projeto1 - ThisOutlookSession janela. Veja a imagem:

3. Copie e cole o seguinte código VBA na janela Projeto1 - ThisOutlookSession.

VBA: localizar pasta por 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 F5 chave no teclado para executar o código VBA.

5. No Macros caixa de diálogo, clique no botão Execute botão.

6. No popping up Pasta de pesquisa caixa de diálogo, digite o nome da pasta na caixa de texto e clique no OK botão. Veja a imagem:

7. Então um Microsoft Outlook a caixa de diálogo aparece, mostra o caminho da pasta desejada e, em seguida, clique no Sim botão.

8. Em seguida, a pasta de e-mail especificada será aberta imediatamente.

Note: Este código VBA pode ser aplicado ao Outlook 2007, 2010 e 2013.

Pesquise a pasta por nome nas contas do Outlook por Kutools para Outlook

Se você não é bom em VBA, pode tentar Kutools for Outlook's ir para utilitário, que pode localizar e pesquisar a pasta com o nome ou caractere específico, e ir diretamente para a pasta

Livre Instalar Kutools para Outlook e siga as etapas abaixo:

1. Clique Kutools Plus > ir para.

2. No ir para caixa de diálogo, digite o nome da pasta ou caracteres específicos na barra de pesquisa, então as pastas relativas são listadas.

3. Clique duas vezes no nome da pasta que deseja acessar e abri-la; a pasta é aberta.

  Demo

---

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.

Saiba Mais       Download grátis      Comprar