Wie kann man Outlook-E-Mails automatisch auf die Festplatte/Diskette speichern?

Author: Kelly Last Modified: 2025-08-06

Zu Sicherungs-, Arbeitsnachweis- oder anderen Zwecken möchten Sie möglicherweise Outlook-E-Mails auf die Festplatte speichern. Es ist einfach, mehrere E-Mails manuell von Outlook auf die Festplatte zu ziehen. Aber wissen Sie, wie man jede eingehende E-Mail automatisch auf die Festplatte speichert? Dieser Artikel stellt ein VBA vor, um dies in Outlook zu bewältigen.

Outlook-E-Mails automatisch auf die Festplatte/Diskette speichern

Outlook-E-Mails automatisch auf die Festplatte/Diskette speichern

Diese Methode führt ein VBA ein, das jede eingehende E-Mail in Outlook automatisch als einzelne HTML-Datei auf den bestimmten Datenträger speichert. Bitte folgen Sie diesen Schritten:

1. Drücken Sie die Tasten „Alt“ + „F11“, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Erweitern Sie Projekt1 und doppelklicken Sie auf „ThisOutlookSession“, um es zu öffnen, und fügen Sie dann den folgenden VBA-Code in das ThisOutlookSession-Fenster ein. Siehe Screenshot:

VBA: Outlook-E-Mails automatisch als HTML-Dateien auf die Festplatte speichern

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
    Dim xNameSpace As Outlook.NameSpace
    Set xNameSpace = Outlook.Application.Session
    Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
    Dim FSO
    Dim xMailItem As Outlook.MailItem
    Dim xFilePath As String
    Dim xRegEx
    Dim xFileName As String
    On Error Resume Next
    xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
    xFilePath = xFilePath & "\MyEmails"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FolderExists(xFilePath) = False Then
        FSO.CreateFolder (xFilePath)
    End If
    Set xRegEx = CreateObject("vbscript.regexp")
    xRegEx.Global = True
    xRegEx.IgnoreCase = False
    xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
    If objItem.Class = olMail Then
        Set xMailItem = objItem
        xFileName = xRegEx.Replace(xMailItem.Subject, "")
        xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
    End If
    Exit Sub
End Sub

3. Speichern Sie den VBA-Code und starten Sie Ihr Microsoft Outlook neu.

Ab jetzt wird jede eingehende E-Mail als einzelne HTML-Datei im Ordner „MyEmails“ gespeichert.

Hinweise:
(1) Dieses VBA erstellt einen Ordner namens „MyEmails“ im Dokumente-Ordner. Sie können die automatisch gespeicherten E-Mails mit diesem Pfad finden: C:\Users\Ihr_Benutzername\Dokumente\MyEmails
(2) Dieses VBA funktioniert mit E-Mails, die im Posteingang des Standard-E-Mail-Kontos empfangen werden.