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 enregistrer plusieurs emails sélectionnés en tant que fichiers MSG en vrac dans Outlook?

Il est facile d'enregistrer un e-mail sous forme de fichier MSG dans Outlook. Comment pouvez-vous enregistrer plusieurs emails sélectionnés en tant que fichiers MSG individuels en vrac dans Outlook? Cet article va vous montrer une méthode pour y parvenir.

Enregistrer plusieurs emails sélectionnés en tant que fichiers MSG 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!


Enregistrer plusieurs emails sélectionnés en tant que fichiers MSG avec le code VBA

Le code VBA suivant peut vous aider à enregistrer plusieurs emails sélectionnés en tant que fichiers MSG individuels en vrac dans Outlook. S'il vous plaît faire comme suit.

1. Sélectionnez les e-mails que vous souhaitez enregistrer en tant que fichiers MSG. Puis appuyez simultanément 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 Insertion> Module, puis copiez le code VBA ci-dessous dans la fenêtre Module.

Code VBA: Enregistrer plusieurs emails sélectionnés en tant que fichiers MSG individuels dans Outlook

Public Sub SaveMessageAsMsg () 'Mise à jour par Extendoffice 2018 / 3 / 5 Dim xMail As Outlook.MailItem Dim xObjItem en tant qu'objet Dim xPath en tant que chaîne Dim xDtDate en tant que Date Dim xName, xFileName As Chaîne En cas de reprise Reprendre Suivant Définir xShell = CreateObject ("Shell. Application ") Définir xFolder = xShell.BrowseForFolder (0," Sélectionner un dossier: ", 0, strStartingFolder) Si Non TypeName (xFolder) =" Nothing "Définir xFolderItem = xFolder.self xFileName = xFolderItem.Path &" \ "Sinon xFileName = "" Exit Sub End Si pour chaque xObjItem Dans Outlook.ActiveExplorer.Selection Si xObjItem.Class = olMail Puis Définir xMail = xObjItem xName = xMail.Subject xDtDate = xMail.ReceivedTime xName = Format (xDtDate, "aaaaammjj", vbUseSystemDayOfWeek, _ vbUseSystem) & Format (xDtDate, "-hhnnss", _ vbUseSystemDayOfWeek, vbUseSystem) & "-" & xNom & ".msg" xPath = xNomFichier + xNom xMail.SaveAs xPath, olMSG Fin Si Suivant Fin Sous

3. Appuyez sur la touche F5 pour exécuter le code.

4. Dans la boîte de dialogue Rechercher un dossier, spécifiez un dossier pour enregistrer les fichiers MSG, puis cliquez sur le bouton OK. Voir la capture d'écran:

Maintenant, tous les e-mails sélectionnés sont enregistrés en tant que fichiers MSG individuels comme ci-dessous la capture d'écran illustrée.


Kutools for Outlook - Apporte les fonctionnalités avancées de 100 à Outlook et simplifie grandement le travail!

  • CC automatique / BCC par les règles lors de l'envoi d'email; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse mail est dans la liste BCC; Rappeler lorsque des pièces jointes sont manquantes, et plus encore, rappelle les fonctionnalités ...
  • Répondre (tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à beaucoup d'emails en secondes; Ajout automatique de message d'accueil quand répondez; Ajouter la date au sujet ...
  • Outils de pièce jointe: Gérer toutes les pièces jointes dans tous les courriers, Auto Detach, Compresser tout, Renommer tout, Sauvegarder tout ... Rapport rapide, Compter les mails sélectionnés...
  • Puissants courriers indésirables par la coutume; Supprimer les e-mails et les contacts en double... Vous permet de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools perspectives onglet kutools 1180x121
tir kutools perspectives kutools plus onglet 1180x121
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.
    Yuki · 8 months ago
    Hi, i am new to macro. i am looking for a macro that allows me to save the filename, not by subject or time. But by the reference # found inside the email body. This macro works well when i save multiple emails into my folder. But as i want each email to be saved using the reference #, would you have a macro for it? The reference # is found on the 6th row of the emails body (REF : WL344ET2), that i received everyday. Appreciate if anyone can help on this and thank you in advance.
  • To post as a guest, your comment is unpublished.
    LBJ · 11 months ago
    When there is a ":" in the subject, this code cannot copy the whole subject to be the name of the saved message, is there any way to solve this problem?
    • To post as a guest, your comment is unpublished.
      Daniel · 10 months ago
      change line 21 to xName="". The saved message filname will not include the subject anymore.
      • To post as a guest, your comment is unpublished.
        Mathias · 5 months ago
        A better way is to always replace ":" with blanks adding this line under xName = xMail.Subject

        xName = Replace(xName, ":", "")