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

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

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

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

Вкладка Office - включите редактирование и просмотр с вкладками в Office и сделайте работу намного проще ...
Kutools for Outlook - приносит 100 мощных расширенных функций в Microsoft Outlook
  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Множественные письма по правилам; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показывать сообщение при попытке ответить всем, если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой переписке; Отвечайте сразу на несколько писем; Автоматическое добавление приветствия при ответе; Автоматически добавлять дату и время в тему ...
  • Инструменты для вложения: Автоотключение, Сжать все, Переименовать все, Автосохранение всех ... Быстрый отчет, Подсчет выбранных писем, Удаление повторяющихся писем и контактов ...
  • Более 100 дополнительных функций будут решить большинство ваших проблем в Outlook 2021–2010 или Office 365. Полнофункциональная 60-дневная бесплатная пробная версия.

стрелка синий правый пузырьПолучить список папок в Outlook с кодом VBA

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

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

2. Затем дважды щелкните значок Project1 > Объект Microsoft Outlook > ThisOutlookSession для открытия Project1 - ThisOutlookSession окно. Смотрите скриншот:

3. Затем скопируйте и вставьте приведенный ниже код VBA в окно Project1 - ThisOutlookSession.

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. Теперь Макрос появится диалоговое окно, нажмите Run кнопку.

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

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


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (2)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Отлично работает с OLK 365, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Для получения размера папок, как вы это делаете?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL