Μετάβαση στο κύριο περιεχόμενο

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

Στην καθημερινή σας εργασία, ενδέχεται να λάβετε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου από άγνωστους αποστολείς που δεν αποθηκεύονται στο φάκελο "Επαφές". Αυτά μπορεί να είναι κάποια ανεπιθύμητα ή κακόβουλα μηνύματα ηλεκτρονικού ταχυδρομείου, σε αυτήν την περίπτωση, θέλετε να μετακινήσετε αυτόματα αυτά τα μηνύματα ηλεκτρονικού ταχυδρομείου σε έναν συγκεκριμένο φάκελο αντί για τα Εισερχόμενα. Πώς θα μπορούσατε να επιλύσετε αυτήν την εργασία στο Outlook;

Μετακίνηση μηνυμάτων ηλεκτρονικού ταχυδρομείου από άγνωστους αποστολείς σε συγκεκριμένο φάκελο δημιουργώντας κανόνα

Μετακίνηση μηνυμάτων από άγνωστους αποστολείς σε συγκεκριμένο φάκελο εφαρμόζοντας τον κώδικα VBA


Μετακίνηση μηνυμάτων ηλεκτρονικού ταχυδρομείου από άγνωστους αποστολείς σε συγκεκριμένο φάκελο δημιουργώντας κανόνα

Στην πραγματικότητα, μπορείτε να δημιουργήσετε έναν κανόνα για να μετακινείτε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου από άγνωστους αποστολείς σε έναν συγκεκριμένο φάκελο, κάντε τα εξής:

1. Δημιουργήστε έναν νέο φάκελο κάτω από το φάκελο Εισερχόμενα που θα τοποθετήσει τα μηνύματα ηλεκτρονικού ταχυδρομείου που προέρχονται από αποστολείς που δεν γνωρίζουν, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:

doc μετακινήστε email από άγνωστο 1

2. Στη συνέχεια κάντε κλικ στο κουμπί Αρχική > Κανόνες που > Διαχείριση κανόνων και ειδοποιήσεων, δείτε το στιγμιότυπο οθόνης:

doc μετακινήστε email από άγνωστο 2

3. Στην Κανόνες και ειδοποιήσεις , κάντε κλικ στην επιλογή Νέος κανόνας σύμφωνα με το Κανόνες ηλεκτρονικού ταχυδρομείου καρτέλα, δείτε το στιγμιότυπο οθόνης:

doc μετακινήστε email από άγνωστο 3

4. και κάντε κλικ OK για να μεταβείτε στο Οδηγός κανόνα, Κλίκ Εφαρμογή κανόνα στο μήνυμα που λαμβάνω Επιλογή από το Ξεκινήστε από έναν κενό κανόνα πλαίσιο ενότητας, δείτε το στιγμιότυπο οθόνης:

doc μετακινήστε email από άγνωστο 4

5. Στη συνέχεια κάντε κλικ στο κουμπί Επόμενο κουμπί, σε αυτό το βήμα, μην ορίσετε καμία επιλογή και κάντε κλικ Επόμενο κουμπί απευθείας, εμφανίζεται ένα πλαίσιο προειδοποίησης, κάντε κλικ Ναι κουμπί, δείτε το στιγμιότυπο οθόνης:

doc μετακινήστε email από άγνωστο 5

6. Και στο επόμενο παράθυρο διαλόγου, επιλέξτε μετακινήστε το στον καθορισμένο φάκελο επιλογή του Βήμα 1: Επιλογή ενεργειών πλαίσιο λίστας και, στη συνέχεια, κάντε κλικ στο συνδεδεμένο κείμενο καθορίζεται, και στο άνοιγμα Κανόνες και ειδοποιήσεις διαλόγου, καθορίστε το φάκελο στον οποίο θέλετε να μεταφέρετε τα μηνύματα ηλεκτρονικού ταχυδρομείου, δείτε το στιγμιότυπο οθόνης:

doc μετακινήστε email από άγνωστο 6

7. Κλίκ OK κουμπί και συνεχίστε να κάνετε κλικ Επόμενο κουμπί, σε αυτό Υπάρχουν εξαιρέσεις; διάλογος, ελέγξτε εκτός εάν ο αποστολέας βρίσκεται σε καθορισμένο Βιβλίο Διευθύνσεων επιλογή του Βήμα 1: Επιλογή εξαιρέσεων πλαίσιο λίστας και, στη συνέχεια, κάντε κλικ στο συνδεδεμένο κείμενο καθορίζεται, Και ένα Προσθήκη λίστας διευθύνσεων θα εμφανιστεί το πλαίσιο, επιλέξτε έναν φάκελο επαφών που περιέχει τις επαφές που θέλετε να εξαιρέσετε, δείτε το στιγμιότυπο οθόνης:

doc μετακινήστε email από άγνωστο 7

8. Στη συνέχεια κάντε κλικ στο κουμπί Πρόσθεση , και στη συνέχεια κάντε κλικ στο κουμπί OK Επόμενο για να μεταβείτε στον τελευταίο διάλογο οδηγού, πληκτρολογήστε ένα όνομα κανόνα στο Βήμα 1: Καθορίστε ένα όνομα για αυτόν τον κανόνα πλαίσιο κειμένου και επιλέξτε Ενεργοποιήστε αυτόν τον κανόνα Επιλογή από το Βήμα 2: Κανόνας εγκατάστασης ενότητα επιλογών. Δείτε το στιγμιότυπο οθόνης:

doc μετακινήστε email από άγνωστο 8

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

doc μετακινήστε email από άγνωστο 9

3. Στη συνέχεια, αποθηκεύστε τον κώδικα και κλείστε το παράθυρο κώδικα και επανεκκινήστε το Outlook για να τεθεί σε ισχύ ο κώδικας. Από τώρα και στο εξής, όταν τα μηνύματα ηλεκτρονικού ταχυδρομείου που προέρχονται από ορισμένους άγνωστους αποστολείς, θα μεταφερθούν αυτόματα στον άγνωστο φάκελο, δείτε το στιγμιότυπο οθόνης:

doc μετακινήστε email από άγνωστο 10

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

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations