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 ehangu pob ffolder yn awtomatig wrth ddechrau Outlook?

Yn gyffredinol, os ydych chi'n ehangu neu'n cwympo ffolder ar y Panelau Navigation ac wedyn cau'r Outlook, bydd y ffolder yn parhau i ehangu neu ddisgyn wrth ailgychwyn Outlook. Ond nawr, a oes ffordd i ehangu pob ffolder yn awtomatig wrth ddechrau Outlook? Bydd yr erthygl hon yn cyflwyno VBA i gwblhau'r dasg.

Ymestyn pob ffolder yn awtomatig wrth ddechrau Outlook gyda VBA

Kutools ar gyfer Outlook: 100 + Offer Uwch Newydd ar gyfer Outlook.
Tab Swyddfa: Galluogi Golygu Tablau a Pori yn y Swyddfa, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Bwydlen Clasurol: Dewch â Hen Fwydlenni a Pheiriau Offer Yn ôl i Office 2007, 2010, 2013, 2016 a 2019.

swigod saeth cywir glasYmestyn pob ffolder yn awtomatig wrth ddechrau Outlook gyda VBA

Bydd y dull hwn yn cyflwyno VBA i ehangu pob ffolder yn awtomatig ar y Panelau Navigation pan fyddwch yn 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 Outlook Microsoft ym mhanc y Prosiect, cliciwch ddwywaith i agor y ThisOutlookSession ffenestr, ac yna pastiwch y cod VBA i mewn iddo.

VBA: Ymestyn pob ffolder yn Awtomatig yn awtomatig

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3. Cadwch y cod a chau'r ffenestr Microsoft Visual Basic for Applications.

O hyn ymlaen, wrth ailgychwyn Outlook, bydd pob ffolder yn cael ei ehangu'n awtomatig yn Outlook.Nodyn: Ni all y VBA hon agor y ffolderi chwiliad wrth i chi ailgychwyn Outlook.


swigod saeth cywir glasErthyglau Perthnasol



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.
  • To post as a guest, your comment is unpublished.
    Selvi · 6 months ago
    Thank you so much.. It solved my problem. :)