Skip to main content

Como expandir automaticamente todas as pastas ao iniciar o Outlook?

Author: Kelly Last Modified: 2025-06-04

Normalmente, quando você expande ou recolhe uma pasta no Painel de Navegação do Outlook e posteriormente fecha o programa, a pasta mantém seu estado expandido ou recolhido ao reabrir o Outlook. No entanto, e se você quiser que todas as pastas sejam automaticamente expandidas toda vez que iniciar o Outlook? Este artigo fornece uma solução VBA para alcançar exatamente isso.

Expandir automaticamente todas as pastas ao iniciar o Outlook usando VBA


Expandir automaticamente todas as pastas ao iniciar o Outlook usando VBA

Este guia demonstrará como usar um script VBA para expandir automaticamente todas as pastas no Painel de Navegação cada vez que você iniciar o Outlook. Siga estas etapas para implementar o script VBA:

  1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
  2. Expanda o Projeto 1 e Objetos do Microsoft Outlook no Projeto painel, clique duas vezes para abrir o ThisOutlookSession janela, e depois cole o código VBA abaixo nele.

    doc-folders-automatically-expand-1

    VBA: Expandir automaticamente todas as pastas no Outlook

    Public WithEvents GEx As Explorer
    Public GFlag As Boolean
    Private Sub Application_Startup()
      'Update by ExtendOffice 2023/12/08
      Set GEx = Application.ActiveExplorer
      GFlag = False
    End Sub
    
    Private Sub GEx_SelectionChange()
      If GFlag = False Then
        ExpandAllFolders
      End If
      GFlag = True
    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 automaticamente expandidas no Outlook.

Notas:

  • Este VBA não pode abrir as pastas de pesquisa recolhidas ao reiniciar o Outlook.
  • Para garantir que o script VBA funcione corretamente, é essencial ajustar suas configurações de macro no Outlook. Por favor, vá para Arquivo > Opções > Central de Confiabilidade > Configurações da Central de Confiabilidade > Configurações de Macro e selecione a opção Ativar todas as macros. Essa configuração permite que o script VBA seja executado sem restrições.

Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS

Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.
doc ai email handle

Este recurso suporta:

  • Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
  • Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
  • Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
  • Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
  • Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
  • Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.

Este recurso suporta:

  • Respostas inteligentes de e-mail
  • Conteúdo otimizado
  • Rascunhos baseados em palavras-chave
  • Extensão inteligente de conteúdo
  • Resumo de e-mails
  • Tradução multilíngue

O melhor de tudo é que este recurso é completamente grátis para sempre! Não espere — baixe agora o Assistente de E-mail AI e aproveite


Artigos Relacionados


Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2