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

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

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

Получить список папок в 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 умнее, быстрее и лучше.

Больше информации... Скачать сейчас...