Hogyan lehet gyorsan kibontani vagy összecsukni az Outlook összes levélmappáját

Időnként érdemes lehet egyszerre kibontani vagy összecsukni az összes levélmappát a levélnavigációs ablaktáblában. Ebben az esetben használhatja az itt bemutatott módszereketost.

Bizonyos okok miatt, például a különböző mappákban és almappákban lévő e-mailek kényelmesebb ellenőrzése érdekében, érdemes lehet az összes levélmappát kibontani. Hasonlóképpen, ha úgy érzi, hogy az összes mappa kibontva tartásával a levél navigációs panel túl bonyolultnak tűnik, érdemes lehet az összes mappát összecsukni. Ezen a ponton, ha manuálisan kibontja vagy összecsukja őket egyenkénti kattintással, az meglehetősen fárasztó lesz. Ezért egy sokkal gyors módszerre kell vágynia, amellyel az összes levélmappa egyszerre kibővíthető vagy összecsukható. Most egy ilyen eszközt fogunk bemutatni Önnek.

Bontsa ki az Összes levélmappa elemet

1. Elsősorban start az Outlook programot a szokásos módon.
2. Ezután nyomja meg az „Alt + F11” billentyűket az Outlook főablakában.
3. Ezután az Outlook VBA-szerkesztő ablakában nyisson meg egy üres modult.
4. Ezt követően másolja be a következő VBA-kódokat ebbe a modulba.

Sub ExpandAllMailFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objPSTFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder

    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
    'Specify a specific pst file
    'Change "PSTName" to the name of your own Outlook PST file
    Set objPSTFolders = Application.Session.Folders("PSTName").Folders
 
    For Each objFolder In objPSTFolders
        Call ProcessFolder(objFolder)
    Next

    DoEvents
    Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
End Sub

Sub ProcessFolder(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    'Only expand the mail folders
    If objCurFolder.DefaultItemType = olMailItem Then
       Set Application.ActiveExplorer.CurrentFolder = objCurFolder
       DoEvents
 
       'Process all subfolders recursively
       If objCurFolder.Folders.Count > 0 Then
          For Each objSubfolder In objCurFolder.Folders
              Call ProcessFolder(objSubfolder)
          Next
       End If
    End If
End Sub

5. Ezután kattintson a „Run Sub” gombra az eszköztáron, vagy nyomja meg az F5 billentyűt az új makró elindításához.
6. Azonnal kibővítik az előre meghatározott Outlook PST-fájl összes levélmappáját.

Összes levélmappa összecsukása

Összehasonlítva az összes levélmappa kibontásával, az összecsukás sokkal könnyebb. Egyszerűen összecsukhatja az adott Outlook PST-fájl gyökerét, majd újra kibonthatja. Ehhez kattintson a PST-fájl legfelső szintű mappája előtti nyílra, mint az alábbi képernyőképen. Ezután kattintson újra a nyílra a fájl kibontásához. Láthatja, hogy az összes almappát összecsukták.

Kezelje rugalmasan a zavaró PST-hibákat

Kapott valaha hibaüzenetet az Outlook használata közben? Ha évtizedek óta használja az Outlookot, akkor biztosan. Az Outlook kétségtelenül ki van téve a hibáknak. Így az Outlook adatainak jobb védelme érdekében rendszeresen biztonsági másolatot kell készítenie az Outlook PST fájljáról. Ezenkívül javasolt megtartani a PST javítás eszköz a közelben, mint DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült sql és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com