Ir para o conteúdo principal

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

De um modo geral, você pode pressionar Ctrl + 6 para ver a lista de todas as pastas no Painel de Navegação do Outlook. No entanto, você não pode imprimir a lista de pastas. Este artigo apresentará dois scripts VBA para exportar e imprimir a lista de todas as pastas e suas subpastas no Outlook.


Exporte e imprima a lista de todas as pastas do Outlook e suas subpastas em um novo e-mail

Este método apresentará um VBA para exportar a lista de todas as pastas e suas subpastas em uma conta de e-mail especificada para um novo e-mail no Outlook, e então você pode imprimir a lista de pastas facilmente.

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

2. Clique inserção > Móduloe, em seguida, cole o código VBA abaixo na nova janela do módulo.

VBA: Exportar a lista de pastas e subpastas em um novo e-mail 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 chave para executar este VBA.

4. Na caixa de diálogo Selecionar pasta, selecione a conta de e-mail cuja lista de pastas deseja imprimir e clique no botão OK botão. Veja a imagem:

5. E agora a lista de pastas da conta de e-mail especificada é copiada para um novo e-mail, conforme a imagem mostrada abaixo. Por favor clique Envie o > Impressão para imprimir a lista de pastas copiada.

6. Após imprimir, feche o novo e-mail sem salvar.


Exporte e imprima a lista de todas as pastas do Outlook e suas subpastas no Bloco de Notas

Este método apresentará um VBA para exportar a lista de todas as pastas e suas subpastas em uma conta de e-mail especificada do Outlook para o Bloco de notas e, em seguida, você poderá imprimir a lista de pastas do Outlook no Bloco de notas facilmente.

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

2. Clique inserção > Móduloe, em seguida, cole o código VBA abaixo na nova janela do 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 chave para executar este VBA. Em seguida, na caixa de diálogo Selecionar pasta de abertura, selecione a conta de e-mail cuja lista de pastas deseja exportar e imprimir e clique em OK botão. Veja a imagem:

4. Em seguida, a caixa de diálogo Output Folder Tree está chegando. Por favor clique no Sim botão ou Não botão conforme você precisa.

E agora um arquivo de texto chamado Pastas do Outlook é criado e salvo em sua área de trabalho conforme a imagem abaixo mostrada.

5. Clique duas vezes para abrir o novo arquivo de texto e clique em Envie o > Impressão para imprimir a lista exportada de pastas do Outlook.

Um clique para mostrar o número total de itens em todas as pastas no Painel de Navegação no Outlook

Normalmente, o Outlook mostra o número de itens não lidos em cada pasta do Painel de Navegação. Mas, Kutools para Outlook Todas as pastas mostram o número total de itens recurso pode ajudá-lo a mostrar o número total de itens em todas as pastas com apenas um clique.


todas as pastas mostram o número total kto 9.00

Artigos Relacionados


Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos PróSalvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

 

 

Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thank you so much for this very valuable post. It really helped me a lot as outlook is still not able to show the folder structure!
This comment was minimized by the moderator on the site
Saved us a ton of time. Thanks for the detailed instructions. Worked like a charm! :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
Most excellent tip. Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations