Hoe kunt u meerdere geselecteerde e-mails bulksgewijs opslaan als MSG-bestanden in Outlook?

Author Siluvia Last modified 2025-08-26

Het is eenvoudig om een e-mail op te slaan als een MSG-bestand in Outlook. Hoe kunt u meerdere geselecteerde e-mails bulksgewijs opslaan als afzonderlijke MSG-bestanden in Outlook? Dit artikel laat u een methode zien om dit te bereiken.

Sla meerdere geselecteerde e-mails op als MSG-bestanden met VBA-code

Sla meerdere geselecteerde e-mails op als MSG-bestanden met VBA-code

De volgende VBA-code kan u helpen bij het bulksgewijs opslaan van meerdere geselecteerde e-mails als afzonderlijke MSG-bestanden in Outlook. Volg de onderstaande stappen.

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

2. Klik in het Microsoft Visual Basic for Applications-venster op "Invoegen" > "Module", en kopieer vervolgens de onderstaande VBA-code naar het Module-venster.

VBA-code: Sla meerdere geselecteerde e-mails op 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 toets "F5" om de code uit te voeren.

4. Specificeer in het dialoogvenster "Bladeren voor map" een map om de MSG-bestanden op te slaan en klik vervolgens op de knop "OK". Zie screenshot:

the screenshot of step 1 about saving selected emails as msg files using vba in outlook

Nu zijn alle geselecteerde e-mails opgeslagen als afzonderlijke MSG-bestanden, zoals in de onderstaande screenshot wordt getoond.

the screenshot of step 2 about saving selected emails as msg files using vba in outlook

Met het hulpprogramma "Bulksgewijs opslaan" van "Kutools voor Outlook" kunt u eenvoudig meerdere geselecteerde e-mails opslaan als afzonderlijke HTML-indeling bestanden, TXT-indeling bestanden, Word-documenten, CSV-bestanden en PDF-bestanden in Outlook, zoals in de onderstaande screenshot wordt getoond. Download nu de gratis versie van Kutools voor Outlook!

ad about saving emails as multiple file formats in outlook with kutools for outlook

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functieoverzicht van Kutools for Outlook Nu downloaden Ga naar Aanschaffen

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint

Over de Suite ⬇ Download de Suite 💳 Koop de Suite