Note: The other languages of the website are Google-translated. Back to English

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ă


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (2)
Evaluat 5 din 5 · evaluări 1
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cel mai excelent sfat. Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ne-a economisit mult timp. Mulțumesc pentru instrucțiunile detaliate. A mers perfect! :)
Evaluat 5 din 5
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL