Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i agor pob is-ddosbarthwr o Outlook?

Os ydych chi'n creu is-ddosbarthu lluosog o dan eich ffolderi Outlook, sut allwch chi agor neu ehangu'r holl is-ddosbarthwyr hyn ar unwaith? Yr erthygl hon, byddaf yn cyflwyno cod VBA defnyddiol i chi ddatrys y swydd hon.

Agor neu ehangu pob is-ddosbarthwr o Outlook gyda chod VBA


Agor neu ehangu pob is-ddosbarthwr o Outlook gyda chod VBA

Defnyddiwch y cod VBA canlynol i ehangu pob is-ddosbarthwr o bob cyfrif Outlook:

1. Dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr Modiwl.

Cod VBA: Agor pob is-ddosbarthwr o Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder Fel Ffolder Dim xAllFolders Fel Folders Dim xFolder Fel Ffolder Ar Gwrthod Gwrthod Gosod Nesaf xCurrentFolder = Application.ActiveExplorer.Current Set y Ffolder xAllFolders = Application.Session.Folders Ar gyfer pob xFolder Mewn xAllFolders Call ProcessFolders (xFolder) Set Gosod Nesaf. ActiveExplorer.CurrentFolder = xCurrentFolder End-Pro ProcessFolders (ByVal CurFolder Fel Folder) Dim xDolisiwr Fel Ffolder Ar Gwall Yn Ailddechrau Nesaf Os CurFolder.DefaultItemType <> olMailItem Yna, Gosodwch Is-Set Cais.ActiveExplorer.CurrentFolder = CurFolder DoEvents Os CurFolder.Folders.Count = 0 Yna Eithriad Is-Ar-Lein ar gyfer pob XSubfolder Yn CurFolder.Folders Call ProcessFolders (xSubfolder) Nesaf Diwedd Is

3. Yna, pwyswch F5 allwedd i redeg y cod hwn, a chafodd pob is-ddosbarthwr ym mhob cyfrif eich Outlook ei ehangu, gweler y sgrin:

doc ehangu is-ddosbarthwyr 1



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.