Πώς να αποθηκεύσετε πολλά επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου ως αρχεία MSG μαζικά στο Outlook;

Είναι εύκολο να αποθηκεύσετε ένα email ως αρχείο MSG στο Outlook. Πώς μπορείτε να αποθηκεύσετε πολλά επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου ως μεμονωμένα αρχεία MSG μαζικά στο Outlook; Αυτό το άρθρο θα σας δείξει μια μέθοδο για να το επιτύχετε.

Αποθηκεύστε πολλά επιλεγμένα email ως αρχεία MSG με κωδικό VBA

Αποθηκεύστε πολλά επιλεγμένα email ως αρχεία MSG με κωδικό VBA

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να αποθηκεύσετε πολλά επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου ως μεμονωμένα αρχεία MSG μαζικά στο Outlook. Κάντε τα εξής:

1. Επιλέξτε τα email που θέλετε να αποθηκεύσετε ως αρχεία MSG. Στη συνέχεια, πατήστε ταυτόχρονα τα πλήκτρα Alt + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. Στο παράθυρο της Microsoft Visual Basic for Applications, κάντε κλικ στο Insert> Module και, στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Module.

Κωδικός VBA: Αποθηκεύστε πολλά επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου ως μεμονωμένα αρχεία MSG στο Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. Πατήστε το πλήκτρο F5 για να εκτελέσετε τον κωδικό.

4. Στο πλαίσιο διαλόγου Αναζήτηση για φάκελο, καθορίστε έναν φάκελο για την αποθήκευση των αρχείων MSG και, στη συνέχεια, κάντε κλικ στο κουμπί OK. Δείτε στιγμιότυπο οθόνης:

Τώρα όλα τα επιλεγμένα email αποθηκεύονται ως μεμονωμένα αρχεία MSG όπως φαίνεται παρακάτω στιγμιότυπο οθόνης.

---

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

Δείτε Περισσότερα       Δωρεάν κατέβασμα      Αγορά