Wie kann man Outlook-E-Mails automatisch auf der Festplatte speichern?

Möchten Sie Outlook-E-Mails zur Sicherung, als Arbeitsnachweise oder aus anderen Gründen auf Ihrer Festplatte speichern? Das manuelle Speichern mehrerer E-Mails per Drag & Drop aus Outlook heraus ist zwar einfach – doch wie lassen sich **alle eingehenden E-Mails automatisch** auf der Festplatte sichern? In diesem Artikel stellen wir Ihnen einen VBA-Code vor, der diese Aufgabe direkt in Outlook für Sie übernimmt.

Outlook-E-Mails automatisch auf der Festplatte/Festplatte speichern

---

Outlook-E-Mails automatisch auf der Festplatte/Festplatte speichern

Diese Methode integriert ein VBA-Skript, das jede eingehende E-Mail in Outlook automatisch als separate HTML-Datei auf dem angegebenen Laufwerk speichert. Gehen Sie dazu wie folgt vor:

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

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

VBA: Outlook-E-Mails automatisch als HTML-Datei auf der 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 Microsoft Outlook neu.

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

Hinweise:
(1) Dieses VBA-Skript erstellt einen Ordner mit dem Namen „MyEmails“ im Dokumente-Ordner. Die automatisch gespeicherten E-Mails finden Sie unter folgendem Pfad: C:\Users\Ihr_Benutzername\Documents\MyEmails
(2) Dieses VBA-Skript funktioniert mit empfangenen E-Mails im Posteingangsordner des Standard-E-Mail-Kontos.

---

Verwandte Artikel

Wie exportiert man mehrere oder ausgewählte E-Mails aus Outlook in eine Excel-, Text- oder PST-Datei?