Como expandir automaticamente todas as pastas via VBA ao iniciar o Outlook

Muitos usuários desejam que todas as pastas sejam expandidas automaticamente ao abrir o Outlook. Na realidade, o Outlook não oferece suporte nativo a isso. Portanto, para implementar essa funcionalidade, é necessário usar código VBA. Este artigo fornecerá um guia rápido.

Você pode ter criado muitas subpastas dentro das pastas padrão do Outlook. Diante de tantas pastas, para acessá-las rapidamente a qualquer momento, talvez queira mantê-las sempre expandidas. O primeiro passo é configurar o Outlook para expandir automaticamente as pastas ao iniciar. Obviamente, o Outlook não possui essa função nativa. Portanto, você precisa usar macros. A seguir, ensinaremos como fazer isso com VBA. Para saber mais sobre como aplicar VBA, consulte outro artigo – “Como executar o código VBA no seu Outlook".

Expandir automaticamente todas as pastas ao iniciar o Outlook

1. Para começar, pressione “Alt + F11” em seu Outlook para acessar o editor VBA.
2. Em seguida, na nova janela, coloque o código no projeto “ThisOutlookSession”.

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. Depois disso, feche o editor VBA.
4. Posteriormente, saia do aplicativo Outlook corretamente.
5. Em seguida, abra o Outlook. Nesse momento, a macro será executada automaticamente.
6. Após a inicialização do Outlook, você poderá ver que todas as pastas foram expandidas, conforme mostrado na figura abaixo.

Mantenha todas as macros maliciosas afastadas

Você já recebeu emails anexados com arquivos suspeitos ou com links desconhecidos? Normalmente, ao confrontar esses e-mails, você deve aumentar sua vigilância. Você nunca deve confiar prontamente neles, pois podem carregar vírus. Depois de baixar os anexos ou abrir os links, não apenas o Outlook, mas também o computador pode ser atacado. Nessa hora você tem que reparar o Outlook arquivo. Pode ser bastante complicado, a menos que você tenha um backup atualizado do Outlook ou use uma ferramenta de recuperação poderosa, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL Server corrupção e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com