Как автоматически развернуть все папки с помощью 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 коррупция и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com