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

Como expandir automaticamente todas as pastas ao iniciar o Outlook?

De modo geral, se você expandir ou recolher uma pasta no Painel de Navegação e, em seguida, fechar o Outlook, a pasta permanecerá expandindo ou recolhendo ao reiniciar o Outlook. Mas agora, há uma maneira de expandir todas as pastas automaticamente ao iniciar o Outlook? Este artigo apresentará um VBA para concluir a tarefa.

Expanda automaticamente todas as pastas ao iniciar o Outlook com VBA

Guia Office - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - traz 100 recursos avançados poderosos para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta 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 de uma vez; Adicionar saudação automaticamente quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de Anexo: Desanexar automaticamente, Comprimir tudo, Renomear tudo, Salvar tudo automaticamente ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails e contatos duplicados ...
  • Mais de 100 recursos avançados resolva a maioria dos seus problemas no Outlook 2010-2019 e 365. Full features 60-day free trial.

seta azul bolha direitaExpanda automaticamente todas as pastas ao iniciar o Outlook com VBA

Este método apresentará um VBA para expandir automaticamente todas as pastas no Painel de Navegação quando você iniciar o Outlook. Aplique este VBA da seguinte forma:

1. Pressione outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications.

2. Expanda o projeto 1 e Objetos do Microsoft Outlook no painel Projeto, clique duas vezes para abrir o Esta sessão do Outlook janela e cole abaixo o código VBA nela.

VBA: expanda automaticamente todas as pastas no Outlook

Private Sub Application_Startup()
  'Update by ExtendOffice 2022/08/03
  ExpandAllFolders
End Sub

Public Sub ExpandAllFolders()
  Dim xNameSpace As Outlook.NameSpace
  Dim xFlds As Outlook.Folders
  Dim xCurrFld As Outlook.MAPIFolder
  Dim xFld As Outlook.MAPIFolder
  Dim xExpandDefaultStoreOnly As Boolean
  Dim xModule As NavigationModule
  On Error Resume Next
  xExpandDefaultStoreOnly = False
  Set xNameSpace = Application.Session
  Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule
  Set xCurrFld = Application.ActiveExplorer.CurrentFolder
  If xExpandDefaultStoreOnly = True Then
    Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox)
    Set xFld = xFld.Parent
    Set xFlds = xFld.Folders
    LoopFolders xFlds, True
  Else
    LoopFolders xNameSpace.Folders, True
    LoopFolders xNameSpace.Folders, False
  End If
  DoEvents
  Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule
  Set Application.ActiveExplorer.CurrentFolder = xCurrFld
  Set xNameSpace = Nothing
  Set xModule = Nothing
  Set xCurrFld = Nothing
End Sub

Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean)
  Dim xFld As Outlook.MAPIFolder
  On Error Resume Next
  For Each xFld In Flds
    Select Case All
      Case True
        If xFld.DefaultItemType = olMailItem Then
          Set Application.ActiveExplorer.CurrentFolder = xFld
          DoEvents
          If xFld.Folders.Count > 0 Then
            LoopFolders xFld.Folders, All
          End If
        End If
      Case False
        Set Application.ActiveExplorer.CurrentFolder = xFld
        DoEvents
        If xFld.Folders.Count > 0 Then
          LoopFolders xFld.Folders, All
        End If
    End Select
  Next
End Sub

3. Salve o código e feche a janela Microsoft Visual Basic for Applications.

A partir de agora, ao reiniciar o Outlook, todas as pastas serão expandidas automaticamente no Outlook. Nota: Este VBA não pode abrir as pastas de pesquisa recolhidas ao reiniciar o Outlook.


seta azul bolha direitaArtigos 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 (5)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Muito obrigado.. Resolveu meu problema. :)
Este comentário foi feito pelo moderador no site
Não consigo fazer essa macro funcionar. Todas as pastas no painel Pasta não são expandidas. Estou usando o Outlook 2021. Perdi alguma instrução?
Este comentário foi feito pelo moderador no site
Oi lá,
Atualizamos o código, tente novamente. 🙂
Amanda
Este comentário foi feito pelo moderador no site
Também não consegui fazer essa macro funcionar.
Este comentário foi feito pelo moderador no site
Oi lá,
Atualizamos o código, tente novamente. 🙂
Amanda
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos