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 Sub3. 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é.
Enregistrez facilement les e-mails sélectionnés sous différents formats de fichiers dans Outlook:
Avec la Économisez en vrac utilité de Kutools for Outlook, vous pouvez facilement enregistrer plusieurs e-mails sélectionnés en tant que fichier au format HTML individuel, fichier au format TXT, document Word, fichier CSV ainsi que fichier PDF dans Outlook comme le montre la démonstration ci-dessous.
Téléchargez et essayez-le maintenant! (essai gratuit de 60 jours)
Articles Liés:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
