Εάν θέλετε να δημιουργήσετε έναν κανόνα για να αποκλείσετε τους αποστολείς πολλαπλών επιλεγμένων email, συνήθως, πρέπει πρώτα να γράψετε τους αποστολείς και στη συνέχεια να δημιουργήσετε έναν κανόνα με μη αυτόματο τρόπο. Είναι αρκετά ενοχλητικό. Έτσι, εδώ θα μοιραστούμε μια πολύ πιο γρήγορη μέθοδο για να το αποκτήσετε με ένα κλικ.
Ορισμένοι χρήστες πιστεύουν ότι η ενσωματωμένη δυνατότητα "ant-spam" στο Outlook δεν είναι τόσο αποτελεσματική όσο ελπίζουν. Ως εκ τούτου, έχουν συνηθίσει να δημιουργούν κανόνες του Outlook για τον αποκλεισμό των αποστολέων. Τώρα, στα ακόλουθα, θα εισαγάγουμε μια γρήγορη μέθοδο για τη δημιουργία ενός κανόνα για τον αποκλεισμό των αποστολέων πολλαπλών email.
Δημιουργήστε γρήγορα έναν κανόνα για τον αποκλεισμό αποστολέων πολλαπλών μηνυμάτων ηλεκτρονικού ταχυδρομείου
- Για ωςtart, ξεκινήστε την εφαρμογή Outlook.
- Στη συνέχεια, μπείτε στο παράθυρο του επεξεργαστή VBA μέσω της συντόμευσης "Alt + F11".
- Στη συνέχεια, στο νέο παράθυρο, τοποθετήστε τον ακόλουθο κώδικα VBA σε μια μονάδα που δεν χρησιμοποιείται.
Sub CreateRuleForBlockingMultipleSenders()
Dim objRules As Outlook.Rules
Dim objRule As Outlook.Rule
Dim objMoveRuleAction As Outlook.MoveOrCopyRuleAction
Dim objFromCondition As Outlook.ToOrFromRuleCondition
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objJunkFolder As Outlook.Folder
Set objRules = Application.Session.DefaultStore.GetRules()
'Create a rule
Set objRule = objRules.Create("Block Senders", olRuleReceive)
Set objFromCondition = objRule.Conditions.From
'Get the selected emails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
'Get Junk Email folder
Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk)
For i = objSelection.Count To 1 Step -1
If objSelection.Item(i).Class = olMail Then
Set objMail = objSelection.Item(i)
'Add the email senders to rule condition
With objFromCondition
.Enabled = True
.Recipients.Add objMail.SenderEmailAddress
.Recipients.ResolveAll
End With
'Move the emails from blocked senders to Junk Email folder
Set objMoveRuleAction = objRule.Actions.MoveToFolder
With objMoveRuleAction
.Enabled = True
.Folder = objJunkFolder
End With
End If
Next
objRules.Save
End Sub
- Μετά από αυτό, σύμφωνα με το «Τρόπος εκτέλεσης κώδικα VBA στο Outlook", προσθέστε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης ή στην κορδέλα.
- Στη συνέχεια, βγείτε κανονικά από το πρόγραμμα επεξεργασίας VBA.
- Τέλος, ακολουθήστε τα παρακάτω βήματα για να δοκιμάσετε.
- Πρώτα απ 'όλα, επιλέξτε τα email των οποίων τους αποστολείς θέλετε να αποκλείσετε.
- Στη συνέχεια, κάντε κλικ στο κουμπί νέα μακροεντολή.
- Μετά την ολοκλήρωση της μακροεντολής, μπορείτε να μεταβείτε στο μενού "Αρχείο" και να κάνετε κλικ στο κουμπί "Διαχείριση κανόνων και ειδοποιήσεων" για να ελέγξετε τον κανόνα που προστέθηκε πρόσφατα, όπως φαίνεται στην παρακάτω εικόνα.
Κρατήστε κακόβουλα μηνύματα ηλεκτρονικού ταχυδρομείου στο Bay
Ανεξάρτητα από το πρόγραμμα-πελάτη ηλεκτρονικού ταχυδρομείου που χρησιμοποιείτε, πρέπει να λαμβάνετε συχνά τα μηνύματα ηλεκτρονικού ταχυδρομείου από άγνωστους αποστολείς. Μost από τα μηνύματα ηλεκτρονικού ταχυδρομείου μπορεί να είναι διαφημιστικά ανεπιθύμητα μηνύματα και να περιέχουν ακόμη και κακόβουλες μακροεντολές. Μπορούν να προκαλέσουν βλάβη στο αρχείο του Outlook σε λίγο. Έτσι, στο Outlook, θα πρέπει να λάβετε αποτελεσματικά μέτρα για να αποκλείσετε τα άγνωστα μηνύματα ηλεκτρονικού ταχυδρομείου. Επιπλέον, εάν έχετε την οικονομική δυνατότητα, καλό είναι να προετοιμάσετε ένα ισχυρό εργαλείο ανάκτησης PST, όπως π.χ DataNumen Outlook Repair. Μπορεί να επιδιορθώστε το Outlook λιμάρετε χωρίς να ιδρώσετε όσο σοβαρή και αν έχει καταστραφεί.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com