Як отримати список папок в Outlook?

Іноді деревоподібна структура всіх поштових папок (включаючи створені особисті папки) в області переходів може допомогти користувачам Outlook під час їх роботи. Для швидкого переліку всіх папок деревної структури код VBA може вам допомогти. У цьому посібнику ви зможете дізнатися, як легко отримати список папок за допомогою коду VBA.

Отримайте список папок в Outlook із кодом VBA

Вкладка Office - увімкніть редагування та перегляд із вкладками в Microsoft Office, що полегшить роботу

Детальніше ...Завантажити ...

Kutools для Outlook - покращте Outlook за допомогою 100+ розширених функцій для надзвичайної ефективності

Автоматизуйте надсилання електронних листів за допомогою Авто CC / BCC, Автоматичне пересилання вперед за правилами; відправити Автовідповідь (Поза офісом) без необхідності сервера обміну...
Отримуйте нагадування як Попередження BCC коли ви відповідаєте всім, поки ви перебуваєте в списку прихованих копій, і Нагадати про відсутність вкладень за забуті вкладення...
Підвищте ефективність електронної пошти за допомогою Відповісти (всім) із вкладеннями, Автоматичне додавання привітання або дати й часу до підпису чи теми, Відповісти на кілька електронних листів...
Оптимізація електронної пошти за допомогою Відкликати електронні листи, Інструменти кріплення (Стиснути все, автоматично зберегти все...), Видалити дублікати та Швидкий звіт...

Покращіть свій Outlook 2021 - 2010 або Outlook 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. Тепер a Macro з'явиться діалогове вікно, клацніть на прогін кнопки.

6. Дочекайтеся запуску макросу. Потім список усіх ваших папок електронної пошти негайно відображається у створеному новому вікні повідомлень. Ви можете легко роздрукувати його. Дивіться знімок екрана: