Si të zgjeroni ose kolapsoni shpejt të gjitha dosjet e postës në Outlook tuaj

Ndonjëherë, ju mund të dëshironi të zgjeroni ose fshini të gjitha dosjet e postës në panelin e navigimit të postës me një lëvizje. Në këtë rast, ju mund të përdorni metodat e prezantuara në këtë fost.

Për disa arsye, të tilla si për të kontrolluar emailet në dosje dhe nëndosje të ndryshme në mënyrë më të përshtatshme, mund të dëshironi të zgjeroni të gjitha dosjet e postës. Njëlloj, kur mendoni se mbajtja e të gjitha dosjeve të zgjeruara e bën panelin tuaj të navigimit të postës të duket shumë kompleks, mund të dëshironi të palosni të gjitha dosjet. Në këtë pikë, nëse i zgjeroni ose i fshini ato manualisht duke klikuar një nga një, do të jetë mjaft e lodhshme. Prandaj, ju duhet të dëshironi për një metodë shumë të shpejtë që mund të zgjerojë ose fshijë të gjitha dosjet e postës me një lëvizje. Tani, këtu ne do të zbulojmë një mjet të tillë për ju.

Zgjero të gjitha dosjet e postës

1. Në radhë të parë, start normalisht programin tuaj Outlook.
2. Pastaj shtypni butonat "Alt + F11" në dritaren kryesore të Outlook.
3. Më pas në dritaren e redaktuesit të Outlook VBA, hapni një modul bosh.
4. Më pas, kopjoni kodet e mëposhtme VBA në këtë modul.

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. Pas kësaj, mund të klikoni butonin "Run Sub" në shiritin e veglave ose të shtypni tastin F5 për të aktivizuar makro të re.
6. Menjëherë, të gjitha dosjet e postës në skedarin e paracaktuar të Outlook PST do të zgjerohen.

Palos të gjitha dosjet e postës

Krahasuar me zgjerimin e të gjitha dosjeve të postës, kolapsi është shumë më i lehtë. Ju thjesht mund të kolapsoni rrënjën e skedarit specifik të Outlook PST dhe pastaj ta zgjeroni përsëri. Për ta bërë këtë, mund të klikoni në shigjetën përpara dosjes së nivelit të lartë të skedarit PST, si pamja e mëposhtme e ekranit. Pas kësaj, klikoni përsëri në shigjetën për të zgjeruar skedarin. Mund të shihni që të gjithë nëndosjet janë shembur.

Trajtoni gabimet problematike të PST në mënyrë fleksibël

A keni marrë ndonjëherë ndonjë mesazh gabimi gjatë përdorimit të Outlook? Nëse e keni përdorur Outlook për dekada, duhet ta keni. Pa asnjë dyshim, Outlook është i prekshëm ndaj gabimeve. Kështu, për të mbrojtur më mirë të dhënat tuaja të Outlook, duhet të bëni kopje rezervë të skedarit tuaj Outlook PST në baza periodike. Për më tepër, sugjerohet të mbahet një Rregullim PST mjet në afërsi, si DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë sql i korruptuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com