Como localizar a pasta (caminho completo da pasta) pelo nome da pasta no Outlook?
Por exemplo, no painel de navegação, você move uma pasta e vai para uma pasta desconhecida por engano no Outlook. Você deseja restaurar esta pasta, mas não pode descobri-la imediatamente. Infelizmente, o Outlook não suporta o Encontre recurso igual ao do Microsoft Word ou Excel. Não se preocupe! Você pode aplicar uma macro VBA para resolver esse problema no Outlook.
- Encontre a pasta (caminho completo da pasta) pelo nome da pasta com VBA
- Pesquise pasta por nome de pasta com uma ferramenta incrível
Pesquise e abra pastas rapidamente por nome de pasta com uma ferramenta incrível
Em geral, podemos pesquisar pastas pelo nome da pasta com código VBA. A maior parte do código VBA pode pesquisar pastas na caixa de correio atual e abrir apenas a primeira pasta encontrada. Agora, com o recurso Ir para do Kutools for Outlook, você pode encontrar facilmente pastas por nome de pasta e abrir qualquer uma das pastas encontradas conforme necessário.
Encontre a pasta (caminho completo da pasta) pelo nome da pasta com VBA
Siga as etapas abaixo para pesquisar pastas por nomes de pastas com VBA no Outlook.
1. pressione outro + F11 juntas para abrir a janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe, em seguida, cole o código VBA abaixo na nova janela do módulo.
VBA: Pesquise e abra pastas por nome de pasta no Outlook
Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean
Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True
Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders
Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False
sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName
m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))
Set oFolders = Application.Session.Folders
LoopFolders oFolders
If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub
Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean
If SpeedUp = False Then DoEvents
For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If
If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub
3. pressione F5 ou clique no Execute botão para executar este VBA.
4. Na caixa de diálogo Abrir pasta de pesquisa, digite o nome da pasta especificada pela qual deseja pesquisar e clique no botão OK botão. Veja a imagem:
Note: Este VBA oferece suporte a curinga de asterisco. Por exemplo, você pode digitar tes * para descobrir todas as pastas cujos nomes começam com tes.
5. Agora uma caixa de diálogo é exibida e mostra o caminho da pasta encontrada. Se você precisar abrir a pasta encontrada, clique no Sim botão.
E agora a pasta encontrada está abrindo no painel de navegação, conforme a imagem abaixo mostrada:
Note: Se houver mais de uma pasta nomeada com o nome especificado, este VBA pode localizar e abrir apenas uma pasta.
Pesquise pasta por nome de pasta com uma ferramenta incrível
Se você tiver o Kutools para Outlook instalado, poderá aplicar o recurso Ir para para descobrir rapidamente todas as pastas com um determinado nome de pasta e abrir facilmente qualquer pasta encontrada.
Kutools for Outlook: Turbine o Outlook com mais de 100 ferramentas indispensáveis. Faça um test drive GRATUITAMENTE por 60 dias, sem compromisso! Leia mais... Baixe agora!
1. Clique Kutools Plus > ir para para ativar esse recurso.
2. Na caixa de diálogo Ir para, digite o nome da pasta especificada no Pesquisar , selecione uma pasta nos resultados da pesquisa e clique no Ok botão.
Agora, a pasta especificada com o nome de determinada pasta é encontrada e aberta imediatamente.
Artigos relacionados:
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.