Note: The other languages of the website are Google-translated. Back to English

Sut i ehangu pob ffolder yn awtomatig wrth gychwyn Outlook?

A siarad yn gyffredinol, os ydych chi'n ehangu neu'n cwympo ffolder ar y Pane Llywio ac yna'n cau'r Outlook, bydd y ffolder yn parhau i ehangu neu gwympo wrth ailgychwyn Outlook. Ond nawr, a oes ffordd i ehangu pob ffolder yn awtomatig wrth gychwyn Outlook? Bydd yr erthygl hon yn cyflwyno VBA i gyflawni'r dasg.

Ehangu pob ffolder yn awtomatig wrth gychwyn Outlook gyda VBA

Tab Swyddfa - Galluogi Golygu a Phori Tabbed yn y Swyddfa, a Gwneud Gwaith yn Haws Orau ...
Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch Pwerus i Microsoft Outlook
  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl rheolau; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangos neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst ar unwaith; Auto Ychwanegu Cyfarchiad wrth ateb; Auto Ychwanegu Dyddiad ac Amser yn destun ...
  • Offer Ymlyniad: Auto Detach, Cywasgu Pawb, Ail-enwi Pawb, Auto Save All ... Adroddiad Cyflym, Cyfrif Postiau Dethol, Tynnwch y Post a Chysylltiadau Dyblyg ...
  • Bydd mwy na 100 o nodweddion uwch datrys y rhan fwyaf o'ch problemau yn Outlook 2010-2019 a 365. Nodweddion llawn treial am ddim 60 diwrnod.

swigen dde glas saethEhangu pob ffolder yn awtomatig wrth gychwyn Outlook gyda VBA

Bydd y dull hwn yn cyflwyno VBA i ehangu pob ffolder ar y Pane Llywio yn awtomatig pan fyddwch chi'n dechrau Outlook. Defnyddiwch y VBA hwn fel a ganlyn:

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor ffenestr Microsoft Visual Basic for Applications.

2. Ehangu'r Prosiect 1 ac Gwrthrychau Microsoft Outlook yn y cwarel Prosiect, cliciwch ddwywaith i agor y SesiwnOutlook ffenestr, ac yna pastiwch islaw cod VBA i mewn iddo.

VBA: Ehangu pob ffolder yn Outlook yn awtomatig

Private Sub Application_Startup()
  'Update by ExtendOffice 2022/08/03
  ExpandAllFolders
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. Cadwch y cod a chau ffenestr Microsoft Visual Basic for Applications.

O hyn ymlaen, wrth ailgychwyn Outlook, bydd yr holl ffolderau'n cael eu hehangu'n awtomatig yn Outlook. Nodyn: Ni all y VBA hwn agor y ffolderau chwilio sydd wedi cwympo wrth ailgychwyn Outlook.


swigen dde glas saethErthyglau Perthnasol


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (5)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn .. Fe ddatrysodd fy mhroblem. :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni allaf gael y macro hwn i weithio o gwbl. Nid yw pob ffolder yn y cwarel Ffolder wedi'i ehangu o gwbl. Rwy'n defnyddio Outlook 2021. A oes unrhyw gyfarwyddiadau a gollais?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi 'na,
Rydym wedi diweddaru'r cod, rhowch gynnig arall arni. 🙂
Amanda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni allwn gael y macro hwn i weithio ychwaith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi 'na,
Rydym wedi diweddaru'r cod, rhowch gynnig arall arni. 🙂
Amanda
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir