Come esportare la struttura delle cartelle da Outlook a Excel?

In questo articolo, introdurrò come esportare la struttura delle cartelle di un account da Outlook a un file Excel. Per favore, raggiungilo con i dettagli di questo articolo.

Esporta la struttura delle cartelle di un account da Outlook a Excel utilizzando il codice VBA

Esporta la struttura delle cartelle di un account da Outlook a Excel utilizzando il codice VBA

Il seguente codice VBA potrebbe farti un favore, per favore esegui i passaggi seguenti:

1. Abilita Excel e tieni premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: esporta la struttura delle cartelle di un account da Outlook a 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. Ancora nella Microsoft Visual Basic, Applications Edition finestra, fare clic Tools > Bibliografia per andare al Riferimenti-Progetto1 finestra di dialogo e selezionare Libreria di oggetti di Microsoft Excel opzione dal Riferimenti disponibili casella di riepilogo, vedi screenshot:

4. Quindi fare clic OK pulsante e premere F5 chiave per eseguire questo codice, a Seleziona cartella viene visualizzata la finestra di dialogo, selezionare l'account di posta elettronica che si desidera esportare la sua struttura di cartelle, vedere screenshot:

5. Quindi fare clic su OK pulsante, a File Salva viene visualizzata la finestra, specificare una posizione e un nome file per questo file esportato, vedere screenshot:

6. Finalmente, clicca Risparmi pulsante e puoi andare alla cartella di lavoro Excel specifica che hai salvato per visualizzare la struttura delle cartelle esportate, vedi screenshot:

---

I migliori strumenti per la produttività in ufficio

Ultime notizie: Kutools per Outlook lancia la versione gratuita!

Prova la nuovissima versione GRATUITA di Kutools per Outlook con oltre 70 incredibili funzionalità, tue da usare PER SEMPRE! Clicca per scaricare ora!

🤖 Kutools AI : Utilizza la tecnologia AI avanzata per gestire le e-mail senza sforzo, incluse la risposta, il riepilogo, l'ottimizzazione, l'estensione, la traduzione e la composizione delle e-mail.

???? Automazione di posta elettronica: Risposta automatica (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiamare le e-mail  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Advanced Search  /  Consolidare cartelle ...

📁 Allegati Pro: Salvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Ricordarti quando arrivano email importanti  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con allegati  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Utilizza Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!

Sblocca subito Kutools per Outlook con un solo clic. Non aspettare, scaricalo ora e aumenta la tua efficienza!

Elenco delle funzionalità di Kutools per Outlook      Scarica la versione gratuita      Passa a Professional