Salt la conținutul principal

Cum se exportă și se tipărește lista tuturor folderelor și subfolderelor din Outlook?

În general, puteți apăsa Ctrl + 6 tastele pentru a vizualiza lista tuturor folderelor din panoul de navigare din Outlook. Cu toate acestea, nu puteți imprima lista de foldere. Acest articol va introduce două scripturi VBA pentru a exporta și tipări lista tuturor folderelor și a subdirectoarelor acestora în Outlook.


Exportați și tipăriți lista tuturor folderelor Outlook și a subfolderelor acestora într-un e-mail nou

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.


Exportați și tipăriți lista tuturor folderelor Outlook și subdirectoarele din Notepad

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.


toate folderele arată numărul total kto 9.00

Articole pe aceeaşi temă


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thank you so much for this very valuable post. It really helped me a lot as outlook is still not able to show the folder structure!
This comment was minimized by the moderator on the site
Saved us a ton of time. Thanks for the detailed instructions. Worked like a charm! :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
Most excellent tip. Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations