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 a subdirectoarelor acestora în 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 Sub3. 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 a subdirectoarelor acestora în 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 Function3. 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.
AI Mail Assistant în Outlook: răspunsuri mai inteligente, comunicare mai clară (magie cu un singur clic!) GRATUITA
Eficientizați-vă sarcinile zilnice Outlook cu AI Mail Assistant de la Kutools for Outlook. Acest instrument puternic învață din e-mailurile tale anterioare pentru a oferi răspunsuri inteligente și precise, pentru a optimiza conținutul e-mailurilor și pentru a te ajuta să redactezi și să rafinezi mesajele fără efort.
Această funcție acceptă:
- Răspunsuri inteligente: obțineți răspunsuri create din conversațiile dvs. anterioare – personalizate, precise și gata de plecare.
- Conținut îmbunătățit: rafinați automat textul e-mailului pentru claritate și impact.
- Compunere fără efort: furnizați doar cuvinte cheie și lăsați AI să se ocupe de restul, cu mai multe stiluri de scriere.
- Extensii inteligente: extindeți-vă gândurile cu sugestii care țin cont de context.
- Rezumat: obțineți instantaneu prezentari generale concise ale e-mailurilor lungi.
- Acoperire globală: traduceți-vă cu ușurință e-mailurile în orice limbă.
Această funcție acceptă:
- Răspunsuri inteligente la e-mail
- Conținut optimizat
- Schițe bazate pe cuvinte cheie
- Extensie inteligentă de conținut
- Rezumat prin e-mail
- Traducere în mai multe limbi
Cel mai bun din toate, această caracteristică este complet gratuit pentru totdeauna! nu astepta-descărcați AI Mail Assistant acum și bucurați-vă!
Articole pe aceeaşi temă
Afișați sau ascundeți vizualizarea listei de dosare în Outlook
Cele mai bune instrumente de productivitate de birou
Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!
Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!
📧 Automatizare e-mail: Răspuns automat (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: Rechemare e-mailuri / 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 / Amintește-ți când vin e-mailuri importante / 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 ...
