Tips: Andra språk är Google-översatta. Du kan besöka English version av den här länken.
Logga in
x
or
x
x
Registrera
x

or

Hur utvidgar du automatiskt alla mappar när du startar Outlook?

Om du i allmänhet utvidgar eller kollapsar en mapp i navigeringsrutan och stänger Outlook så fortsätter mappen att expandera eller kollapsa när du startar om Outlook. Men nu finns det ett sätt att expandera alla mappar automatiskt när du startar Outlook? Denna artikel kommer att introducera en VBA för att slutföra uppgiften.

Expandera alla mappar automatiskt när du startar Outlook med VBA

Kutools för Outlook: 100 + Nya avancerade verktyg för Outlook.
Fliken Office: Aktivera flikredigering och bläddring på kontoret, Precis som Chrome, Firefox, IE 8 / 9 / 10.
Klassisk meny: Ta med gamla menyer och verktygsfält tillbaka till Office 2007, 2010, 2013, 2016 och 2019.

pilblå höger bubblaExpandera alla mappar automatiskt när du startar Outlook med VBA

Den här metoden kommer att introducera en VBA för att automatiskt expandera alla mappar i navigationsrutan när du startar Outlook. Var god tillämpa denna VBA enligt följande:

1. Tryck andra + F11 tangenter samtidigt för att öppna fönstret Microsoft Visual Basic for Applications.

2. Expandera projektet 1 och Microsoft Outlook-objekt Dubbelklicka i Projektfönstret för att öppna ThisOutlookSession fönster och klistra sedan in under VBA-kod i den.

VBA: Expandera alla mappar automatiskt 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. Spara koden och stäng fönstret Microsoft Visual Basic for Applications.

Från och med nu, när du startar om Outlook, utvidgas alla mappar automatiskt i Outlook.Anmärkningar: Denna VBA kan inte öppna de kollapsade sökmapparna när du startar Outlook igen.


pilblå höger bubblarelaterade artiklar



Kutools för Outlook

Mer än 100 avancerade funktioner för Outlook 2010, 2013, 2016, 2019 och 365

skärmsläckare kutools för outlook liten för banner 201812

Mer funktioner | Gratis nedladdning | Bara $ 39.00 för hundratals funktioner

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