Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come esportare e stampare l'elenco di tutte le cartelle e sottocartelle in Outlook?

In generale, puoi premere Ctrl + 6 chiavi per visualizzare l'elenco di tutte le cartelle nel riquadro di spostamento in Outlook. Tuttavia, non è possibile stampare l'elenco di cartelle. Questo articolo introdurrà due script VBA per esportare e stampare l'elenco di tutte le cartelle e le relative sottocartelle in Outlook.

Un clic per mostrare il numero totale di elementi in tutte le cartelle nel riquadro di spostamento in Outlook

Normalmente, Outlook mostra il numero di elementi non letti in ciascuna cartella nel riquadro di spostamento. Ma, Kutools per Outlook Tutte le cartelle mostrano il numero totale di articoli funzionalità può aiutarti a mostrare il numero totale di elementi in tutte le cartelle con un solo clic. Fai clic per la prova gratuita 60-day senza limiti!
tutte le cartelle mostrano il numero totale kto 9.00

Kutools for Outlook: 100 + Nuovi strumenti avanzati per Outlook.
Office Tab: Abilita la modifica e la navigazione a schede in Office, Proprio come Chrome, Firefox, IE 8 / 9 / 10.
Menu classico: Porta indietro i vecchi menu e le barre degli strumenti a Office 2007, 2010, 2013, 2016 e 2019.

freccia blu bolla destra Esportare e stampare l'elenco di tutte le cartelle di Outlook e le relative sottocartelle nella nuova e-mail

Questo metodo introdurrà un VBA per esportare l'elenco di tutte le cartelle e le relative sottocartelle in un account e-mail specificato in una nuova e-mail in Outlook, e quindi è possibile stampare facilmente l'elenco di cartelle.

1. Stampa altro + F11 le chiavi per aprire la finestra di Microsoft Visual Basic.

2. Clic inserire > Moduloe quindi incollare sotto il codice VBA nella nuova finestra del modulo.

VBA: esporta l'elenco di cartelle e sottocartelle in una nuova email in 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. Stampa F5 chiave per eseguire questo VBA.

4. Nella finestra di dialogo Seleziona cartella a comparsa, selezionare l'account e-mail di cui si desidera stampare l'elenco di cartelle e fare clic su OK pulsante. Vedi screenshot:

5. E ora l'elenco delle cartelle dell'account e-mail specificato viene copiato su una nuova e-mail come mostrato di seguito. Per favore clicca filetto > Stampar per stampare l'elenco copiato di cartelle.

6. Dopo la stampa, chiudi la nuova email senza salvare.


freccia blu bolla destra Esporta e stampa l'elenco di tutte le cartelle di Outlook e contiene le sottocartelle nel Blocco note

Questo metodo introdurrà un VBA per esportare l'elenco di tutte le cartelle e le relative sottocartelle in un account e-mail specificato da Outlook a Blocco note e quindi stampare facilmente l'elenco delle cartelle di Outlook nel Blocco note.

1. Stampa altro + F11 le chiavi per aprire la finestra di Microsoft Visual Basic.

2. Clic inserire > Moduloe quindi incollare sotto il codice VBA nella nuova finestra del modulo.

VBA: esporta l'elenco di tutte le cartelle e sottocartelle di Outlook da Outlook a Blocco note

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. Stampa F5 chiave per eseguire questo VBA. Successivamente nella finestra di dialogo di apertura Seleziona cartella, selezionare l'account di posta elettronica di cui si desidera esportare e stampare l'elenco di cartelle e fare clic su OK pulsante. Vedi screenshot:

4. Quindi viene visualizzata la finestra di dialogo Albero delle cartelle di output. Si prega di fare clic sul pulsante o non pulsante di cui hai bisogno.

E ora un file di testo chiamato come Outlook-Folders viene creato e salvato sul desktop come mostrato nell'immagine sottostante.

5. Fare doppio clic per aprire il nuovo file di testo, quindi fare clic filetto > Stampar per stampare l'elenco esportato di cartelle di Outlook.


freccia blu bolla destraarticoli Correlati



Kutools for Outlook

Più di 100 Funzioni avanzate per Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools per outlook minuscolo per banner 201812

Altre caratteristiche | Scarica gratis | Solo $ 39.00 per centinaia di funzioni

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.