Πώς να μετακινήσετε μηνύματα ηλεκτρονικού ταχυδρομείου σε καθορισμένο φάκελο μετά την εκχώρηση συγκεκριμένης κατηγορίας στο Outlook;
Ας υποθέσουμε ότι έχετε εκχωρήσει μια κατηγορία σε ένα ληφθέν email στο Outlook, μετά την εκχώρηση κατηγορίας, θέλετε αυτό το email να μετακινείται αυτόματα σε έναν συγκεκριμένο φάκελο email που ονομάζεται με το όνομα της κατηγορίας. Για παράδειγμα, ένα μήνυμα ηλεκτρονικού ταχυδρομείου που έχει εκχωρηθεί με την κατηγορία "Ιδιωτικό" θα μετακινηθεί σε ένα όνομα φακέλου "Ιδιωτικό" στο Outlook. Πώς να το πετύχετε; Η μέθοδος σε αυτό το άρθρο μπορεί να σας βοηθήσει να λύσετε το πρόβλημα με ευκολία.
Μετακίνηση email σε καθορισμένο φάκελο μετά την εκχώρηση συγκεκριμένης κατηγορίας με VBA
Μετακίνηση email σε καθορισμένο φάκελο μετά την εκχώρηση συγκεκριμένης κατηγορίας με VBA
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να μετακινήσετε αυτόματα μηνύματα ηλεκτρονικού ταχυδρομείου σε καθορισμένο φάκελο μετά την εκχώρηση συγκεκριμένης κατηγορίας στο Outlook. Κάντε τα εξής:
1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ για να ανοίξετε το ThisOutlookSession (Κωδικός) παράθυρο. Στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο. Δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: Μετακίνηση email σε καθορισμένο φάκελο μετά την εκχώρηση συγκεκριμένης κατηγορίας
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. Αποθηκεύστε τον κώδικα και επανεκκινήστε το Outlook.
4. Από εδώ και στο εξής, κατά την αντιστοίχιση κατηγορίας σε ένα email λήψης, ένας φάκελος με το όνομα της κατηγορίας θα δημιουργείται αυτόματα κάτω από το φάκελο Εισερχόμενα με το email να έχει μετακινηθεί. Δείτε στιγμιότυπο οθόνης:
Note: Όλα τα email που έχουν εκχωρηθεί με την ίδια κατηγορία θα μετακινηθούν αυτόματα στον ίδιο φάκελο. Αλλά εάν μια νέα κατηγορία εκχωρηθεί σε ένα email, ένας νέος φάκελος θα δημιουργηθεί αυτόματα.
Σχετικά άρθρα:
- Πώς να εκχωρήσετε κατηγορία σε εξερχόμενα email στο Outlook;
- Πώς να διατηρήσετε τις αρχικές κατηγορίες κατά την απάντηση ή την προώθηση μηνυμάτων ηλεκτρονικού ταχυδρομείου στο Outlook;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
