Conas gach fillteán a leathnú go huathoibríoch agus Outlook á thosú?

De ghnáth, nuair a leathnaíonn tú nó nuair a chlaonann tú fillteán i bPána Nascleanúna Outlook agus nuair a dhúnann tú an clár ina dhiaidh sin, coinníonn an fillteán a staid leathnaithe nó tite nuair a athosclaíonn sé Outlook. Mar sin féin, cad má theastaíonn uait go leathnófar gach fillteán go huathoibríoch gach uair a thosaíonn tú Outlook? Soláthraíonn an t-alt seo réiteach VBA chun é sin a bhaint amach.

Leathnaigh gach fillteán go huathoibríoch nuair a thosaíonn Outlook ag baint úsáide as VBA

Leathnaigh gach fillteán go huathoibríoch nuair a thosaíonn Outlook ag baint úsáide as VBA

Léireoidh an treoir seo conas script VBA a úsáid chun gach fillteán sa Phána Nascleanúna a leathnú go huathoibríoch gach uair a sheolann tú Outlook. Lean na céimeanna seo chun an script VBA a chur i bhfeidhm:

1. Preas Alt + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Leathnaigh an tionscadal 1 agus Microsoft Outlook Object sa tionscadal pane, cliceáil faoi dhó chun an ThisOutlookSession fhuinneog, agus ansin greamaigh an cód VBA thíos isteach ann.

   

   VBA: Leathnaigh go huathoibríoch gach fillteán in Outlook

   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. Sábháil an cód agus dún an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

As seo amach, nuair a atosófar Outlook, leathnófar gach fillteán go huathoibríoch in Outlook.

Airteagail gaolmhara

---

Uirlisí Táirgiúlachta Oifige is Fearr

Breaking News: Kutools le haghaidh Outlook Seolann Leagan saor in aisce!

Taithí a dhéanamh ar an Kutools uile-nua le haghaidh Outlook Leagan SAOR IN AISCE le 70+ gnéithe dochreidte, is féidir leatsa a úsáid go deo! Cliceáil le híoslódáil anois!

🤖 Kutools AI : Úsáideann sé ardteicneolaíocht AI chun ríomhphoist a láimhseáil gan stró, lena n-áirítear ríomhphoist a fhreagairt, a achoimriú, a bharrfheabhsú, a leathnú, a aistriú agus a chumadh.

📧 Uathoibriú Ríomhphoist: Auto Reply (Ar fáil le haghaidh POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin Pro: Sábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Cuir i gcuimhne duit nuair a thagann ríomhphoist thábhachtacha  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Díghlasáil láithreach Kutools le haghaidh Outlook le cliceáil amháin -saor go buan. Ná fan, íoslódáil anois agus cuir le d’éifeachtúlacht!

Liosta Gné Kutools le haghaidh Outlook      Íoslódáil leagan saor in aisce      Uasghrádú go Gairmiúla