Como exportar e imprimir a lista de todas as pastas e subpastas no Outlook?

Author: Kelly Last Modified: 2025-08-06

Geralmente, você pode pressionar as teclas "Ctrl" + "6" para visualizar a lista de todas as pastas no Painel de Navegação no Outlook. No entanto, você não pode imprimir diretamente a lista de pastas. Este artigo apresenta dois scripts VBA para exportar e imprimir a lista de todas as pastas e suas subpastas no Outlook.

Exportar e imprimir a lista de todas as pastas do Outlook e suas subpastas em um novo email
Exportar e imprimir a lista de todas as pastas do Outlook e suas subpastas no Bloco de Notas

Exportar e imprimir a lista de todas as pastas do Outlook e suas subpastas em um novo email

Este método apresenta um script VBA para exportar a lista de todas as pastas e suas subpastas em uma conta de email específica para um novo email no Outlook. Depois disso, você poderá facilmente imprimir a lista de pastas.

1. Pressione "Alt" + "F11" para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em "Inserir" > "Módulo" e cole o seguinte código VBA na nova janela de módulo.

VBA: Exportar a lista de pastas e subpastas em um novo email no Outlook

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.MailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)
Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

For i = CurrentFolder.Folders.Count To 1 Step -1
    Set oFolder = CurrentFolder.Folders(i)
    sFolderPaths = oFolder.FolderPath
    gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
    If oSubFolder.Name <> "Deleted Items" Then
        ProcessFolder oSubFolder
    End If
Next
End Sub

3. Pressione "F5" para executar o VBA.

4. Na caixa de diálogo Selecionar Pasta que aparece, selecione a conta de email cuja lista de pastas deseja imprimir e clique em "OK".

Select folder dialog

5. A lista de pastas da conta selecionada será copiada para um novo email conforme mostrado abaixo. Clique em "Arquivo" > "Imprimir" para imprimir a lista de pastas.

Generated email with folder list

6. Após a impressão, feche o novo email sem salvar.

Exportar e imprimir a lista de todas as pastas do Outlook e suas subpastas no Bloco de Notas

Este método apresenta um script VBA para exportar a lista de todas as pastas e suas subpastas de uma conta de email específica do Outlook para o Bloco de Notas. Depois disso, você poderá imprimir facilmente a lista de pastas.

1. Pressione "Alt" + "F11" para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em "Inserir" > "Módulo" e, em seguida, cole o seguinte código VBA na nova janela de módulo.

VBA: Exportar a lista de todas as pastas e subpastas do Outlook para o Bloco de Notas

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

Set objOutlook = CreateObject("Outlook.Application")
Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
    Set Folders = F.Folders
    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
    If Result = 6 Then
        gCreateTree = True
    Else
        gCreateTree = False
    End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
    gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders Folders

    Set F = Nothing
    Set Folders = Nothing
    Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F
For Each F In Folders
    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
    CreateFolderTree = Mid(OLKfolderpath, 3)
Else
    Dim i, x, OLKprefix
    i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))
    For x = gBase To i
        OLKprefix = OLKprefix & "-"
    Next
    CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3. Pressione "F5" para executar o VBA. Na caixa de diálogo Selecionar Pasta que se abre, selecione a conta de email cuja lista de pastas deseja exportar e imprimir, depois clique em "OK".

Select folder dialog

4. A caixa de diálogo Árvore de Pastas de Saída aparecerá. Clique em "Sim" ou "Não", dependendo se você deseja incluir a indentação da árvore.

Prompt for tree creation

Agora, um arquivo de texto chamado "Outlook-Folders" é criado e salvo na sua área de trabalho conforme mostrado abaixo:

Outlook-Folders text file

5. Clique duas vezes para abrir o novo arquivo de texto, depois clique em "Arquivo" > "Imprimir" para imprimir a lista de pastas do Outlook exportada.

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.

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

Melhores Ferramentas de Produtividade para Office

Notícia Urgente: Kutools para Outlook lança versão gratuita!

Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para lidar com emails facilmente, 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 vários 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 divertidos / Aviso de chegada de emails importantes / Minimizar Outlook em vez de fechar...

👍 Praticidade com um clique: Responder a Todos com Anexos / Anti-Phishing Emails / 🕘Exibir 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...

Use o Kutools no idioma que preferir – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

Desbloqueie instantaneamente o Kutools para Outlook com um clique. Não perca tempo, baixe agora e aumente sua eficiência!

Lista de recursos do Kutools para Outlook Baixar agora Ir para Compra