Comment enregistrer en lot plusieurs e-mails sélectionnés au format MSG dans Outlook ?

Il est facile d’enregistrer un e-mail au format MSG dans Outlook. Mais comment enregistrer plusieurs messages sélectionnés en tant que fichiers MSG individuels, en une seule opération ? Cet article vous présente une méthode efficace pour y parvenir.

Enregistrer plusieurs e-mails sélectionnés au format MSG à l’aide d’un code VBA

---

Enregistrer plusieurs e-mails sélectionnés au format MSG à l’aide d’un code VBA

Le code VBA suivant vous permet d’enregistrer en lot, sous forme de fichiers MSG individuels, plusieurs e-mails sélectionnés dans Outlook. Voici la marche à suivre.

1. Sélectionnez les e-mails que vous souhaitez enregistrer au format 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 collez le code VBA ci-dessous dans la fenêtre du module.

Code VBA : Enregistrer plusieurs e-mails sélectionnés sous forme de fichiers MSG individuels dans Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

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

4. Dans la boîte de dialogue « Parcourir pour trouver un dossier », sélectionnez le dossier où vous souhaitez enregistrer les fichiers MSG, puis cliquez sur « OK ». Voir la capture d’écran :

Tous les e-mails sélectionnés sont désormais enregistrés sous forme de fichiers MSG individuels, comme illustré dans la capture d’écran ci-dessous.

---