Como encontrar uma pasta específica no Outlook entre muitas pastas?

Question

Tenho o Outlook 2013 e tenho muitas pastas disponíveis para todos os meus contatos e e-mails de fornecedores recebidos deles. Eu quero ser capaz de encontrar uma pasta rapidamente sem ter que percorrer todos eles. alguém pode me ajudar aqui por favor

    

Answer 1

O Outlook não fornece a funcionalidade direta para pesquisar pastas. No entanto, existem soluções alternativas que são discutidas em outra pergunta aqui no superusuário: Como posso encontrar uma pasta perdida no Outlook? . Usuário Loïc MICHEL criou alguns scripts personalizados para ajudar a procurar por pastas

Um site externo (thetechieguy.com) também criou uma solução com instruções detalhadas Como pesquisar o Outlook para um nome de pasta

Espero que isso ajude

    

Answer 2

De Encontre ou selecione uma pasta digitando seu nome :

1. Defina o foco para sua pasta ativa no Painel de Navegação pressionando SHIFT + F6 (dependendo do seu foco atual, você pode precisar pressioná-lo várias vezes)
2. Quando seu foco estiver no Painel de Navegação, digite as primeiras letras do nome da pasta para selecioná-lo.
3. Sua pasta atual continua sendo a pasta ativa para que você possa mover facilmente as mensagens para a outra pasta.

Observação: somente pastas visíveis / expandidas no momento serão encontradas. Subpastas recolhidas não serão encontradas. Veja também Iniciando o Outlook com todas as pastas recolhidas / expandidas .

Se você não quiser manter suas pastas expandidas e realmente quiser abrir uma pasta específica apenas digitando o nome dela, então A macro VBA do VBOffice fará o truque.

Privatem_FolderAsOutlook.MAPIFolderPrivatem_FindAsStringPrivatem_WildcardAsBooleanPrivateConstSpeedUpAsBoolean=TruePrivateConstStopAtFirstMatchAsBoolean=TruePublicSubFindFolder()DimName$DimFoldersAsOutlook.FoldersSetm_Folder=Nothingm_Find=""
  m_Wildcard = False

  Name = InputBox("Find name:", "Search folder")
  If Len(Trim$(Name)) = 0 Then Exit Sub
  m_Find = Name

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

  Set Folders = Application.Session.Folders
  LoopFolders Folders

  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 F As Outlook.MAPIFolder
  Dim Found As Boolean

  If SpeedUp = False Then DoEvents

  For Each F In Folders
    If m_Wildcard Then
      Found = (LCase$(F.Name) Like m_Find)
    Else
      Found = (LCase$(F.Name) = m_Find)
    End If

    If Found Then
      If StopAtFirstMatch = False Then
        If MsgBox("Found: " & vbCrLf & F.FolderPath & vbCRLF & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
          Found = False
        End If
      End If
    End If
    If Found Then
      Set m_Folder = F
      Exit For
    Else
      LoopFolders F.Folders
      If Not m_Folder Is Nothing Then Exit For
    End If
  Next
End Sub

    

Answer 3

O suplemento

Quick Folders faz exatamente isso. É um produto comercial desenvolvido pela minha empresa, mas você pode usar a avaliação gratuita para encontrar sua (s) pasta (s) conforme necessário.