Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum se exportă și se imprimă lista cu toate folderele și subdosarele în Outlook?

În general vorbind, puteți apăsa Ctrl + 6 pentru a vizualiza lista tuturor dosarelor din Panoul de navigare din Outlook. Cu toate acestea, nu puteți imprima lista de directoare. Acest articol va introduce două scripturi VBA pentru a exporta și a imprima lista cu toate folderele și subfolderele lor în Outlook.

Un singur clic pentru a afișa numărul total de elemente din toate dosarele din Panoul de navigare din Outlook

În mod normal, Outlook afișează numărul de elemente necitite din fiecare dosar din panoul de navigare. Dar, Kutools pentru Outlook Toate folderele afișează numărul total de elemente vă poate ajuta să afișați numărul total de elemente din toate dosarele cu un singur clic. Faceți clic pe încercarea gratuită 60-zile fără limitare!
toate folderele arată numărul total kto 9.00

Kutools pentru Outlook: 100 + Noi instrumente avansate pentru Outlook.
Tab-ul Office: Activați editarea și navigarea cu file în Office, La fel ca Chrome, Firefox, IE 8 / 9 / 10.
Meniul clasic: Aduceți înapoi meniurile vechi și barele de instrumente pentru Office 2007, 2010, 2013, 2016 și 2019.

săgeată albastru dreapta bule Exportați și imprimați lista cu toate dosarele Outlook și subfolderele acestora în e-mail nou

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

1. presa Alt + F11 pentru a deschide fereastra Microsoft Visual Basic for Applications.

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

VBA: Exportați lista de directoare și subdirectoare într-un nou e-mail î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 cheie pentru a rula acest VBA.

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

5. Acum, lista de dosare a contului de e-mail specificat este copiată într-un nou e-mail, așa cum este prezentat mai jos. Dați clic pe Fișier > Imprimare pentru a imprima lista de foldere copiate.

6. După imprimare, închideți noul e-mail fără a salva.


săgeată albastru dreapta bule Exportați și imprimați lista tuturor folderelor Outlook și a subfolderelor din Notepad

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

1. presa Alt + F11 pentru a deschide fereastra Microsoft Visual Basic for Applications.

2. clic Insera > Module, apoi lipiți sub 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 cheie pentru a rula acest VBA. În continuare, în caseta de dialog Selectare folder selectare, selectați contul de e-mail a cărui listă de directoare doriți să exportați și tipăriți și faceți clic pe OK buton. Vedeți captura de ecran:

4. Apoi apare caseta de dialog Tree Output Folder. Faceți clic pe da butonul sau Nu butonul de care aveți nevoie.

Și acum un fișier text numit ca Outlook-foldere este creată și salvată pe desktop, așa cum arată imaginea de mai jos.

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


săgeată albastru dreapta buleArticole pe aceeaşi temă



Kutools pentru Outlook

Mai mult decât funcțiile avansate 100 pentru Outlook 2010, 2013, 2016, 2019 și 365

ecran shot kutools pentru outlook minuscule pentru banner 201812

Mai multe caracteristici | Descărcare gratuită | Doar $ 39.00 pentru sute de funcții

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.