Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com s'expandeixen automàticament totes les carpetes quan s'inicia Outlook?

En general, si expandeix o col·lapses una carpeta al Panell de navegació i, a continuació, tanqueu l'Outlook, la carpeta continuarà expandint-se o col·lapsant-se quan es reinicieu Outlook. Però, ara, hi ha una manera d'expandir totes les carpetes automàticament en iniciar Outlook? Aquest article introduirà una VBA per completar la tasca.

Expandiu automàticament totes les carpetes en iniciar Outlook amb VBA

Kutools per Outlook: 100 + Noves eines avançades per a Outlook.
Pestanya d'Office: Activa l'edició i la navegació amb pestanyes a l'oficina, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú Classic: Porta menús antics i barres d'eines cap enrere a Office 2007, 2010, 2013, 2016 i 2019.

fletxa blau dreta bombollaExpandiu automàticament totes les carpetes en iniciar Outlook amb VBA

Aquest mètode introduirà un VBA per expandir automàticament totes les carpetes del Panell de navegació quan comenceu Outlook. Apliqueu aquest VBA de la manera següent:

1. Premeu Alt + F11 tecles simultànies per obrir la finestra de Microsoft Visual Basic per a aplicacions.

2. Amplieu el Projecte 1 i Objectes de Microsoft Outlook al tauler Projecte, feu doble clic per obrir la finestra ThisOutlookSession finestra i, a continuació, enganxeu-lo sota el codi VBA.

VBA: expandeix automàticament totes les carpetes d'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. Deseu el codi i tanqueu la finestra Microsoft Visual Basic per a aplicacions.

A partir d'ara, al reiniciar Outlook, totes les carpetes s'expandeixen automàticament a Outlook.Nota: Aquest VBA no pot obrir les carpetes de cerca col·lapsades quan es reinicia Outlook.


fletxa blau dreta bombollaArticles Relacionats



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l'anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

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