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

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

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

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

Вкладка Office - увімкніть редагування та перегляд вкладок в Office та значно спростіть роботу ...
Kutools для 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. Тепер a Macro з'явиться діалогове вікно, клацніть на прогін кнопки.

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

примітки: Цей код VBA можна застосувати до Outlook 2007, 2010 та 2013.


Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Коментарі (2)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Ідеальна робота з OLK 365, дякую!
Цей коментар був мінімізований модератором на сайті
Щоб отримати розмір папок, як це зробити?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL