Перейти до основного матеріалу

Як експортувати та роздрукувати список усіх папок і підпапок в Outlook?

Взагалі кажучи, ти можеш натиснути Ctrl + 6 клавіші, щоб переглянути список усіх папок на панелі навігації в Outlook. Однак ви не можете надрукувати список папок. У цій статті буде представлено два сценарії VBA для експорту та друку списку всіх папок та їх підпапок в Outlook.


Експортуйте та роздрукуйте список усіх папок Outlook та їх підпапок у новій електронній пошті

Цей метод запровадить VBA для експорту списку всіх папок та їх підпапок у вказаному обліковому записі електронної пошти в нову електронну пошту в Outlook, а потім ви зможете легко роздрукувати список папок.

1. прес інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. клацання Insert > Модулі, а потім вставте нижче коду VBA у нове вікно модуля.

VBA: Експортуйте список папок і підпапок в новій електронній пошті в 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. прес F5 ключ для запуску цього VBA.

4. У діалоговому вікні Вибір папки, що з’явиться, виберіть обліковий запис електронної пошти, список папок якого потрібно надрукувати, та натисніть OK кнопку. Дивіться знімок екрана:

5. І тепер список папок зазначеного облікового запису електронної пошти копіюється в новий електронний лист, як показано на знімку екрана нижче. Клацніть філе > друк щоб надрукувати скопійований список папок.

6. Після друку, будь ласка, закрийте новий електронний лист, не зберігаючи.


Експортуйте та роздрукуйте список усіх папок Outlook та підпапок у Блокноті

Цей метод запровадить VBA для експорту списку всіх папок та їх підпапок у вказаному обліковому записі електронної пошти з Outlook у Блокнот, а потім ви зможете легко роздрукувати список папок Outlook у Блокноті.

1. прес інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. клацання Insert > Модулі, а потім вставте нижче коду VBA у нове вікно модуля.

VBA: експортуйте список усіх папок та підпапок Outlook з Outlook у Блокнот

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. прес F5 ключ для запуску цього VBA. Далі у діалоговому вікні Вибір папки, що відкриється, виберіть обліковий запис електронної пошти, список папок якого ви хочете експортувати та роздрукувати, та клацніть на OK кнопку. Дивіться знімок екрана:

4. Потім з’явиться діалогове вікно Дерево вихідних папок. Клацніть на Так кнопка або Немає кнопку, як вам потрібно.

А тепер текстовий файл з назвою Папки Outlook створюється та зберігається на вашому робочому столі, як показано на знімку екрана нижче.

5. Двічі клацніть, щоб відкрити новий текстовий файл, а потім клацніть філе > друк для друку експортованого списку папок Outlook.

Одним клацанням миші відображається загальна кількість елементів у всіх папках на панелі навігації в Outlook

Зазвичай Outlook показує кількість непрочитаних елементів у кожній папці на панелі переходів. Але, Kutools для Outlook Усі папки показують загальну кількість елементів Ця функція може допомогти вам показати загальну кількість елементів у всіх папках лише одним клацанням миші.


усі папки показують загальну кількість до 9.00

Статті по темі


Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення ProПакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

 

 

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