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

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 Procure recurso igual ao do Microsoft Word ou Excel. Não se preocupe! Você pode aplicar uma macro VBA para resolver esse problema no Outlook.

Pesquise e abra pastas rapidamente por nome de pasta com uma ferramenta incrível

Em geral, podemos pesquisar pastas por nome de pasta com código VBA. A maioria dos códigos VBA pode pesquisar pastas na caixa de correio atual e abrir apenas a primeira pasta encontrada. Agora, com o recurso Ir para do Kutools para Outlook, você pode localizar 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 Opere 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:

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

Nota: 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 por um determinado nome de pasta e abrir facilmente qualquer pasta encontrada.

Kutools para Outlook: Adicione mais de

100
ferramentas úteis para o Outlook, gratuitas para testar sem limitação em
60
dias. Leia mais      Teste grátis 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 Procurar , 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:


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 (9)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Olá.

Uau - esta é uma função incrível, que tornará meu uso diário do Outlook muito mais rápido.
Muito obrigado por publicar!!

Uma dica para os interessados:
Se você deseja pesquisar apenas pastas INBOX, sem pastas públicas etc.
Isso tornou muito mais rápido para mim porque a pasta pública é remota, então a pesquisa é bastante lenta.
E também não estou interessado nesses resultados.


Substitua a linha 24 por:

Set oFolders = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders
Este comentário foi feito pelo moderador no site
Olá,

Obrigado por esta macro. Funciona muito bem!


Existe uma maneira de fazer a macro sempre pesquisar como curingas? Seria mais fácil digitar uma palavra-chave sem adicionar os asteriscos todas as vezes.
Este comentário foi feito pelo moderador no site
Substitua a linha 18 por
m_Find = "*" & sName & "*"
Este comentário foi feito pelo moderador no site
Substitua a linha 18 por

m_Find = "*" & sName & "*"
Este comentário foi feito pelo moderador no site
Essa macro realmente me ajudou é incrível, obrigado!!!
É possível ir para a próxima ocorrência, então, em vez de apenas Sim/Não, tenha algo como Sim/Próximo/Não ?
Obrigado
Este comentário foi feito pelo moderador no site
m_Folder privado como MAPIFolder
Privado m_Find As String
Privado m_Wildcard como booleano

Private Const SpeedUp como Boolean = True
'Private Const StopAtFirstMatch As Boolean = True
Privado StopAtFirstMatch como booleano

Public Sub FindFolder ()
Dim sName As String
Escurecer oFolders As Folders

Definir m_Folder = Nada
m_Localizar = ""
m_Wildcard = Falso

sName = InputBox("Localizar:", "Pasta de pesquisa")
Se Len(Trim(sName)) = 0 Então Exit Sub

'm_Find = sName
' Adicionado "*"... para qualquer string no nome da pasta
m_Find = "*" & sName & "*"

m_Localizar = LCase(m_Localizar)
m_Localizar = Replace(m_Localizar, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))

' Set oFolders = Application.Session.Folders
Set oFolders = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders

LoopFolders oFolders

Se não m_Folder não é nada, então
' Removido - If MsgBox("Ativar pasta: " & vbCrLf & m_Folder.FolderPath, vbQuestion Ou vbYesNo) = vbYes Then
Definir Application.ActiveExplorer.CurrentFolder = m_Folder
Outro
MsgBox "Fim da pesquisa...", vbInformation
Se acabar
End Sub

Sub LoopFolders Privados (Pastas como Outlook.Folders)
Dim oFolder como MAPIFolder
Dim bFound como booleano

Se SpeedUp = False Então DoEvents

Para cada pasta em pastas
Se m_Wildcard Então
bFound = (LCase(oFolder.Name) Como m_Find)
Outro
bFound = (LCase(oFolder.Name) = m_Find)
Se acabar


Se bEncontrado Então
Se StopAtFirstMatch = False Então
Definir Application.ActiveExplorer.CurrentFolder = oFolder

If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Search for next?", vbQuestion Ou vbYesNo) = vbYes Then
bEncontrado = Falso
Se acabar
Outro
MsgBox ("Não encontrado")
Se acabar
Se acabar
Se bEncontrado Então
Definir m_Folder = oFolder
Sair para
Outro
LoopFolders oFolder.Folders
Se não m_Folder não for nada, saia para
Se acabar
Seguinte
End Sub
Este comentário foi feito pelo moderador no site
Uau é exatamente isso. Eu realmente aprecio isso e você fez isso tão rápido.Obrigado
Este comentário foi feito pelo moderador no site
Olá, se eu tentar copiar e colar a macro sim/próximo/não, só recebi a mensagem "Fim da pesquisa". Poderia dar uma olhada? Eu realmente apreciaria isto. Obrigado
Este comentário foi feito pelo moderador no site
Olá, se eu tentar copiar e colar a macro sim/próximo/não, só recebi a mensagem "Fim da pesquisa".
Você poderia dar uma olhada? Eu realmente apreciaria isto. Obrigado
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