Si të zgjeroni automatikisht të gjitha dosjet nëpërmjet VBA kur nisni Outlook-un tuaj

Përdorues të shumtë shpresojnë që të gjitha dosjet të mund të zgjerohen automatikisht kur të hapin Outlook-un e tyre. Në realitet, Outlook nuk e mbështet atë në mënyrë native. Prandaj, për ta realizuar këtë, duhet të përdorni kodin VBA. Ky postim do t'ju japë një udhëzues të shpejtë.

Mund të keni krijuar shumë nën-dosje nën dosjet e parazgjedhura në Outlook. Përballë kaq shumë dosjeve, në mënyrë që t'i qaseni shpejt në çdo kohë, mund të dëshironi t'i mbani të gjitha dosjet të zgjeruara gjatë gjithë kohës. Hapi i parë duhet të jetë që Outlook të zgjerojë automatikisht dosjet gjatë nisjes. Natyrisht, nuk ka një funksion të tillë vendas në Outlook. Prandaj, duhet të përdorni makrot. Më poshtë, do t'ju mësojmë se si ta arrini këtë me VBA. Sa i përket mënyrës së aplikimit të VBA, mund t'i referoheni një artikulli tjetër - "Si të ekzekutoni kodin VBA në Outlook tuaj".

Zgjero automatikisht të gjitha dosjet kur nis Outlook-un

1. Për të filluar, shtypni "Alt + F11" në Outlook tuaj për të hyrë në redaktuesin VBA.
2. Pastaj, në dritaren e re, vendosni kodin në projektin "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. Pas kësaj, mbyllni redaktorin VBA.
4. Më pas, dilni siç duhet nga aplikacioni Outlook.
5. Më vonë, nisni Outlook-un tuaj. Në këtë pikë, makroja do të ekzekutohet automatikisht.
6. Pasi të nisë Outlook-u, mund të shihni që të gjitha dosjet janë zgjeruar, siç tregohet në figurën më poshtë.

Mbani të gjitha makrot me qëllim të keq në gji

A keni marrë ndonjëherë email-e që janë bashkangjitur me skedarë të dyshimtë ose janë të ngulitur me lidhje të panjohura? Zakonisht, kur përballesh me email të tillë, duhet të rrisësh vigjilencën. Asnjëherë nuk duhet t'u besoni atyre, sepse mund të mbajnë viruse. Pasi të shkarkoni bashkëngjitjet ose të hapni lidhjet, jo vetëm Outlook, por edhe kompjuteri mund të sulmohet. Në atë kohë duhet riparimi i Outlook dosje. Mund të jetë mjaft i ndërlikuar nëse nuk keni një kopje rezervë të Outlook të përditësuar ose nuk përdorni një mjet të fuqishëm rikuperimi, si p.sh. 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 Server korrupsioni dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com