Această metodă va introduce un VBA pentru a exporta lista tuturor folderelor și a subfolderelor acestora într-un cont de e-mail specificat într-un e-mail nou în Outlook, iar apoi puteți imprima cu ușurință lista de foldere.

1. presa Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. clic Insera > Module, și apoi lipiți mai jos codul VBA în noua fereastră a modulului.

VBA: Exportați lista de foldere și subfoldere într-un e-mail nou în 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. presa F5 tasta pentru a rula acest VBA.

4. În caseta de dialog Select Folder, selectați contul de e-mail a cărui listă de foldere doriți să o imprimați și faceți clic pe OK buton. Vedeți captura de ecran:

5. Și acum lista de dosare a contului de e-mail specificat este copiată într-un e-mail nou, după cum se arată mai jos. Vă rugăm să faceți clic pe Fișier > pentru a imprima lista copiată de foldere.

6. După tipărire, vă rugăm să închideți noul e-mail fără a salva.

Această metodă va introduce un VBA pentru a exporta lista tuturor folderelor și a subfolderelor acestora într-un cont de e-mail specificat din Outlook în Notepad, iar apoi puteți imprima cu ușurință lista folderelor Outlook în Notepad.

1. presa Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. clic Insera > Module, și apoi lipiți mai jos codul VBA în noua fereastră a modulului.

VBA: Exportați lista tuturor folderelor și subfolderelor Outlook din Outlook în Notepad

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. presa F5 tasta pentru a rula acest VBA. Apoi în fereastra de dialog Selectare folder de deschidere, vă rugăm să selectați contul de e-mail a cărui listă de foldere doriți să o exportați și să o imprimați și faceți clic pe OK buton. Vedeți captura de ecran:

4. Apoi apare caseta de dialog Arborele folderului de ieșire. Vă rugăm să faceți clic pe Da butonul sau Nu butonul după cum aveți nevoie.

Și acum un fișier text numit ca Dosare Outlook este creat și salvat pe desktop, după cum se arată în imaginea de mai jos.

5. Faceți dublu clic pentru a deschide noul fișier text, apoi faceți clic pe Fișier > pentru a imprima lista exportată de dosare Outlook.

Un singur clic pentru a afișa numărul total de articole din toate folderele din panoul de navigare din Outlook

În mod normal, Outlook arată numărul de articole necitite din fiecare folder din panoul de navigare. Dar, Kutools pentru Outlook Toate folderele arată numărul total de articole funcția vă poate ajuta să afișați numărul total de articole din toate folderele cu un singur clic.

Afișați sau ascundeți vizualizarea listei de dosare în Outlook