Comment importer des fichiers msg depuis le système de fichiers vers un dossier Outlook ?

Normalement, vous pouvez importer des fichiers msg depuis le système de fichiers vers un dossier Outlook en les faisant glisser-déposer. Dans cet article, nous allons vous montrer une méthode simple pour importer tous les fichiers msg d'un système de fichiers vers un dossier Outlook spécifié en détail.

Importer des fichiers msg depuis le système de fichiers vers un dossier Outlook avec du code VBA

Importer des fichiers msg depuis le système de fichiers vers un dossier Outlook avec du code VBA

Veuillez suivre les étapes ci-dessous pour importer des fichiers msg depuis le système de fichiers vers un dossier spécifié dans Outlook.

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insérer > Module. Ensuite, copiez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : Importer des fichiers msg depuis le système de fichiers vers un dossier Outlook

Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder：", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
    xSourceFldPath = xSelFolder.self.Path + "\"
Else
    xSourceFldPath = ""
    Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
    Exit Sub
End If
For Each xFileItem In xSourceFld.Files
    Set xMSG = Session.OpenSharedItem(xFileItem.Path)
    Set xMailItem = xMSG.Copy
    xMailItem.Move xSaveFld
    Set xMailItem = Nothing
    xMSG.Delete
    Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub

3. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Parcourir le dossier qui s'ouvre, sélectionnez le dossier contenant les fichiers msg que vous souhaitez importer dans le dossier Outlook, puis cliquez sur le bouton OK. Voir capture d'écran :

4. Maintenant, une Sélectionner un dossier boîte de dialogue apparaît, veuillez sélectionner un dossier Outlook pour enregistrer les fichiers msg importés, puis cliquez sur le bouton OK.

Ensuite, tous les fichiers msg d'un certain dossier de votre système de fichiers sont immédiatement importés dans un dossier Outlook spécifié.

Articles connexes :

• Comment enregistrer plusieurs emails sélectionnés en tant que fichiers MSG en masse dans Outlook ?