Πώς να αποθηκεύσετε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου του Outlook σε σκληρό δίσκο / δίσκο;
Για δημιουργία αντιγράφων ασφαλείας, αποδεικτικά στοιχεία εργασίας ή άλλους σκοπούς, μπορεί να θέλετε να αποθηκεύσετε τα μηνύματα ηλεκτρονικού ταχυδρομείου του Outlook σε σκληρό δίσκο. Είναι εύκολο να αποθηκεύσετε πολλά email σε δίσκο με μη αυτόματη μεταφορά από το Outlook σε δίσκο. Ωστόσο, γνωρίζετε πώς να αποθηκεύετε αυτόματα κάθε εισερχόμενο μήνυμα ηλεκτρονικού ταχυδρομείου στο δίσκο; Αυτό το άρθρο θα εισαγάγει ένα VBA για να το χειριστεί στο Outlook.
Αποθηκεύστε αυτόματα τα email του Outlook σε σκληρό δίσκο / δίσκο
Αποθηκεύστε αυτόματα τα email του Outlook σε σκληρό δίσκο / δίσκο
Αυτή η μέθοδος θα εισαγάγει ένα 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.
Σχετικά άρθρα
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.