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 for 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.
Anote os: 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.
Anote os: Este código VBA pode ser aplicado ao Outlook 2007, 2010 e 2013.
Pesquisar pasta por nome em contas no Outlook por Kutools for 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
Kutools for Outlook , Inclui recursos e ferramentas poderosos para Microsoft Outlook 2016, 2013, 2010 e Office 365. |
||
Livre Instalar Kutools for Outlooke 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
📧 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.





