Jak automatycznie rozwinąć wszystkie foldery za pomocą VBA, gdy Startowanie programu Outlook

Wielu użytkowników ma nadzieję, że wszystkie foldery zostaną automatycznie rozszerzone po uruchomieniu programu Outlook. W rzeczywistości program Outlook nie obsługuje go natywnie. Tak więc, aby to zrealizować, musisz użyć kodu VBA. To post udzieli ci szybkiego przewodnika.

Być może utworzyłeś wiele podfolderów w domyślnych folderach w Outlooku. W obliczu tak wielu folderów, aby mieć do nich szybki dostęp w dowolnym momencie, możesz chcieć, aby wszystkie foldery były przez cały czas rozwinięte. Pierwszym krokiem musi być sprawienie, aby program Outlook automatycznie rozwijał foldery na starkafar. Oczywiście w Outlooku nie ma takiej natywnej funkcji. Dlatego musisz korzystać z makr. Następnie nauczymy Cię, jak to osiągnąć za pomocą VBA. Jeśli chodzi o zastosowanie VBA, możesz odnieść się do innego artykułu – „Jak uruchomić kod VBA w swoim Outlooku".

Automatycznie rozwiń wszystkie foldery, gdy Starprogram 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. później starTwój Outlook. W tym momencie makro uruchomi się automatycznie.
6. Po programie Outlook starts up, możesz zobaczyć, ż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