Εάν θέλετε το Outlook να μετακινεί αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου σε διαφορετικούς φακέλους όταν τους αντιστοιχίζετε διαφορετικές κατηγορίες χρωμάτων, μπορείτε να χρησιμοποιήσετε τη μέθοδο που παρουσιάζεται σε αυτήν την ανάρτηση.
Πολλοί χρήστες λαχταρούν να βρουν μεθόδους αυτόματης μετακίνησης ενός μηνύματος ηλεκτρονικού ταχυδρομείου σε έναν συγκεκριμένο φάκελο όταν του εκχωρείται μια συγκεκριμένη κατηγορία χρωμάτων. Χωρίς καμία αμφιβολία, το Outlook δεν προσφέρει μια τέτοια άμεση δυνατότητα για να το πραγματοποιήσετε. Επομένως, στα παρακάτω θα σας μάθουμε ένα μέσο για να το αποκτήσετε. Τώρα, διαβάστε για να δείτε τα λεπτομερή βήματα.
Αυτόματη μετακίνηση email με διαφορετικές κατηγορίες χρωμάτων σε διαφορετικούς φακέλους
- Για αρχή, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, στο Outlook, πατήστε τα πλήκτρα "Alt + F11" για πρόσβαση στον επεξεργαστή VBA.
- Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα VBA στο έργο "ThisOutlookSession".
Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items
'Process inbox mails
Private Sub Application_Startup()
Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInboxFolder.Items
End Sub
'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objTargetFolder As Outlook.Folder
If TypeOf Item Is MailItem Then
Set objMail = Item
'Move mails based on color category
If InStr(objMail.Categories, "Private") > 0 Then
Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
objMail.Move objTargetFolder
ElseIf InStr(objMail.Categories, "Business") > 0 Then
Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
objMail.Move objTargetFolder
End If
End If
End Sub
:
- Για να επεξεργαστείτε στοιχεία σε άλλους φακέλους, μπορείτε να αλλάξετε το αντικείμενο "objInboxFolder", όπως "Application.Session.GetDefaultFolder(olFolderSentMail)" για το φάκελο "Sent Items".
- Επίσης, αλλάξτε τις κατηγορίες χρωμάτων και τους φακέλους προορισμού που έχουν προκαθοριστεί στον παραπάνω κώδικα σύμφωνα με τις πραγματικές σας περιπτώσεις.
- Επιπλέον, μπορείτε να χρησιμοποιήσετε το "ElseIf" για να προσθέσετε τις άλλες προαιρετικές κατηγορίες χρωμάτων.
- Στη συνέχεια, μετακινήστε τον κέρσορα στην υπορουτίνα "Application_Startup" και πατήστε "F5", το οποίο θα ενεργοποιήσει αυτήν τη μακροεντολή.
- Τέλος, μπορείτε να τραβήξετε μια βολή. Εδώ είναι το παράδειγμά μου.
- Επιλέξτε ένα email στο φάκελο Εισερχόμενα.
- Στη συνέχεια, αντιστοιχίστε σε αυτό κατηγορία χρώματος "Ιδιωτική".
- Αμέσως, αυτό το μήνυμα θα μετακινηθεί στον φάκελο "Ιδιωτικό" κάτω από τα "Εισερχόμενα".
Χειριστείτε το Outlook σας με προσοχή
Ίσως έχετε αντιμετωπίσει πολλά ζητήματα στο Outlook σας. Τις περισσότερες φορές προκύπτουν στην πραγματικότητα από ακατάλληλους χειρισμούς σας. Για παράδειγμα, κλείνετε πάντα το Outlook εσφαλμένα, όπως ξαφνική διακοπή λειτουργίας. Ή δεν έχετε δημιουργήσει αντίγραφα ασφαλείας των δεδομένων του Outlook σε τακτά χρονικά διαστήματα. Όλες οι παρόμοιες ενέργειες μπορούν να κάνουν το Outlook σας πολύ πιο ευάλωτο. Όπως γνωρίζετε, όταν ένα αρχείο PST καταστραφεί, είναι εξαιρετικά δύσκολο να το επιδιορθώσετε. Σε γενικές γραμμές, το εργαλείο επισκευής εισερχομένων δεν θα κάνει εφέ. Δεν έχετε άλλη επιλογή από το να λάβετε βοήθεια από εξωτερικά κορυφαία βοηθητικά προγράμματα, όπως π.χ DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com