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

Як експортувати та роздрукувати список усіх папок і підпапок в 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 і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Коментарі (2)
Оцінено 5 з 5 · рейтинги 1
Цей коментар був мінімізований модератором на сайті
Найпрекрасніша порада. Дякую!
Цей коментар був мінімізований модератором на сайті
Заощадив нам купу часу. Дякую за детальну інструкцію. Спрацювало як шарм! :)
Оцінено 5 з 5
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL