Cum să creați rapid o regulă Outlook pentru a bloca expeditorii de e-mailuri multiple

Dacă doriți să creați o regulă pentru a bloca expeditorii mai multor e-mailuri selectate, de obicei, trebuie mai întâi să notați expeditorii și apoi să creați o regulă manual. Este destul de supărător. Astfel, aici vom împărtăși o metodă mult mai rapidă de a o obține printr-un singur clic.

Unii utilizatori cred că funcția încorporată „ant-spam” în Outlook nu este atât de eficientă pe cât speră. Prin urmare, ei sunt obișnuiți să creeze reguli Outlook pentru a bloca expeditorii. Acum, în cele ce urmează, vom introduce o metodă rapidă de a crea o regulă pentru a bloca expeditorii mai multor e-mailuri.

Creați rapid o regulă pentru a bloca expeditorii de e-mailuri multiple

1. Pentru noitart, lansați aplicația Outlook.
2. Apoi, intrați în fereastra editorului VBA prin comanda rapidă „Alt + F11”.
3. Apoi, în noua fereastră, introduceți următorul cod VBA într-un modul neutilizat.

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. După aceea, în conformitate cu „Cum să rulați codul VBA în Outlook„, adăugați această macrocomandă în Bara de instrumente Acces rapid sau în panglică.
5. Ulterior, ieșiți din editorul VBA în mod normal.
6. În cele din urmă, parcurgeți următorii pași pentru a încerca.

• În primul rând, selectați e-mailurile ai căror expeditori doriți să îi blocați.
• Apoi, faceți clic pe butonul macro nou.
• După terminarea macrocomenzii, puteți accesa meniul „Fișier” și faceți clic pe butonul „Gestionați regulile și alertele” pentru a verifica regula nou adăugată, așa cum se arată în imaginea de mai jos.

Păstrați e-mailurile rău intenționate la distanță

Indiferent de clientul de e-mail pe care îl utilizați, trebuie să primiți frecvent e-mailurile de la expeditori necunoscuți. Most dintre e-mailuri pot fi spam de publicitate și chiar pot conține macrocomenzi rău intenționate. Acestea vă pot deteriora fișierul Outlook într-o clipă. Astfel, în Outlook, ar trebui să luați măsuri eficiente pentru a bloca e-mailurile necunoscute. În plus, dacă vă puteți permite, este recomandabil să pregătiți un instrument puternic de recuperare PST, cum ar fi DataNumen Outlook Repair. Poate repara Outlook fișier fără a transpira, indiferent cât de grav este deteriorat.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com