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

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

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

---

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

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

Детальніше ... Скачати зараз...