Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment importer des fichiers msg à partir du système de fichiers dans le dossier Outlook?

Normalement, vous pouvez importer les 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 dans un dossier Outlook spécifié en détails.

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


Enregistrez facilement les e-mails sélectionnés sous forme de fichiers de format différent dans Outlook:

Avec l'utilitaire Enregistrer en tant que fichier de Kutools pour Outlook, vous pouvez facilement enregistrer plusieurs emails sélectionnés sous forme de fichier au format HTML individuel, de fichier TXT, de document Word, de fichier CSV ou de fichier PDF dans Outlook.

Kutools for Outlook: avec plus de 40 add-ins Outlook, libre d'essayer sans limitation dans les jours 45. Téléchargez et essai gratuit maintenant!


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

Veuillez procéder comme suit pour importer les fichiers msg du système de fichiers dans 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 dans la fenêtre Module.

Code VBA: Importer des fichiers msg du système de fichiers dans le dossier Outlook

Sub ImportMessagesInFolder () Dim xFSO As Scripting.FileSystemObject Dim xSourceFld As Scripting.Folder Dim xSourceFldPath en tant que String Dim xFileItem As Scripting.File Dim xMSG en tant qu'objet Dim xMailItem en tant que MailItem Dim xSaveFld En tant que Outlook.Folder On Error Resume Suivant Définir xFSO = Nouveau script. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Sélectionner un dossier:", 0, 0) Si Non TypeName (xSelFolder) = "Nothing" Puis xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Exit Sub End Si Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Définit xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Si TypeName (xSaveFld) = "Nothing" Alors Exit Sub End Si pour chaque xFileItem dans xSourceFld.Files Définissez xMSG = Session.OpenSharedItem (xFileItem.Path) Définissez xMailItem = xMSG.Copy xMailItem.Move xSaveFld Définissez xMailItem = Nothing xMSG.Delete Définissez xMSG = Nothing Suivant xFileItem Set xFileItem = Nothing Définir xSourceFld = Nothing Définir xFSO = N Fin Sous 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 allez importer dans le dossier Outlook, puis cliquez sur le OK bouton. Voir la capture d'écran:

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

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


Articles Liés:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.