Kuinka laajentaa kaikki kansiot automaattisesti, kun Outlook käynnistetään?

Yleensä kun laajennat tai kutistat kansion Outlookin siirtymisruudussa ja suljet sen jälkeen ohjelman, kansio säilyttää laajennetun tai kutistetun tilan, kun Outlook avataan uudelleen. Entä jos haluat, että kaikki kansiot laajenevat automaattisesti aina, kun käynnistät Outlookin? Tämä artikkeli tarjoaa VBA-ratkaisun juuri tämän saavuttamiseksi.

Laajenna kaikki kansiot automaattisesti, kun Outlook käynnistetään VBA:n avulla

Laajenna kaikki kansiot automaattisesti, kun Outlook käynnistetään VBA:n avulla

Tämä opas näyttää, kuinka VBA-komentosarjan avulla voit laajentaa automaattisesti kaikki siirtymisruudun kansiot aina, kun käynnistät Outlookin. Ota VBA-komentosarja käyttöön seuraavasti:

1. lehdistö Alt + F11 näppäimiä samanaikaisesti avataksesi Microsoft Visual Basic for Applications ikkunassa.
2. Laajenna Project 1 ja Microsoft Outlook -objektit vuonna projekti ruutu, kaksoisnapsauta avataksesi ThisOutlookSession ikkuna ja liitä sitten alla oleva VBA-koodi siihen.

   

   VBA: Laajenna automaattisesti kaikki kansiot Outlookissa

   Public WithEvents GEx As Explorer
   Public GFlag As Boolean
   Private Sub Application_Startup()
     'Update by ExtendOffice 2023/12/08
     Set GEx = Application.ActiveExplorer
     GFlag = False
   End Sub
   
   Private Sub GEx_SelectionChange()
     If GFlag = False Then
       ExpandAllFolders
     End If
     GFlag = True
   End Sub
   
   Public Sub ExpandAllFolders()
     Dim xNameSpace As Outlook.NameSpace
     Dim xFlds As Outlook.Folders
     Dim xCurrFld As Outlook.MAPIFolder
     Dim xFld As Outlook.MAPIFolder
     Dim xExpandDefaultStoreOnly As Boolean
     Dim xModule As NavigationModule
     On Error Resume Next
     xExpandDefaultStoreOnly = False
     Set xNameSpace = Application.Session
     Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule
     Set xCurrFld = Application.ActiveExplorer.CurrentFolder
     If xExpandDefaultStoreOnly = True Then
       Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox)
       Set xFld = xFld.Parent
       Set xFlds = xFld.Folders
       LoopFolders xFlds, True
     Else
       LoopFolders xNameSpace.Folders, True
       LoopFolders xNameSpace.Folders, False
     End If
     DoEvents
     Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule
     Set Application.ActiveExplorer.CurrentFolder = xCurrFld
     Set xNameSpace = Nothing
     Set xModule = Nothing
     Set xCurrFld = Nothing
   End Sub
   
   Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean)
     Dim xFld As Outlook.MAPIFolder
     On Error Resume Next
     For Each xFld In Flds
       Select Case All
         Case True
           If xFld.DefaultItemType = olMailItem Then
             Set Application.ActiveExplorer.CurrentFolder = xFld
             DoEvents
             If xFld.Folders.Count > 0 Then
               LoopFolders xFld.Folders, All
             End If
           End If
         Case False
           Set Application.ActiveExplorer.CurrentFolder = xFld
           DoEvents
           If xFld.Folders.Count > 0 Then
             LoopFolders xFld.Folders, All
           End If
       End Select
     Next
   End Sub

3. Tallenna koodi ja sulje Microsoft Visual Basic for Applications ikkunassa.

Tästä eteenpäin, kun Outlook käynnistetään uudelleen, kaikki kansiot laajenevat automaattisesti Outlookissa.

AI Mail Assistant Outlookissa: älykkäämpiä vastauksia, selkeämpi viestintä (yhden napsautuksen taikuutta!) VAPAA

Virtaviivaista päivittäisiä Outlook-tehtäviäsi Kutools for Outlookin AI Mail Assistantin avulla. Tämä tehokas työkalu oppii aiemmista sähköpostiviesteistäsi ja tarjoaa älykkäitä ja tarkkoja vastauksia, optimoi sähköpostisi sisällön ja auttaa sinua luomaan ja tarkentamaan viestejä vaivattomasti.

Tämä ominaisuus tukee:

• Älykkäät vastaukset: saat aiemmista keskusteluistasi luotuja vastauksia – räätälöityjä, tarkkoja ja valmiita käyttöön.
• Parannettu sisältö: tarkenna sähköpostisi tekstiä automaattisesti selkeyden ja vaikutuksen saamiseksi.
• Vaivaton kokoonpano: Anna vain avainsanoja ja anna tekoäly hoitaa loput useilla kirjoitustyyleillä.
• Älykkäät laajennukset: Laajenna ajatuksiasi kontekstitietoisilla ehdotuksilla.
• Yhteenveto: Saat lyhyet yleiskatsaukset pitkistä sähköposteista välittömästi.
• Globaali kattavuus: Käännä sähköpostisi helposti mille tahansa kielelle.

Tämä ominaisuus tukee:

• Älykkäät sähköpostivastaukset
• Optimoitu sisältö
• Avainsanoihin perustuvat luonnokset
• Älykäs sisältölaajennus
• Yhteenveto sähköpostitse
• Monikielinen käännös

Mikä parasta, tämä ominaisuus on täysin Ilmainen ikuisesti! Älä odota -lataa AI Mail Assistant nyt ja nauti!

Aiheeseen liittyvät artikkelit

---

Parhaat toimiston tuottavuustyökalut

Breaking News: Kutools for Outlook julkaisee ilmaisen version!

Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!

🤖 Kutools AI : Käyttää edistynyttä tekoälytekniikkaa sähköpostien vaivattoman käsittelyyn, mukaan lukien sähköpostien vastaaminen, yhteenveto, optimointi, laajentaminen, kääntäminen ja kirjoittaminen.

📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle)  /  Ajoita sähköpostien lähettäminen  /  Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia  /  Automaattinen edelleenlähetys (lisäsäännöt)   /  Automaattinen tervehdys   /  Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...

📨 Sähköposti Management: Muista sähköpostit  /  Estä huijaussähköpostit aiheiden ja muiden taholta  /  Poista päällekkäiset sähköpostit  /  Tarkennettu Haku  /  Yhdistä kansiot ...

📁 Liitteet Pro: Erätallennus  /  Erä Irrota  /  Eräpakkaus  /  Automaattinen tallennus   /  Automaattinen irrotus  /  Automaattinen pakkaus ...

🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia   /  Muistuttaa sinua tärkeistä sähköpostiviesteistä  /  Minimoi Outlook sulkemisen sijaan ...

???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä  /   Tietojenkalastelun vastaiset sähköpostit  /  🕘Näytä lähettäjän aikavyöhyke ...

👩🏼‍🤝‍👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä  /  Jaa yhteysryhmä yksittäisiin ryhmiin  /  Poista syntymäpäivämuistutukset ...

Avaa Kutools for Outlook välittömästi yhdellä napsautuksella. Älä odota, lataa nyt ja lisää tehokkuuttasi!

Ominaisuusluettelo Kutooleista Outlookille      Lataa ilmainen versio      Päivitä Professionaliin