Wskazówka: inne języki są tłumaczone przez Google. Możesz odwiedzić English wersja tego linku.
Zaloguj Się
x
or
x
x
Zarejestruj
x

or

Jak automatycznie rozwijać wszystkie foldery podczas uruchamiania Outlooka?

Ogólnie rzecz biorąc, jeśli rozwiniesz lub zwiniesz folder w okienku nawigacji, a następnie zamkniesz program Outlook, folder pozostanie rozwijany lub zwijany podczas ponownego uruchamiania Outlooka. Ale czy istnieje sposób na automatyczne rozwijanie wszystkich folderów podczas uruchamiania Outlooka? Ten artykuł wprowadzi VBA do wykonania zadania.

Automatycznie rozwijaj wszystkie foldery podczas uruchamiania Outlooka za pomocą VBA

Kutools dla programu Outlook: 100 + Nowe narzędzia zaawansowane dla programu Outlook.
Karta Office: Włącz edycję na kartach i przeglądanie w pakiecie OfficePodobnie jak Chrome, Firefox, IE 8 / 9 / 10.
Klasyczne menu: Przywróć stare menu i paski narzędzi do Office 2007, 2010, 2013, 2016 i 2019.

strzałka niebieska prawa bańkaAutomatycznie rozwijaj wszystkie foldery podczas uruchamiania Outlooka za pomocą VBA

Ta metoda wprowadzi VBA, aby automatycznie rozszerzyć wszystkie foldery w okienku nawigacji po uruchomieniu Outlooka. Zastosuj ten VBA w następujący sposób:

1. naciśnij inny + F11 jednocześnie, aby otworzyć okno Microsoft Visual Basic for Applications.

2. Rozwiń projekt 1 i Obiekty Microsoft Outlook w okienku Project kliknij dwukrotnie, aby otworzyć ThisOutlookSession okna, a następnie wklej w nim kod VBA.

VBA: Automatycznie rozwiń wszystkie foldery w Outlooku

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. Zapisz kod i zamknij okno Microsoft Visual Basic for Applications.

Odtąd po ponownym uruchomieniu Outlooka wszystkie foldery zostaną automatycznie rozwinięte w Outlooku.Uwagi: Ten VBA nie może otworzyć zwiniętych folderów wyszukiwania podczas ponownego uruchamiania Outlooka.


strzałka niebieska prawa bańkaPowiązane artykuły



Kutools dla programu Outlook

Więcej niż zaawansowane funkcje 100 dla programów Outlook 2010, 2013, 2016, 2019 i 365

screen shot kutools dla programu outlook tiny dla banera 201812

Więcej funkcji | Darmowe pobieranie | Tylko $ 39.00 dla setek funkcji

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. :)