Πώς να μεταφέρετε μηνύματα ηλεκτρονικού ταχυδρομείου από άγνωστους αποστολείς σε συγκεκριμένο φάκελο στο 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: Ο Άγνωστος ο φάκελος θα δημιουργηθεί αυτόματα όταν εισέρχονται κάποια άγνωστα μηνύματα ηλεκτρονικού ταχυδρομείου. Μπορείτε να αλλάξετε το όνομα του φακέλου "αγνοώ"Σε άλλους σε σενάριο.