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 startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
