Jak automatycznie rozszerzyć wszystkie foldery za pomocą VBA podczas uruchamiania programu Outlook

Wielu użytkowników liczy na to, że wszystkie foldery będą mogły być automatycznie rozwijane po uruchomieniu Outlooka. W rzeczywistości Outlook nie obsługuje tego natywnie. Aby to osiągnąć, trzeba użyć kodu VBA. Ten post zawiera krótki poradnik.

Możliwe, że utworzyłeś wiele podfolderów w domyślnych folderach w Outlooku. W obliczu tak dużej liczby folderów, aby mieć do nich szybki dostęp w dowolnym momencie, możesz chcieć, aby wszystkie foldery były stale rozwijane. Pierwszym krokiem musi być skonfigurowanie Outlooka tak, aby automatycznie rozwijał foldery podczas uruchamiania. Oczywiście Outlook nie posiada takiej wbudowanej funkcji. Dlatego musisz skorzystać z makr. Następnie nauczymy Cię, jak to zrobić za pomocą VBA. Informacje na temat stosowania VBA znajdziesz w innym artykule – „Jak uruchomić kod VBA w swoim Outlooku".

Automatyczne rozwijanie wszystkich folderów podczas uruchamiania programu Outlook

1. Na początek naciśnij „Alt + F11” w Outlooku, aby uzyskać dostęp do edytora VBA.
2. Następnie w nowym oknie umieść kod w projekcie „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. Następnie zamknij edytor VBA.
4. Następnie poprawnie zamknij aplikację Outlook.
5. Następnie uruchom Outlooka. W tym momencie makro uruchomi się automatycznie.
6. Po uruchomieniu programu Outlook widać, że wszystkie foldery zostały rozwinięte, jak pokazano na poniższym rysunku.

Trzymaj wszystkie złośliwe makra z dala

Czy kiedykolwiek otrzymałeś e-maile z załączonymi podejrzanymi plikami lub z nieznanymi linkami? Zwykle w obliczu takich e-maili trzeba zachować czujność. Nigdy nie należy im ufać, ponieważ mogą przenosić wirusy. Po pobraniu załączników lub otwarciu linków nie tylko program Outlook, ale także komputer może zostać zaatakowany. W takim razie musisz napraw Outlooka plik. Może to być dość zawiłe, chyba że masz zaktualizowaną kopię zapasową programu Outlook lub korzystasz z potężnego narzędzia do odzyskiwania, takiego jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server korupcja i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com