Як автоматично розгорнути всі папки за допомогою VBA під час запуску Outlook

Багато користувачів сподіваються, що всі папки можна буде автоматично розгорнути під час запуску Outlook. Насправді Outlook не підтримує цю функцію за допомогою вбудованого коду. Тому, щоб це реалізувати, потрібно використовувати код VBA. У цій статті наведено короткий посібник.

Можливо, ви створили багато вкладених папок у папках за замовчуванням в Outlook. З огляду на таку велику кількість папок, щоб мати до них швидкий доступ у будь-який час, ви можете захотіти постійно тримати всі папки розгорнутими. Першим кроком має бути автоматичне розгортання папок під час запуску Outlook. Очевидно, що в Outlook немає такої вбудованої функції. Тому вам доведеться використовувати макроси. Далі ми навчимо вас, як цього досягти за допомогою VBA. Щодо того, як застосовувати VBA, ви можете звернутися до іншої статті – «Як запустити код VBA у своєму Outlook».

Автоматично розгортати всі папки під час запуску Outlook

1. Для початку натисніть «Alt + F11» у своєму Outlook, щоб отримати доступ до редактора VBA.
2. Потім у новому вікні вставте код у проект “ThisOutlookSession”.

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. Після цього закрийте редактор VBA.
4. Згодом вийдіть із програми Outlook належним чином.
5. Пізніше запустіть Outlook. На цьому етапі макрос запуститься автоматично.
6. Після запуску Outlook ви побачите, що всі папки розгорнуто, як показано на малюнку нижче.

Зберігайте всі шкідливі макроси в бухті

Ви коли-небудь отримували електронні листи, до яких додаються підозрілі файли або в них вбудовані невідомі посилання? Зазвичай, стикаючись з такими електронними листами, доводиться підвищувати пильність. Ви ніколи не повинні легко довіряти їм у тому, що вони можуть переносити віруси. Після завантаження вкладень або відкриття посилань може бути атакований не лише Outlook, а й комп’ютер. У той час ти мусиш ремонт Outlook файл. Це може бути досить вузливим, якщо у вас немає оновленої резервної копії Outlook або використання потужного інструменту відновлення, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі SQL Server корупція та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com