Порада. Інші мови - перекладена Google. Ви можете відвідати English версія цього посилання.
увійти
x
or
x
x
Реєстрація
x

or

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

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

Один клік, щоб показати загальну кількість елементів у всіх папках на панелі навігації в Outlook

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

Kutools для Outlook: 100 + Нові розширені інструменти для Outlook.
Вкладка Office: Увімкнути редагування та перегляду вкладок в Office, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Класичне меню: Повернути старі меню та панелі інструментів для Office 2007, 2010, 2013, 2016 та 2019.

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

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

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

2. клацання вставка > Модулі, а потім вставте код 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 в Notepad, а потім ви можете легко роздрукувати список папок Outlook у Блокнот.

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

2. клацання вставка > Модулі, а потім вставте код 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 Потім з'явиться діалогове вікно Output Tree Tree. Будь ласка, натисніть на да кнопка або Немає кнопка, як вам потрібно.

І тепер текстовий файл іменований як Outlook-Folders створено та збережено на робочому столі, як показано на малюнку.

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


Стрілка синього правого міхураСтатті по темі



Kutools для Outlook

Більше 100 Розширені функції для Outlook 2010, 2013, 2016, 2019 і 365

Екран знімав kutools для перспективи крихітний для банера 201812

додаткові можливості | Безкоштовне завантаження | Тільки $ 39.00 для сотень функцій

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.