Note: The other languages of the website are Google-translated. Back to English

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 Outlookboa ideia 3


seta azul bolha direita 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.


seta azul bolha direita 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

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:

1. Clique Kutools Plus > ir para.
doc localizar pasta por nome 5

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.
doc localizar pasta por nome 6

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


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.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (6)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Existe uma maneira de adicionar iteração de pasta ao código acima. Digamos que o usuário tenha várias pastas chamadas Employee, é possível que ele passe por um loop para encontrar todas as instâncias e permitir que o usuário selecione a pasta apropriada?
Este comentário foi feito pelo moderador no site
Assim como Matt escreveu, eu também estava procurando por isso. A maneira como o código funciona é que ele abrirá a primeira pasta que encontrar com o nome a ser pesquisado. É possível ajustar o código para que ele encontre várias instâncias?
Este comentário foi feito pelo moderador no site
a linha "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" está gerando uma mensagem de erro de compilação: Tipo definido pelo usuário não definido
Este comentário foi feito pelo moderador no site
A linha "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" está lançando uma mensagem de erro de compilação - tipo definido pelo usuário não definido
Este comentário foi feito pelo moderador no site
Atualmente, estou trabalhando com o Outlook 2013 e, embora essa ferramenta seja maravilhosamente útil, estou no mesmo barco que Matt e Richard. Eu gostaria de poder de alguma forma passar por várias pastas com o mesmo nome. Também gostaria de poder fazer isso: se eu tiver várias pastas com datas, 2012,2013,2014 por exemplo, gostaria de poder colocar 20* ou 20?? e, em seguida, ser solicitado a visualizar qualquer uma das pastas mencionadas, em vez de apenas padronizar para a primeira que encontrar.
Este comentário foi feito pelo moderador no site
Parece ótimo, mas estou procurando mais pasta com nome semelhante ....
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL