Wie speichert man mehrere ausgewählte E-Mails in Outlook gleichzeitig als MSG-Dateien?

Es ist ganz einfach, eine E-Mail in Outlook als MSG-Datei zu speichern – doch wie speichern Sie mehrere ausgewählte E-Mails gleichzeitig jeweils als einzelne MSG-Dateien? Dieser Artikel zeigt Ihnen eine bewährte Methode, um genau das zu erreichen.

Speichern mehrerer ausgewählter E-Mails als MSG-Dateien mithilfe von VBA-Code

---

Speichern mehrerer ausgewählter E-Mails als MSG-Dateien mithilfe von VBA-Code

Der folgende VBA-Code ermöglicht es Ihnen, mehrere ausgewählte E-Mails in Outlook gleichzeitig als einzelne MSG-Dateien zu speichern. Gehen Sie dazu wie folgt vor:

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

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

VBA-Code: Mehrere ausgewählte E-Mails in Outlook als einzelne MSG-Dateien speichern

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. Wählen Sie im Dialogfeld „Ordner durchsuchen“ den Ordner aus, in dem die MSG-Dateien gespeichert werden sollen, und klicken Sie auf „OK“. Siehe Screenshot:

Nun sind alle ausgewählten E-Mails wie im folgenden Screenshot gezeigt als einzelne MSG-Dateien gespeichert.

---