Πώς να μετακινήσετε το μήνυμα email σε καθορισμένο φάκελο μετά την ανάγνωση στο Outlook;

Η μετακίνηση μηνύματος ηλεκτρονικού ταχυδρομείου σε έναν καθορισμένο φάκελο μετά την ανάγνωση είναι ο καλύτερος τρόπος για να διατηρήσετε το φάκελο Εισερχόμενα καθαρό στο Outlook. Για πολλούς χρήστες του Outlook, τείνουν να δημιουργούν έναν κανόνα για τη μετακίνηση αυτών των αναγνωσμένων email. Στην πραγματικότητα, το Outlook δεν υποστηρίζει αυτήν τη διαδικασία οδηγού κανόνα. Σε αυτό το άρθρο, θα σας δείξουμε πώς να μεταφέρετε μηνύματα email σε καθορισμένο φάκελο μετά την ανάγνωση με τον κώδικα VBA στο Outlook.

Μετακίνηση μηνύματος email σε καθορισμένο φάκελο μετά την ανάγνωση στο Outlook

Μετακίνηση μηνύματος email σε καθορισμένο φάκελο μετά την ανάγνωση στο Outlook

Μπορείτε να μετακινήσετε μηνύματα email σε έναν καθορισμένο φάκελο μετά την ανάγνωση με εκτέλεση κώδικα VBA στο Outlook.

1. Πρώτον, πρέπει να δημιουργήσετε ένα νέο όνομα φακέλου "ΚριτικήΚάτω από το φάκελο Εισερχόμενα.

2. Ανοίξτε το φάκελο Εισερχόμενα και, στη συνέχεια, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Στη συνέχεια, κάντε διπλό κλικ για ανάπτυξη Project1 > Αντικείμενα του Microsoft Outlook > Αυτό το OutlookSession για να ανοίξετε το VbaProject.OTM συντάκτης.

4. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στον επεξεργαστή VbaProject.OTM όπως φαίνεται στο παραπάνω στιγμιότυπο οθόνης.

Κωδικός VBA: μετακίνηση μηνυμάτων μετά την ανάγνωση

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Στη συνέχεια, κάντε κλικ στο Αποθήκευση για να αποθηκεύσετε τον κωδικό VBA και μετά κλείστε το Microsoft Visual Basic για εφαρμογές παράθυρο.

6. Κάντε δεξί κλικ στο Γραμμή εργαλείων γρήγορης πρόσβασης, και επιλέξτε Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης από το μενού με δεξί κλικ. Δείτε το στιγμιότυπο οθόνης:

7. Στο Επιλογές του Outlook πλαίσιο διαλόγου, πρέπει:

1). Επιλέγω Μακροεντολές στο Επιλέξτε εντολές από αναπτυσσόμενη λίστα;

2). Επιλέγω Έργο 1. ThisOutlookSession στο πλαίσιο κάτω από το Επιλέξτε εντολές από αναπτυσσόμενη λίστα;

3). Κάντε κλικ στο Πρόσθεση κουμπί;

4). Κάντε κλικ στο OK κουμπί.

8. Τότε μπορείτε να δείτε το Macro κουμπί που εμφανίζεται στο Γραμμή εργαλείων γρήγορης πρόσβασης. Βεβαιωθείτε ότι βρίσκεστε στο φάκελο εισερχομένων από τον οποίο θέλετε να μετακινήσετε όλα τα αναγνωσμένα μηνύματα και, στη συνέχεια, κάντε κλικ στο Macro για να εκτελέσετε τον κωδικό VBA μέσα στα Εισερχόμενα.

Notes:

1. Αυτός ο κωδικός VBA μπορεί να εφαρμοστεί στο Outlook 2007, 2010 και 2013. Όμως, στο Outlook 2007, μπορείτε να κάνετε απευθείας κλικ στο τρέξιμο κουμπί για να εκτελέσετε τον κωδικό.

2. Εάν υπάρχουν πολλοί λογαριασμοί email στο Outlook, ο κώδικας VBA μπορεί να εφαρμοστεί μόνο στον λογαριασμό σε ποιο αρχείο δεδομένων έχει οριστεί ως προεπιλογή. Μπορείτε να ελέγξετε το προεπιλεγμένο αρχείο δεδομένων κάνοντας κλικ Αρχεία > Πληροφορίες > Ρυθμίσεις λογαριασμού > Ρυθμίσεις λογαριασμού για να ανοίξετε το Ρυθμίσεις λογαριασμού κουτί διαλόγου. Μετά πηγαίνετε στο Φάκελος δεδομένων καρτέλα, θα δείτε το προεπιλεγμένο αρχείο δεδομένων να επισημαίνεται με πριν.

3. Εάν θέλετε να αλλάξετε το προεπιλεγμένο αρχείο δεδομένων σε άλλο λογαριασμό email, επιλέξτε και επισημάνετε τον λογαριασμό που θέλετε να ορίσετε ως προεπιλογή και, στη συνέχεια, κάντε κλικ στο Ορίσετε ως προεπιλογή στο Ρυθμίσεις λογαριασμού κουτί διαλόγου.

4. Όταν εκτελείτε τον κωδικό VBA την πρώτη φορά και ανακαλύπτετε ότι τα μηνύματα ανάγνωσης δεν μετακινούνται ταυτόχρονα, συνεχίστε να κάνετε κλικ στο κουμπί Μακροεντολή έως ότου μετακινηθούν όλα τα μηνύματα ανάγνωσης στα Εισερχόμενα.

---

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

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

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