Note: The other languages of the website are Google-translated. Back to English

Como exportar a estrutura de pastas do Outlook para o Excel?

Neste artigo, vou apresentar como exportar a estrutura de pastas de uma conta do Outlook para o arquivo Excel. Por favor, consiga com os detalhes deste artigo.

Exporte a estrutura de pastas de uma conta do Outlook para o Excel usando o código VBA


Exporte a estrutura de pastas de uma conta do Outlook para o Excel usando o código VBA

O seguinte código VBA pode fazer um favor a você, siga as etapas abaixo:

1. Habilite o Excel e mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: Exportar estrutura de pastas de uma conta do Outlook para o Excel:

Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMainFolderCount As Long
Sub OutlookExportFolderStructureToExcel()
    Dim xFolder As Folder
    Dim xExcelFile As String
    Dim xFileDialog As FileDialog
    On Error Resume Next
    Set xFolder = Outlook.Application.Session.PickFolder
    If xFolder Is Nothing Then Exit Sub
    Set xExcelApp = New Excel.Application
    Set xWb = xExcelApp.Workbooks.Add
    Set xWs = xWb.Sheets(1)
    With xWs.Range("A1", "A1")
         .Value = "Folder Structure"
         .Font.Size = 14
         .Font.Bold = True
    End With
    xMainFolderCount = Len(xFolder.FolderPath) - Len(Replace(xFolder.FolderPath, "\", "")) + 1
    Call ExportToExcel(xFolder.FolderPath, xFolder.Name)
    Call ProcessFolders(xFolder.Folders)
    xWs.Columns("A").AutoFit
    Set xFileDialog = xExcelApp.FileDialog(msoFileDialogSaveAs)
    With xFileDialog
        .AllowMultiSelect = False
        .FilterIndex = 1
        If .Show = 0 Then
            xWb.Close False
            xExcelApp.Quit
            Set xExcelApp = Nothing
            Exit Sub
        End If
        xExcelFile = .SelectedItems.Item(1)
    End With
    xWb.Close True, xExcelFile
    MsgBox "Export complete!", vbExclamation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(ByVal xFlds As Folders)
    Dim xSubFolder As Folder
    For Each xSubFolder In xFlds
        If xSubFolder.Name <> "Conversation Action Settings" And xSubFolder.Name <> "Quick Step Settings" Then
           Call ExportToExcel(xSubFolder.FolderPath, xSubFolder.Name)
           Call ProcessFolders(xSubFolder.Folders)
        End If
    Next
End Sub

Sub ExportToExcel(ByRef xFolderPath As String, xFolderName As String)
    Dim i, n As Long
    Dim xPrefix As String
    Dim xLastRow As Integer
    i = Len(xFolderPath) - Len(Replace(xFolderPath, "\", "")) - xMainFolderCount
    For n = 0 To i
        xPrefix = xPrefix & "-"
    Next
    xFolderName = xPrefix & xFolderName
    xLastRow = xWs.UsedRange.Rows.Count + 1
    xWs.Range("A" & xLastRow) = xFolderName
End Sub

3. Ainda na Microsoft Visual Basic para Aplicações janela, clique em Ferramentas > Referências para ir para o Referências-Projeto1 caixa de diálogo e verifique Biblioteca de objetos do Microsoft Excel opção do Referências Disponíveis caixa de lista, veja a captura de tela:

doc export pasta estrutura para excel 1

4. Então clique OK botão e pressione F5 chave para executar este código, um Selecionar pasta caixa de diálogo é exibida, selecione a conta de e-mail para a qual deseja exportar sua estrutura de pastas, consulte a captura de tela:

doc export pasta estrutura para excel 2

5. E então, clique OK botão, um Arquivo Salvar for exibida, especifique um local e nome de arquivo para este arquivo exportado, consulte a captura de tela:

doc export pasta estrutura para excel 3

6. Finalmente, clique em Salvar botão, e você pode ir para a pasta de trabalho do Excel específica que você salvou para ver a estrutura de pasta exportada, veja a captura de tela:

doc export pasta estrutura para excel 4

 


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 

 

Comentários (13)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Este código é ótimo e funciona muito bem, obrigado.
O que seria ainda mais excelente se pudesse mostrar os tamanhos (em bytes, kilobytes, megabytes, petabytes, o que for) e até possivelmente a contagem de itens para cada pasta.
:)
Este comentário foi feito pelo moderador no site
Olá, bei mir führt der Code beim Ausführen zu einem Fehler in Zeile 40 "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert". E também em der Beschreibung wir bei mir in Punkt 4. Weder nach dem Ordner noch nach dem Mail-Konto gefragt.
Este comentário foi feito pelo moderador no site
Olá, Jörg.N
Se você receber a mensagem de prompt de erro, verifique se você perdeu a etapa 3 deste artigo.
Você deve seguir os passos do artigo passo a passo, se ainda houver problema, por favor comente aqui.
Obrigado!
Este comentário foi feito pelo moderador no site
Olá, fiz da forma descrita. A etapa 3 (Biblioteca de Objetos do MS Excel 16.0) já estava ativa. Desativei e habilitei com atraso novamente. Quando clico em F5, não há dúvida de que uma pasta é armazenada. Recebo uma mensagem de erro: Erro na linha 40: "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert".
Este comentário foi feito pelo moderador no site
Olá, parece que minha resposta não foi enviada. Testei o script novamente. Mesma mensagem de erro. Eu não perco o passo 3. Esse tópico estava/já está ativo. Desativei e depois habilitei novamente. Mesmo resultado. Ele sempre para na linha 40. Alguma idéia?
Este comentário foi feito pelo moderador no site
Olá, Jörg Normann

O código funciona bem no meu Outlook, qual versão do Outlook você usou? Ou você pode enviar a captura de tela do erro aqui.
Obrigado!
Este comentário foi feito pelo moderador no site
Estou usando o Outlook do MS Office 2019 Pro plus 64 bits em alemão sempre na versão mais recente. Como posso enviar uma foto?
Este comentário foi feito pelo moderador no site
Olá,
Pode ser que você deva ativar todas as configurações de macros, faça assim:
No seu Outlook, clique em Envie o > Opções > trust Center > Configurações da Central de confiança > Configurações de macro, e então verifique Habilitar todas as macros e Aplicar configurações de segurança de macro aos suplementos instalados opções.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-option-setting.png

Depois de terminar esta configuração, reinicie o Outlook.

Por favor, tente, obrigado!
Este comentário foi feito pelo moderador no site
Olá,
ich habe exakt den gleichen Fehler wie Jörg. Ich habe Office Professional Plus 2021 em Deutsch installiert.
Punkt 3 encontra-se em Extras - Verweise. Além disso, a "Biblioteca de Objetos do MS Excel 16.0" também está disponível, incluindo "Visual Basic For Applications", "Biblioteca de Objetos do MS Office 16.0" e "OLE Automation".
Beim Ausführen ebenfalls der "Fehler beim Kompilieren", der Hilfe-Button verrät dann noch "Der Administrator Ihrer Organization hat den für die Verwendung dieser Funktion erforderlichen Dienst deaktiviert."
Aber welcher ist das und wo / wie kann man ihn aktivieren???
Este comentário foi feito pelo moderador no site
Olá, Erich
Pode ser que você deva ativar todas as configurações de macros, faça assim:
No seu Outlook, clique em Envie o > Opções > trust Center > Configurações da Central de confiança > Configurações de macro, e então verifique Habilitar todas as macros e Aplicar configurações de segurança de macro aos suplementos instalados opções.

Depois de terminar esta configuração, reinicie o Outlook.

Por favor, tente, obrigado!
Este comentário foi feito pelo moderador no site
Olá,
Obrigado pela sua resposta rápida. Acho que já configurei todas as opções necessárias. Mas não consigo encontrar o "Aplicar configurações de segurança de macro aos suplementos instalados"
Eu gostaria de enviar algumas capturas de tela, mas não consigo encontrar como nesta página.
Atenciosamente Erich Hackel
Este comentário foi feito pelo moderador no site
Olá, Erich,
Se você não encontrar a opção "Aplicar configurações de segurança de macro aos suplementos instalados", veja a captura de tela abaixo:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-option-setting.png
Este comentário foi feito pelo moderador no site
Além disso, você precisa selecionar "Biblioteca de objetos do Microsoft Outlook 16.0" como referência.
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos