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

Pesquisar pasta por nome em contas no 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.

Nota: 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 Opere 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.

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

Pesquisar pasta por nome em contas no Outlook por Kutools para Outlook

Se você não é bom em VBA, pode tentar Kutools para 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

---

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...