Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

Как получить список папок в Outlook?

Author Siluvia Last modified

Иногда древовидная структура всех почтовых папок (включая созданные личные папки) в Навигационной панели может помочь пользователям Outlook во время работы. Для быстрого вывода всей древовидной структуры папок вам может помочь код VBA. В этом руководстве вы узнаете, как легко получить список папок с помощью кода VBA.

Получите список папок в Outlook с помощью кода VBA


Получите список папок в Outlook с помощью кода VBA

Чтобы получить список папок в Outlook с помощью кода VBA, выполните следующие действия.

1. Нажмите клавиши "Alt" + "F11" на клавиатуре, чтобы открыть окно "Microsoft Visual Basic для приложений".

2. Затем дважды щелкните по "Проект1" > "Объект Microsoft Outlook" > "ЭтаСессияOutlook", чтобы открыть окно "Проект1 – ЭтаСессияOutlook". См. скриншот:

the Project1 – ThisOutlookSession window

3. Затем скопируйте и вставьте приведенный ниже код VBA в окно Проект1 – ЭтаСессияOutlook.

VBA: получение списка папок в Outlook

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

4. Нажмите клавишу "F5" на клавиатуре, чтобы начать выполнение кода VBA.

5. Теперь появится диалоговое окно "Макрос", нажмите кнопку "Выполнить".

a Macro dialog box

6. Дождитесь завершения выполнения макроса. Затем список всех ваших почтовых папок будет показан в новом созданном окне сообщения. Вы можете легко распечатать его. См. скриншот:

the list of all your email folders is listed out in a created new message window

Примечание: Этот код VBA можно применять в Outlook 2007, 2010 и 2013.


Лучшие инструменты для повышения продуктивности работы с Office

Срочные новости: бесплатная версия Kutools для Outlook уже доступна!

Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email — включая Ответ, Резюме, Оптимизацию, Расширение, Перевод и Составление писем.

📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...

📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...

📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...

🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...

👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...

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

Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!

Мгновенно активируйте Kutools для Outlook одним кликом. Не ждите – скачайте и улучшите свою эффективность прямо сейчас!

kutools for outlook features1 kutools for outlook features2

🚀 Скачайте все дополнения Office одним кликом

Рекомендуем: Kutools для Office (5-в-1)

Скачайте сразу пять установщиков одним кликом — Kutools для Excel, Outlook, Word, PowerPoint и Office Tab Pro. Нажмите, чтобы скачать прямо сейчас!

  • Все просто: скачайте все пять установочных пакетов одним действием.
  • 🚀 Готово для любой задачи Office: Установите нужные дополнения тогда, когда они вам понадобятся.
  • 🧰 Включено: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools для PowerPoint