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

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.

Verwandte Artikel

Wie exportiert man Massen-/ausgewählte E-Mails nach Excel/Text/PST-Datei in Outlook?

---

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...

📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

Funktionsliste von Kutools für OutlookJetzt herunterladenGehe zu Kaufen

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

• ✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
• 🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
• 🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint

Über die Suite ⬇ Suite herunterladen 💳 Suite kaufen