Como abrir todas as subpastas no Outlook?
Se você criou várias subpastas em suas pastas do Outlook, como poderia abrir ou expandir todas essas subpastas imediatamente? Neste artigo, vou apresentar um código VBA útil para resolver essa tarefa.
Abrir ou expandir todas as subpastas no Outlook com código VBA
Abrir ou expandir todas as subpastas no Outlook com código VBA
Por favor, aplique o seguinte código VBA para expandir todas as subpastas de todas as contas do Outlook:
1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo.
Código VBA: Abrir todas as subpastas no Outlook:
Sub ExpandAllMailFolders()
Dim xCurrentFolder As Folder
Dim xAllFolders As Folders
Dim xFolder As Folder
On Error Resume Next
Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder
Set xAllFolders = Application.Session.Folders
For Each xFolder In xAllFolders
Call ProcessFolders(xFolder)
Next
Set Application.ActiveExplorer.CurrentFolder = xCurrentFolder
End Sub
Sub ProcessFolders(ByVal CurFolder As Folder)
Dim xSubfolder As Folder
On Error Resume Next
If CurFolder.DefaultItemType <> olMailItem Then Exit Sub
Set Application.ActiveExplorer.CurrentFolder = CurFolder
DoEvents
If CurFolder.Folders.Count = 0 Then Exit Sub
For Each xSubfolder In CurFolder.Folders
Call ProcessFolders(xSubfolder)
Next
End Sub
3. Em seguida, pressione a tecla F5 para executar este código, e todas as subpastas em todas as contas do seu Outlook serão expandidas, veja a captura de tela:
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint