Hoe slaat u meerdere geselecteerde e-mails in één keer op als MSG-bestanden in Outlook?

Het is eenvoudig om één e-mail op te slaan als MSG-bestand in Outlook. Maar hoe slaat u meerdere geselecteerde e-mails in bulk op als afzonderlijke MSG-bestanden? In dit artikel wordt een methode hiervoor getoond.

Meerdere geselecteerde e-mails opslaan als MSG-bestanden met VBA-code

---

Meerdere geselecteerde e-mails opslaan als MSG-bestanden met VBA-code

De volgende VBA-code helpt u om meerdere geselecteerde e-mails in één keer op te slaan als afzonderlijke MSG-bestanden in Outlook. Volg deze stappen.

1. Selecteer de e-mails die u als MSG-bestanden wilt opslaan en druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster Microsoft Visual Basic for Applications op 'Invoegen' > 'Module' en plak de onderstaande VBA-code in het modulevenster.

VBA-code: Meerdere geselecteerde e-mails opslaan als afzonderlijke MSG-bestanden in 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. Druk op de F5-toets om de code uit te voeren.

4. Geef in het dialoogvenster 'Map zoeken' de map op waarin u de MSG-bestanden wilt opslaan en klik op 'OK'. Zie schermafbeelding:

Alle geselecteerde e-mails zijn nu opgeslagen als afzonderlijke MSG-bestanden, zoals te zien is in de onderstaande schermafbeelding.

---