Como abrir em lote vários arquivos PST do Outlook de uma só vez no Outlook

Por padrão, o Outlook não oferece suporte para abrir vários arquivos PST do Outlook em massa. Neste artigo, ensinaremos como usar o VBA para abrir em lote vários arquivos de dados do Outlook de uma só vez no Outlook.

Quando você deseja abrir arquivos PST do Outlook adicionais em seu Outlook, geralmente, você tem dois meios. Uma delas é ir para a caixa de diálogo “Configurações da conta” e, em seguida, mudar para a guia “Arquivos de dados” e, em seguida, clicar no botão “Adicionar” para selecionar o arquivo do Outlook para abri-lo. A outra é ir para o menu “Arquivo” na janela do Outlook e, em seguida, clicar no botão “Abrir arquivo de dados do Outlook” na guia “Abrir” para selecionar o arquivo. Ambos são úteis. No entanto, as duas maneiras permitem que você abra apenas um único arquivo PST uma vez. Você não tem permissão para abrir vários de uma só vez. Portanto, se você deseja abrir em massa mais de um arquivo PST, deve procurar outros métodos. Aqui vamos ensiná-lo a usar o VBA para alcançá-lo rapidamente.

Lote abrir vários arquivos PST do Outlook de uma só vez

1. Primeiramente, inicie o programa Outlook.
2. Em seguida, pressione os botões de tecla “Alt + F11” na janela principal do Outlook.
3. Em seguida, no editor VBA do Outlook, você deve abrir um novo módulo.
4. Posteriormente, copie e cole os seguintes códigos VBA no módulo.

Sub BatchOpenMultiplePSTFiles()
 
    'You can change the path as per your needs
    'You can also specify a folder other than a drive
    'For instance - Call LoopFolders("C:\Users\Test\My Documents\Outlook Files")
    Call LoopFolders("E:\")
    MsgBox "Open Successfully!", vbExclamation + vbOKOnly, "Open Outlook Data File"

End Sub

Sub LoopFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objPSTFile As Object
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)
 
    For Each objFile In objFolder.Files
        'Find the pst file by file extension
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "pst" Then
           Set objPSTFile = objFile
           'Open the PST file
           Outlook.Application.Session.AddStore (objPSTFile.Path)
        End If
    Next
 
    'Process all folders and subfolders in the Local Drive E
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

5. Depois disso, altere o nível de segurança de macro do Outlook para baixo.
6. Eventualmente, você pode clicar no ícone “Executar” na barra de ferramentas do editor VBA ou simplesmente pressionar a tecla F5 para acionar este novo projeto VBA.
7. Ao mesmo tempo, todos os arquivos PST do Outlook na pasta local predefinida serão abertos em lotes.

Lute contra erros irritantes de PST

Como o Outlook é suscetível a erros e corrupção, você deve prestar atenção a todas as ameaças potenciais, como infecções por vírus, desligamento incorreto do Outlook, bem como configurações incorretas do Outlook. Todos eles podem causar Corrupção do Outlook sem suar. Portanto, você deve fazer backup do seu arquivo PST regularmente. Isso ajudará muito na recuperação de dados posterior.

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 recuperação mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com