Wie kann man mehrere ausgewählte E-Mails als MSG-Dateien in Outlook gespeichert werden?

Author Siluvia Last modified 2025-08-26

Es ist einfach, eine E-Mail als MSG-Datei in Outlook zu speichern. Wie können Sie jedoch mehrere ausgewählte E-Mails als einzelne MSG-Dateien gleichzeitig in Outlook speichern? Dieser Artikel zeigt Ihnen eine Methode, dies zu erreichen.

Speichern Sie mehrere ausgewählte E-Mails mit VBA-Code als MSG-Dateien

Speichern Sie mehrere ausgewählte E-Mails mit VBA-Code als MSG-Dateien

Der folgende VBA-Code kann Ihnen helfen, mehrere ausgewählte E-Mails als einzelne MSG-Dateien in Outlook zu speichern. Bitte gehen Sie wie folgt vor.

1. Wählen Sie die E-Mails aus, die Sie als MSG-Dateien speichern möchten. Drücken Sie dann gleichzeitig die Tasten „Alt“ + „F11“, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf „Einfügen“ > „Modul“ und kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA-Code: Speichern Sie mehrere ausgewählte E-Mails als einzelne MSG-Dateien 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. Drücken Sie die Taste „F5“, um den Code auszuführen.

4. Geben Sie im Dialogfeld „Ordner suchen“ einen Ordner an, in dem die MSG-Dateien gespeichert werden sollen, und klicken Sie dann auf die Schaltfläche „OK“. Siehe Screenshot:

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

Jetzt sind alle ausgewählten E-Mails als einzelne MSG-Dateien gespeichert, wie im folgenden Screenshot dargestellt.

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

Mit dem Hilfsprogramm „Massenspeicherung“ von „Kutools für Outlook“ können Sie ganz einfach mehrere ausgewählte E-Mails als einzelne HTML-Formatdatei, TXT-Formatdatei, Word-Dokument, CSV-Datei sowie PDF-Datei in Outlook speichern, wie im folgenden Screenshot gezeigt. Laden Sie jetzt die kostenlose Version von Kutools für Outlook herunter!

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

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...

📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

Funktionsliste von Kutools für Outlook Jetzt herunterladen Gehe zu Kaufen

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint

Über die Suite ⬇ Suite herunterladen 💳 Suite kaufen