Comment ouvrir par lots plusieurs fichiers Outlook PST à la fois dans votre Outlook

Par défaut, Outlook ne vous permet pas d'ouvrir plusieurs fichiers Outlook PST en masse. Dans cet article, nous allons vous apprendre à utiliser VBA pour ouvrir par lots plusieurs fichiers de données Outlook à la fois dans votre Outlook.

Lorsque vous souhaitez ouvrir des fichiers Outlook PST supplémentaires dans votre Outlook, vous avez généralement deux moyens. La première consiste à accéder à la boîte de dialogue "Paramètres du compte", puis à passer à l'onglet "Fichiers de données" et à cliquer ensuite sur le bouton "Ajouter" pour sélectionner le fichier Outlook pour l'ouvrir. L'autre consiste à se diriger vers le menu "Fichier" dans la fenêtre Outlook, puis à cliquer sur le bouton "Ouvrir le fichier de données Outlook" sous l'onglet "Ouvrir" pour sélectionner le fichier. Les deux sont pratiques. Cependant, les deux méthodes ne vous permettent d'ouvrir qu'une seule fois un seul fichier PST. Il est interdit d'en ouvrir plusieurs d'un coup. Par conséquent, si vous souhaitez ouvrir plusieurs fichiers PST en masse, vous devez rechercher d'autres méthodes. Ici, nous allons vous apprendre à utiliser VBA pour y parvenir rapidement.

Ouvrir par lots plusieurs fichiers Outlook PST à la fois

1. Pour commencer, ouvrez votre programme Outlook.
2. Appuyez ensuite sur les touches "Alt + F11" dans la fenêtre principale d'Outlook.
3. Ensuite, dans l'éditeur Outlook VBA, vous devez ouvrir un nouveau module.
4. Ensuite, copiez et collez les codes VBA suivants dans le module.

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. Après cela, modifiez le niveau de sécurité de votre macro Outlook sur faible.
6. Finalement, vous pouvez cliquer sur l'icône "Exécuter" dans la barre d'outils de l'éditeur VBA ou simplement appuyer sur la touche F5 pour déclencher ce nouveau projet VBA.
7. À la fois, tous les fichiers Outlook PST du dossier local prédéfini seront ouverts par lots.

Lutte contre les erreurs Vexing PST

Étant donné qu'Outlook est sensible aux erreurs et à la corruption, vous devez faire attention à toutes les menaces potentielles, telles que les infections virales, l'arrêt incorrect d'Outlook ainsi que les mauvaises configurations d'Outlook. Tous peuvent causer Corruption d'Outlook sans transpirer. Par conséquent, vous devez sauvegarder régulièrement votre fichier PST. Cela aidera beaucoup lors de la récupération ultérieure des données.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupération mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com