Mit dieser Methode wird ein VBA eingeführt, mit dem jede eingehende E-Mail in Outlook automatisch als einzelne HTML-Datei auf der jeweiligen Festplatte gespeichert wird. Bitte gehen Sie wie folgt vor:

1. Drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

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

VBA: Speichern Sie Outlook-E-Mails automatisch als HTML-Dateien auf der Festplatte

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.

Von nun an wird jede eingehende E-Mail als einzelne HTML-Datei im Ordner „MyEmails“ gespeichert.

Notizen:
(1) Dieses VBA erstellt einen Ordner mit dem Namen „MyEmails“ im Ordner „Dokumente“. Die automatisch gespeicherten E-Mails können Sie über diesen Ordnerpfad herausfinden: C:\Benutzer\Ihr_Benutzername\Dokumente\MyEmails
(2) Dieses VBA funktioniert mit E-Mails, die im Posteingangsordner des Standard-E-Mail-Kontos empfangen werden.

Wie exportiere ich Massen- / ausgewählte E-Mails in eine Excel / Text / PST-Datei in Outlook?