Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Cadastre-se
x

or

Como expandir automaticamente todas as pastas ao iniciar o Outlook?

De um modo geral, se você expandir ou colapsar uma pasta no Painel de Navegação e fechar o Outlook, a pasta continuará expandindo ou entrando em colapso ao reiniciar o Outlook. Mas agora, existe uma maneira de expandir todas as pastas automaticamente ao iniciar o Outlook? Este artigo irá introduzir um VBA para completar a tarefa.

Expanda automaticamente todas as pastas ao iniciar o Outlook com o VBA

Kutools for Outlook: 100 + Novas Ferramentas Avançadas para o Outlook.
Office Tab: Ativar edição com guias e navegação no Office, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Clássico: Traga os velhos menus e as barras de ferramentas de volta para Office 2007, 2010, 2013, 2016 e 2019.

arrow blue right bubbleExpanda automaticamente todas as pastas ao iniciar o Outlook com o VBA

Este método irá introduzir um VBA para expandir automaticamente todas as pastas no painel de navegação quando você iniciar o Outlook. Por favor, aplique este VBA da seguinte maneira:

1. Pressione outro + F11 chaves simultaneamente para abrir a janela Microsoft Visual Basic for Applications.

2. Expandir o projeto 1 e Objetos do Microsoft Outlook no painel do projeto, clique duas vezes para abrir o ThisOutlookSession janela e, em seguida, cole abaixo o código VBA nele.

VBA: expande automaticamente todas as pastas no 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. Salve o código e feche a janela Microsoft Visual Basic for Applications.

De agora em diante, ao reiniciar o Outlook, todas as pastas serão expandidas automaticamente no Outlook.notas: Este VBA não pode abrir as pastas de pesquisa recolhidas ao reiniciar o Outlook.


arrow blue right bubbleartigos relacionados



Kutools for Outlook

Mais do que 100 Funções avançadas para o Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools para outlook minúsculo para banner 201812

mais recursos | Download grátis | Apenas $ 39.00 para centenas de funções

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