Sut i ehangu pob ffolder yn awtomatig wrth gychwyn Outlook?
Yn nodweddiadol, pan fyddwch chi'n ehangu neu'n cwympo ffolder yn Cwarel Navigation Outlook ac wedyn yn cau'r rhaglen, mae'r ffolder yn cadw ei gyflwr ehangedig neu chwympo wrth ailagor Outlook. Fodd bynnag, beth os ydych chi am i bob ffolder gael ei ehangu'n awtomatig bob tro y byddwch chi'n dechrau Outlook? Mae'r erthygl hon yn darparu ateb VBA i gyflawni hynny.
Ehangwch bob ffolder yn awtomatig wrth gychwyn Outlook gan ddefnyddio VBA
- Awtomeiddio e-bostio gyda Auto CC / BCC, Auto Ymlaen gan reolau; anfon Ymateb Auto (Allan o'r Swyddfa) heb fod angen gweinydd cyfnewid...
- Cael nodiadau atgoffa fel Rhybudd BCC wrth ymateb i bawb tra'ch bod ar restr BCC, a Atgoffwch Wrth Ymlyniadau ar Goll am atodiadau anghofiedig...
- Gwella effeithlonrwydd e-bost gyda Ateb (Pawb) Gydag Atodiadau, Ychwanegu Cyfarchiad neu Dyddiad ac Amser yn Awtomatig i'r Llofnod neu'r Pwnc, Ateb E-byst Lluosog...
- Symleiddio e-bostio gyda E-byst Dwyn i gof, Offer Ymlyniad (Cywasgu Pawb, Auto Save All...), Tynnwch y Dyblygion, a Adroddiad Cyflym...
Ehangwch bob ffolder yn awtomatig wrth gychwyn Outlook gan ddefnyddio VBA
Bydd y canllaw hwn yn dangos sut i ddefnyddio sgript VBA i ehangu'r holl ffolderi yn y Cwarel Navigation yn awtomatig bob tro y byddwch yn lansio Outlook. Dilynwch y camau hyn i weithredu'r sgript VBA:
- Pwyswch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
- Ehangu Prosiect 1 ac Gwrthrychau Microsoft Outlook yn y Prosiect cwarel, cliciwch ddwywaith i agor y SesiwnOutlook ffenestr, ac yna gludwch y cod VBA isod i mewn iddo.
VBA: Ehangu pob ffolder yn Outlook yn awtomatig
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
- Arbedwch y cod a chau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
O hyn ymlaen, wrth ailgychwyn Outlook, bydd yr holl ffolderau'n cael eu hehangu'n awtomatig yn Outlook.
Nodiadau:
- Ni all y VBA hwn agor y ffolderi chwilio cwympo wrth ailgychwyn Outlook.
- Er mwyn sicrhau bod y sgript VBA yn gweithredu'n gywir, mae'n hanfodol addasu'ch gosodiadau macro yn Outlook. Os gwelwch yn dda ewch i Ffeil > Dewisiadau > Canolfan yr Ymddiriedolaeth > Gosodiadau Canolfan Ymddiriedolaeth > Gosodiadau Macro, a dewiswch y Galluogi pob macros opsiwn. Mae'r gosodiad hwn yn caniatáu i'r sgript VBA redeg heb unrhyw gyfyngiadau.
Erthyglau Perthnasol
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.