Come creare rapidamente una regola di Outlook per bloccare i mittenti di più e-mail

Se vuoi creare una regola per bloccare i mittenti di più email selezionate, di solito devi prima annotare i mittenti e poi creare una regola manualmente. È abbastanza fastidioso. Pertanto, qui condivideremo un metodo molto più rapido per ottenerlo con un clic.

Alcuni utenti pensano che la funzione "ant-spam" integrata in Outlook non sia così efficace come sperano. Pertanto, sono abituati a creare regole di Outlook per bloccare i mittenti. Ora, di seguito, introdurremo un metodo rapido per creare una regola per bloccare i mittenti di più email.

Crea rapidamente una regola per bloccare i mittenti di più email

1. Per cometart, avvia l'applicazione Outlook.
2. Quindi, accedi alla finestra dell'editor VBA tramite la scorciatoia "Alt + F11".
3. Successivamente, nella nuova finestra, inserisci il seguente codice VBA in un modulo inutilizzato.

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

4. Successivamente, in conformità a “Come eseguire il codice VBA in Outlook", aggiungi questa macro alla barra degli strumenti di accesso rapido o alla barra multifunzione.
5. Successivamente, uscire normalmente dall'editor VBA.
6. Infine, procedi come segue per provare.

• Prima di tutto, seleziona le email di cui vuoi bloccare i mittenti.
• Quindi, fai clic sul pulsante Nuova macro.
• Al termine della macro, puoi andare al menu "File" e fare clic sul pulsante "Gestisci regole e avvisi" per controllare la regola appena aggiunta, come mostrato nell'immagine qui sotto.

Tieni a bada le email dannose

Indipendentemente dal client di posta elettronica che utilizzi, devi ricevere frequentemente le e-mail da mittenti sconosciuti. Most delle e-mail potrebbe essere pubblicità di spam e persino contenere macro dannose. Possono danneggiare il tuo file di Outlook in un batter d'occhio. Pertanto, in Outlook, dovresti adottare misure efficaci per bloccare le e-mail sconosciute. Inoltre, se te lo puoi permettere, è consigliabile preparare un potente strumento di recupero PST, come ad esempio DataNumen Outlook Repair. Si può riparare Outlook file senza sudare, non importa quanto seriamente sia danneggiato.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui ripristino sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com