Paano Awtomatikong Palawakin ang Lahat ng Folder sa pamamagitan ng VBA kapag Sinisimulan ang Iyong Outlook

Maraming gumagamit ang umaasa na ang lahat ng folder ay awtomatikong mapapalawak kapag inilunsad nila ang kanilang Outlook. Sa katotohanan, hindi ito natural na sinusuportahan ng Outlook. Kaya, upang maisakatuparan ito, kailangan mong gumamit ng VBA code. Ang post na ito ay magbibigay sa iyo ng mabilis na gabay.

Maaaring nakagawa ka na ng maraming subfolder sa ilalim ng mga default na folder sa Outlook. Dahil sa napakaraming folder, para mabilis mong ma-access ang mga ito anumang oras, maaari mong panatilihing naka-expand ang lahat ng folder sa lahat ng oras. Ang unang hakbang ay ang awtomatikong pagpapalawak ng Outlook ng mga folder sa pagsisimula. Malinaw na walang ganitong native function sa Outlook. Kaya, kailangan mong gumamit ng mga macro. Pagkatapos nito, ituturo namin sa iyo kung paano ito magagawa gamit ang VBA. Para sa kung paano gamitin ang VBA, maaari kang sumangguni sa isa pang artikulo – “Paano Patakbuhin ang VBA Code sa Iyong Outlook".

Awtomatikong Palawakin ang Lahat ng Folder kapag Sinisimulan ang Outlook

1. Upang magsimula, pindutin ang "Alt + F11" sa iyong Outlook upang ma-access ang VBA editor.
2. Pagkatapos, sa bagong window, ilagay ang code sa proyekto na "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. Pagkatapos nito, isara ang editor ng VBA.
4. Kasunod, lumabas nang maayos sa Outlook application.
5. Mamaya, simulan ang iyong Outlook. Sa puntong ito, awtomatikong tatakbo ang macro.
6. Pagkatapos magsimula ang Outlook, makikita mo na ang lahat ng mga folder ay pinalawak na, tulad ng ipinapakita sa larawan sa ibaba.

Panatilihin ang Lahat ng Malisyosong Macro sa Bay

Nakatanggap ka ba ng mga email na naka-attach sa mga kahina-hinalang mga file o naka-embed na may hindi kilalang mga link? Karaniwan, kapag hinaharap ang mga nasabing email, kailangan mong itaas ang iyong pagbabantay. Hindi mo dapat kaagad magtiwala sa kanila na maaari silang magdala ng mga virus. Kapag na-download mo ang mga kalakip o buksan ang mga link, hindi lamang ang Outlook ngunit pati na rin ang computer ay maaaring atakehin. Sa oras na iyon, kailangan mo kumpunihin ang Outlook file Maaari itong maging medyo knotty maliban kung mayroon kang isang na-update na backup ng Outlook o gumawa ng isang malakas na tool sa pagbawi, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang SQL Server katiwalian at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa