Как автоматически развернуть все папки через VBA, когда StarВаш прогноз

Перспективные решения 29 сентября, 2025
Поделись сейчас:

Несколько пользователей надеются, что все папки могут быть автоматически расширены при запуске Outlook. На самом деле Outlook изначально не поддерживает его. Таким образом, чтобы реализовать это, вы должны использовать код VBA. Это рost даст вам краткое руководство.

Возможно, вы создали множество подпапок в папках по умолчанию в Outlook. Перед лицом такого количества папок, чтобы быстро получить к ним доступ в любое время, вы можете захотеть постоянно держать все папки развернутыми. Первый шаг должен состоять в том, чтобы заставить Outlook автоматически разворачивать папки на starтуп. Очевидно, что в Outlook нет такой встроенной функции. Таким образом, вы должны использовать макросы. В дальнейшем мы научим вас делать это с помощью VBA. Что касается того, как применять VBA, вы можете обратиться к другой статье — «Как запустить код VBA в Outlook».

Автоматически разворачивать все папки, когда Starвнешний вид

  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

Код VBA - автоматическое развертывание всех папок при Starвнешний вид

  1. После этого закройте редактор VBA.
  2. Затем правильно закройте приложение Outlook.
  3. Позже, сtarт ваш Outlook. В этот момент макрос запустится автоматически.
  4. После Outlook сtarts up, вы можете видеть, что все папки были развернуты, как показано на рисунке ниже.Все папки развернуты

Держите все вредоносные макросы в страхе

Вы когда-нибудь получали письма с подозрительными файлами или со встроенными неизвестными ссылками? Обычно при столкновении с такими электронными письмами приходится повышать бдительность. Вы никогда не должны легко доверять им в том, что они могут нести вирусы. Как только вы загрузите вложения или откроете ссылки, атаке может подвергнуться не только Outlook, но и компьютер. В то время вы должны восстановить Outlook файл. Это может быть довольно запутанным, если у вас нет обновленной резервной копии Outlook или вы не используете мощный инструмент восстановления, такой как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая SQL Server коррупция и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.