Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe meerdere geselecteerde e-mails in bulk opslaan als MSG-bestanden in Outlook?

Het is gemakkelijk om een ​​e-mail op te slaan als een MSG-bestand in Outlook. Hoe kunt u meerdere geselecteerde e-mails in bulk opslaan als afzonderlijke MSG-bestanden in Outlook? Dit artikel laat je 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

Met de volgende VBA-code kunt u meerdere geselecteerde e-mails opslaan als afzonderlijke MSG-bestanden in bulk in Outlook. Ga als volgt te werk.

1. Selecteer de e-mails die u als MSG-bestanden wilt opslaan. Druk vervolgens 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 kopieer de onderstaande VBA-code naar het modulevenster.

VBA-code: bewaar meerdere geselecteerde e-mails als individuele 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 Bladeren naar map een map op om de MSG-bestanden op te slaan en klik op de knop OK. Zie screenshot:

Nu worden alle geselecteerde e-mails opgeslagen als individuele MSG-bestanden, zoals hieronder wordt getoond.


Bewaar geselecteerde e-mails eenvoudig als bestanden met verschillende indelingen in Outlook:

Met de Bulk opslaan nut van Kutools for Outlook, kunt u eenvoudig meerdere geselecteerde e-mails opslaan als individueel HTML-formaatbestand, TXT-formaatbestand, Word-document, CSV-bestand en PDF-bestand in Outlook zoals onderstaand screenshot liet zien. Download en probeer het nu! (60 dagen gratis parcours)


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
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.
    David · 1 years ago
    It doesn't seem to work when emails are displayed in conversation mode or from a Group folder.
  • To post as a guest, your comment is unpublished.
    Yuki · 2 years 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.
    climbp19981 · 2 years 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 · 2 years 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 · 2 years ago
        A better way is to always replace ":" with blanks adding this line under xName = xMail.Subject

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