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
- Exportați și tipăriți lista tuturor folderelor Outlook și subdirectoarele din Notepad
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.
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 Pro: Salvaț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.