Wie kann man mehrere ausgewählte E-Mails als MSG-Dateien in Outlook gespeichert werden?
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 Sub3. 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:
Jetzt sind alle ausgewählten E-Mails als einzelne MSG-Dateien gespeichert, wie im folgenden Screenshot dargestellt.
Speichern Sie ausgewählte E-Mails ganz einfach in verschiedenen Formaten 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!
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
