Αυτή η μέθοδος θα εισαγάγει ένα VBA για την αυτόματη αποθήκευση κάθε εισερχόμενου email στο Outlook ως μεμονωμένο αρχείο HTML στον συγκεκριμένο δίσκο. Κάντε τα εξής:

1. Τύπος άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. Αναπτύξτε το Project1 και κάντε διπλό κλικ Αυτό το OutlookSession για να το ανοίξετε και, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο παράθυρο ThisOutlookSession. Δείτε το στιγμιότυπο οθόνης:

VBA: Αποθηκεύστε αυτόματα τα email του Outlook ως αρχεία HTML στο δίσκο

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. Αποθηκεύστε τον κώδικα VBA και επανεκκινήστε το Microsoft Outlook.

Από εδώ και στο εξής, κάθε εισερχόμενο email θα αποθηκεύεται ως μεμονωμένο αρχείο HTML στο φάκελο "MyEmails".

Notes:
(1) Αυτό το VBA θα δημιουργήσει έναν φάκελο με το όνομα "MyEmails" κάτω από το φάκελο Documents. Μπορείτε να μάθετε τα αυτόματα αποθηκευμένα email με αυτήν τη διαδρομή φακέλου: C:\Users\your_user_name\Documents\My Email
(2) Αυτό το VBA θα λειτουργεί με μηνύματα ηλεκτρονικού ταχυδρομείου που λαμβάνονται στον φάκελο Εισερχόμενα του προεπιλεγμένου λογαριασμού email.

Πώς να εξαγάγετε μαζικά / επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου στο αρχείο Excel / Text / PST στο Outlook;