Как экспортировать и распечатать список всех папок и подпапок в Outlook?
В общем, вы можете нажать клавиши «Ctrl» + «6», чтобы просмотреть список всех папок на панели навигации в Outlook. Однако вы не сможете напрямую распечатать список папок. В этой статье представлены два скрипта VBA для экспорта и печати списка всех папок и их подпапок в Outlook.
- Экспорт и печать списка всех папок и подпапок Outlook в новом письме
- Экспорт и печать списка всех папок и подпапок Outlook в Блокноте
Экспорт и печать списка всех папок и подпапок Outlook в новом письме
Этот метод представляет собой скрипт VBA, который экспортирует список всех папок и их подпапок указанной учетной записи электронной почты в новое письмо в Outlook. После этого вы сможете легко распечатать список папок.
1. Нажмите «Alt» + «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. В появившемся диалоговом окне «Выбрать папку» выберите учетную запись электронной почты, список папок которой вы хотите распечатать, и нажмите «ОК».
5. Список папок выбранной учетной записи будет скопирован в новое письмо, как показано ниже. Нажмите «Файл» > «Печать», чтобы распечатать список папок.
6. После печати закройте новое письмо, не сохраняя его.
Экспорт и печать списка всех папок и подпапок Outlook в Блокноте
Этот метод представляет собой скрипт VBA, который экспортирует список всех папок и их подпапок указанной учетной записи электронной почты из Outlook в Блокнот. После этого вы сможете легко распечатать список папок.
1. Нажмите «Alt» + «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. В открывающемся диалоговом окне «Выбрать папку» выберите учетную запись электронной почты, список папок которой вы хотите экспортировать и распечатать, затем нажмите «ОК».
4. Появится диалоговое окно «Дерево выходных папок». Нажмите «Да» или «Нет» в зависимости от того, хотите ли вы включить отступ дерева.
Теперь текстовый файл с именем «Outlook-Folders» создан и сохранен на вашем рабочем столе, как показано ниже:
5. Дважды щелкните, чтобы открыть новый текстовый файл, затем нажмите «Файл» > «Печать», чтобы распечатать экспортированный список папок Outlook.
AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО
Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.

Эта функция поддерживает:
- Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
- Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
- Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
- Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
- Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
- Глобальный охват: Легко переводите ваши письма на любой язык.
Эта функция поддерживает:
- Умные ответы на письма
- Оптимизированное содержание
- Черновики на основе ключевых слов
- Интеллектуальное расширение содержания
- Краткое изложение писем
- Перевод на несколько языков
Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь
Связанные статьи
Показать или скрыть представление списка папок в Outlook
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Kutools для Outlook запускает бесплатную версию!
Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...
👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...

