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
- Exporte e imprima a lista de todas as pastas do Outlook e suas subpastas no Bloco de Notas
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.
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.