Πώς να μεταφέρετε μηνύματα ηλεκτρονικού ταχυδρομείου από άγνωστους αποστολείς σε συγκεκριμένο φάκελο στο Outlook;
Στην καθημερινή σας εργασία, ενδέχεται να λάβετε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου από άγνωστους αποστολείς που δεν αποθηκεύονται στο φάκελο "Επαφές". Αυτά μπορεί να είναι κάποια ανεπιθύμητα ή κακόβουλα μηνύματα ηλεκτρονικού ταχυδρομείου, σε αυτήν την περίπτωση, θέλετε να μετακινήσετε αυτόματα αυτά τα μηνύματα ηλεκτρονικού ταχυδρομείου σε έναν συγκεκριμένο φάκελο αντί για τα Εισερχόμενα. Πώς θα μπορούσατε να επιλύσετε αυτήν την εργασία στο Outlook;
Μετακίνηση μηνυμάτων από άγνωστους αποστολείς σε συγκεκριμένο φάκελο εφαρμόζοντας τον κώδικα VBA
Μετακίνηση μηνυμάτων ηλεκτρονικού ταχυδρομείου από άγνωστους αποστολείς σε συγκεκριμένο φάκελο δημιουργώντας κανόνα
Στην πραγματικότητα, μπορείτε να δημιουργήσετε έναν κανόνα για να μετακινείτε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου από άγνωστους αποστολείς σε έναν συγκεκριμένο φάκελο, κάντε τα εξής:
1. Δημιουργήστε έναν νέο φάκελο κάτω από το φάκελο Εισερχόμενα που θα τοποθετήσει τα μηνύματα ηλεκτρονικού ταχυδρομείου που προέρχονται από αποστολείς που δεν γνωρίζουν, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
2. Στη συνέχεια κάντε κλικ στο κουμπί Αρχική > Κανόνες που > Διαχείριση κανόνων και ειδοποιήσεων, δείτε το στιγμιότυπο οθόνης:
3. Στην Κανόνες και ειδοποιήσεις , κάντε κλικ στην επιλογή Νέος κανόνας σύμφωνα με το Κανόνες ηλεκτρονικού ταχυδρομείου καρτέλα, δείτε το στιγμιότυπο οθόνης:
4. και κάντε κλικ OK για να μεταβείτε στο Οδηγός κανόνα, Κλίκ Εφαρμογή κανόνα στο μήνυμα που λαμβάνω Επιλογή από το Ξεκινήστε από έναν κενό κανόνα πλαίσιο ενότητας, δείτε το στιγμιότυπο οθόνης:
5. Στη συνέχεια κάντε κλικ στο κουμπί Επόμενο κουμπί, σε αυτό το βήμα, μην ορίσετε καμία επιλογή και κάντε κλικ Επόμενο κουμπί απευθείας, εμφανίζεται ένα πλαίσιο προειδοποίησης, κάντε κλικ Ναι κουμπί, δείτε το στιγμιότυπο οθόνης:
6. Και στο επόμενο παράθυρο διαλόγου, επιλέξτε μετακινήστε το στον καθορισμένο φάκελο επιλογή του Βήμα 1: Επιλογή ενεργειών πλαίσιο λίστας και, στη συνέχεια, κάντε κλικ στο συνδεδεμένο κείμενο καθορίζεται, και στο άνοιγμα Κανόνες και ειδοποιήσεις διαλόγου, καθορίστε το φάκελο στον οποίο θέλετε να μεταφέρετε τα μηνύματα ηλεκτρονικού ταχυδρομείου, δείτε το στιγμιότυπο οθόνης:
7. Κλίκ OK κουμπί και συνεχίστε να κάνετε κλικ Επόμενο κουμπί, σε αυτό Υπάρχουν εξαιρέσεις; διάλογος, ελέγξτε εκτός εάν ο αποστολέας βρίσκεται σε καθορισμένο Βιβλίο Διευθύνσεων επιλογή του Βήμα 1: Επιλογή εξαιρέσεων πλαίσιο λίστας και, στη συνέχεια, κάντε κλικ στο συνδεδεμένο κείμενο καθορίζεται, Και ένα Προσθήκη λίστας διευθύνσεων θα εμφανιστεί το πλαίσιο, επιλέξτε έναν φάκελο επαφών που περιέχει τις επαφές που θέλετε να εξαιρέσετε, δείτε το στιγμιότυπο οθόνης:
8. Στη συνέχεια κάντε κλικ στο κουμπί Πρόσθεση , και στη συνέχεια κάντε κλικ στο κουμπί OK Επόμενο για να μεταβείτε στον τελευταίο διάλογο οδηγού, πληκτρολογήστε ένα όνομα κανόνα στο Βήμα 1: Καθορίστε ένα όνομα για αυτόν τον κανόνα πλαίσιο κειμένου και επιλέξτε Ενεργοποιήστε αυτόν τον κανόνα Επιλογή από το Βήμα 2: Κανόνας εγκατάστασης ενότητα επιλογών. Δείτε το στιγμιότυπο οθόνης:
9. Και στη συνέχεια κάντε κλικ στο κουμπί φινίρισμα και Ok κουμπιά για να κλείσετε τους διαλόγους. Από τώρα και στο εξής, όταν τα μηνύματα ηλεκτρονικού ταχυδρομείου προέρχονται από άγνωστους αποστολείς, θα μεταφερθούν αυτόματα στον συγκεκριμένο φάκελο.
Μετακίνηση μηνυμάτων από άγνωστους αποστολείς σε συγκεκριμένο φάκελο εφαρμόζοντας τον κώδικα VBA
Ίσως η παραπάνω μέθοδος είναι ενοχλητική για εσάς, εδώ, μπορείτε να εφαρμόσετε έναν κωδικό για να το χειριστείτε όσο πιο γρήγορα μπορείτε.
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession από το Έργο1 (VbaProject.OTM) παράθυρο για να ανοίξετε τη λειτουργία και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή μονάδα.
Κωδικός VBA: Αυτόματη μεταφορά email από άγνωστους αποστολείς σε συγκεκριμένο φάκελο:
Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
For I = 3 To 1 Step -1
xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
Set xContactItem = xContactItems.Find(xFilter)
If TypeName(xContactItem) <> "Nothing" Then Exit For
Next
Next
If xContactItem Is Nothing Then
Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
xFound = False
For Each xSubFolder In xInboxFlds
If xSubFolder.Name = "Unknown" Then
xFound = True
Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
Exit For
End If
Next
If xFound = False Then
Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
End If
item.Move xTargetFolder
End If
End Sub
3. Στη συνέχεια, αποθηκεύστε τον κώδικα και κλείστε το παράθυρο κώδικα και επανεκκινήστε το Outlook για να τεθεί σε ισχύ ο κώδικας. Από τώρα και στο εξής, όταν τα μηνύματα ηλεκτρονικού ταχυδρομείου που προέρχονται από ορισμένους άγνωστους αποστολείς, θα μεταφερθούν αυτόματα στον άγνωστο φάκελο, δείτε το στιγμιότυπο οθόνης:
Note: Ο Άγνωστος ο φάκελος θα δημιουργηθεί αυτόματα όταν εισέρχονται κάποια άγνωστα μηνύματα ηλεκτρονικού ταχυδρομείου. Μπορείτε να αλλάξετε το όνομα του φακέλου "αγνοώ"Σε άλλους σε σενάριο.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.