Kuinka laajentaa kaikki kansiot automaattisesti VBA:n kautta Outlookin käynnistyksen yhteydessä

Useat käyttäjät toivovat, että kaikki kansiot voidaan laajentaa automaattisesti, kun he käynnistävät Outlookin. Todellisuudessa Outlook ei tue tätä natiivisti. Siksi sen toteuttamiseksi sinun on käytettävä VBA-koodia. Tämä viesti antaa sinulle pikaoppaan.

Olet ehkä luonut useita alikansioita Outlookin oletuskansioiden alle. Koska kansioita on niin paljon, jotta pääset niihin nopeasti käsiksi milloin tahansa, saatat haluta pitää kaikki kansiot laajennettuina koko ajan. Ensimmäinen askel on asettaa Outlook laajentamaan kansiot automaattisesti käynnistyksen yhteydessä. Outlookissa ei tietenkään ole tällaista omaa toimintoa. Siksi sinun on käytettävä makroita. Seuraavaksi opetamme sinulle, miten se tehdään VBA:lla. VBA:n soveltamisesta voit katsoa toista artikkelia – "Kuinka suorittaa VBA-koodi Outlookissa".

Laajenna kaikki kansiot automaattisesti Outlookin käynnistyksen yhteydessä

1. Ensinnäkin, paina "Alt + F11" Outlookissa päästäksesi VBA-editoriin.
2. Laita sitten koodi uuteen ikkunaan “ThisOutlookSession” -projektiin.

'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. Sen jälkeen sulje VBA-editori.
4. Poistu sitten Outlook-sovelluksesta oikein.
5. Käynnistä myöhemmin Outlook. Tässä vaiheessa makro suoritetaan automaattisesti.
6. Kun Outlook käynnistyy, näet, että kaikki kansiot on laajennettu, kuten alla olevassa kuvassa näkyy.

Pidä kaikki haitalliset makrot loitolla

Oletko koskaan saanut sähköpostia, joka on liitetty epäilyttäviin tiedostoihin tai upotettu tuntemattomiin linkkeihin? Yleensä tällaisia ​​sähköposteja kohdatessasi sinun on lisättävä valppautta. Sinun ei pitäisi koskaan luottaa niihin helposti, koska ne saattavat kuljettaa viruksia. Kun olet ladannut liitteet tai avannut linkit, Outlookin lisäksi myös tietokone saattaa olla hyökkäys. Tuolloin sinun täytyy korjata Outlook tiedosto. Se voi olla melko solmimainen, ellei sinulla ole päivitettyä Outlook-varmuuskopiota tai käytä tehokasta palautustyökalua, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com