Ki jan yo louvri tout subfolders soti nan pespektiv?

Si ou kreye subfolders miltip anba dosye Outlook ou, ki jan ou ta ka ouvri oswa elaji tout sa yo subfolders imedyatman? Atik sa a, mwen pral entwodui yon itil VBA kòd pou ou pou w rezoud travay sa a.

Louvri oswa elaji tout subfolders soti nan pespektiv ak Kòd VBA

Louvri oswa elaji tout subfolders soti nan pespektiv ak Kòd VBA

Tanpri aplike kòd VBA sa a pou elaji tout subfolders ki sòti nan tout kont Outlook:

1. Kenbe desann la ALT + F11 kle yo louvri a Microsoft Visual Basic pou aplikasyon pou fenèt.

2. Klike sou Antre > Modil, epi kole macro sa yo nan fenèt la modil.

VBA Kòd: Louvri tout subfolders soti nan Outlook:

Gwoup ExpandAllMailFolders () Dim xCurrentFolder Kòm Dosye Dim xAllFolders Kòm Dosye Dim xFolder Kòm Dosye Sou Erè Kourikouloum-vite Next Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Mete xAllFolders = Application.Session.Folders Pou Chak xFolder Nan xAllFolders Rele ProcessFolders (xFolder) Next Set Aplikasyon. ActiveExplorer.CurrentFolder = xCurrentFolder Fen Sub SubFollers (BYVal CurFolder kòm Dosye) Dim xSubfolder Kòm Dosye sou Erè Kourikouloum-vite Next Si CurFolder.DefaultItemType <> olMailItem Lè sa a, sòti Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Si CurFolder.Folders.Count = 0 Lè sa a, Exit Sub pou chak xSubfolder nan CurFolder.Folders Rele ProcessFolders (xSubfolder) Next Fen Fin

3. Lè sa a, peze F5 kle nan kouri kòd sa a, ak tout subfolders nan tout kont nan Outlook ou yo te elaji, gade D:

Kutools pou pespektiv

Plis pase 100 Fonksyon avanse pou pespektiv 2010, 2013, 2016, 2019 ak 365

Plis Features | Telechaje gratis | Se sèlman $ 39.00 pou dè santèn de fonksyon