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

Normalement, vous pouvez importer des fichiers msg du système de fichiers vers un dossier Outlook en les faisant glisser et en les déposant. 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 du système de fichiers vers le dossier Outlook avec le code VBA

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

Veuillez procéder comme suit pour importer des fichiers msg du système de fichiers vers un dossier spécifié dans Outlook.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Module.

Code VBA: importer des fichiers msg du système de fichiers vers le 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. appuie sur le F5 clé pour exécuter le code. Dans l'ouverture Parcourir pour le dossier boîte de dialogue, sélectionnez le dossier contenant les fichiers msg que vous importerez dans le dossier Outlook, puis cliquez sur le OK bouton. Voir la capture d'écran:

4. Maintenant un Sélectionner le dossier boîte de dialogue apparaît, veuillez sélectionner un Outlook dossier pour enregistrer les fichiers msg importés, puis cliquez sur le 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 Liés:

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