Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Hvordan utvides automatisk alle mapper når du starter Outlook?

Generelt sett, hvis du utvider eller kollapser en mappe i navigasjonsruten og deretter lukker Outlook, fortsetter mappen å ekspandere eller kollapse når du starter Outlook på nytt. Men nå er det en måte å utvide alle mapper automatisk når du starter Outlook? Denne artikkelen vil introdusere en VBA for å fullføre oppgaven.

Utvid automatisk alle mapper når du starter Outlook med VBA

Kutools for Outlook: 100 + Nye avanserte verktøy for Outlook.
Office-fanen: Aktiver tabbedigering og surfing på kontoret, Akkurat som Chrome, Firefox, IE 8 / 9 / 10.
Klassisk meny: Ta med gamle menyer og verktøylinjer tilbake til Office 2007, 2010, 2013, 2016 og 2019.

pil blå høyre bobleUtvid automatisk alle mapper når du starter Outlook med VBA

Denne metoden vil introdusere en VBA for automatisk å utvide alle mapper i navigasjonsruten når du starter Outlook. Vennligst bruk denne VBA som følger:

1. Pressen andre + F11 tastene samtidig for å åpne Microsoft Visual Basic for Applications-vinduet.

2. Utvid prosjekt 1 og Microsoft Outlook-objekter Dobbeltklikk på Prosjekt-panelet for å åpne ThisOutlookSession vindu, og lim deretter inn under VBA-koden inn i den.

VBA: Utvid automatisk alle mapper i Outlook

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. Lagre koden og lukk Microsoft Visual Basic for Applications-vinduet.

Fra nå av, når du starter Outlook på nytt, blir alle mapper utvidet automatisk i Outlook.Merknader: Denne VBA kan ikke åpne de sammenkledde søkemappene når du starter Outlook på nytt.


pil blå høyre bobleRelaterte artikler



Kutools for Outlook

Mer enn 100 Avanserte funksjoner for Outlook 2010, 2013, 2016, 2019 og 365

skjermbildet kutools for Outlook liten for banner 201812

Flere funksjoner | Gratis nedlasting | Bare $ 39.00 for hundrevis av funksjoner

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 · 7 months ago
    Thank you so much.. It solved my problem. :)