Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum să extindeți automat toate folderele când porniți Outlook?

În general, dacă extindeți sau restrângeți un dosar din panoul de navigare și apoi închideți Outlook, folderul va rămâne în expansiune sau în colaps atunci când reporniți Outlook. Dar acum, există o modalitate de a extinde automat toate folderele atunci când porniți Outlook? Acest articol va introduce o VBA pentru a finaliza sarcina.

Extindeți automat toate folderele când porniți Outlook cu VBA

Kutools pentru Outlook: 100 + Noi instrumente avansate pentru Outlook.
Tab-ul Office: Activați editarea și navigarea cu file în Office, La fel ca Chrome, Firefox, IE 8 / 9 / 10.
Meniul clasic: Aduceți înapoi meniurile vechi și barele de instrumente pentru Office 2007, 2010, 2013, 2016 și 2019.

săgeată albastru dreapta buleExtindeți automat toate folderele când porniți Outlook cu VBA

Această metodă va introduce o VBA pentru a extinde automat toate folderele din panoul de navigare când porniți Outlook. Aplicați acest VBA după cum urmează:

1. presa Alt + F11 simultan pentru a deschide fereastra Microsoft Visual Basic for Applications.

2. Extindeți Proiectul 1 și Obiectele Microsoft Outlook în panoul Proiect, faceți dublu clic pentru a deschide fereastra ThisOutlookSession fereastră, apoi lipiți sub codul VBA în ea.

VBA: Extindeți automat toate folderele din 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. Salvați codul și închideți fereastra Microsoft Visual Basic for Applications.

De acum înainte, când reporniți Outlook, toate folderele vor fi extinse automat în Outlook.notițe: Acest VBA nu poate deschide dosarele de căutare restrânse la repornirea Outlook.


săgeată albastru dreapta buleArticole pe aceeaşi temă



Kutools pentru Outlook

Mai mult decât funcțiile avansate 100 pentru Outlook 2010, 2013, 2016, 2019 și 365

ecran shot kutools pentru outlook minuscule pentru banner 201812

Mai multe caracteristici | Descărcare gratuită | Doar $ 39.00 pentru sute de funcții

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