Kaip greitai sukurti „Outlook“ taisyklę, kad blokuotų kelių el. laiškų siuntėjus

Jei norite sukurti taisyklę, kad blokuotų kelių pasirinktų el. laiškų siuntėjus, paprastai pirmiausia turite užsirašyti siuntėjus, o tada sukurti taisyklę rankiniu būdu. Tai gana varginanti. Taigi, čia mes pasidalinsime daug greitesniu būdu, kaip jį gauti vienu paspaudimu.

Kai kurie vartotojai mano, kad programoje „Outlook“ integruota „ant-spam“ funkcija nėra tokia efektyvi, kaip jie tikisi. Todėl jie yra įpratę kurti „Outlook“ taisykles, kad blokuotų siuntėjus. Toliau pristatysime greitą būdą sukurti taisyklę, kuri blokuotų kelių el. laiškų siuntėjus.

Greitai sukurkite taisyklę, skirtą blokuoti kelių el. laiškų siuntėjus

1. Dėl astart, paleiskite „Outlook“ programą.
2. Tada įveskite VBA redaktoriaus langą naudodami spartųjį klavišą „Alt + F11“.
3. Tada naujame lange įdėkite šį VBA kodą į nenaudojamą modulį.

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. Po to, vadovaujantis „Kaip paleisti VBA kodą „Outlook“.“, pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos arba juostos.
5. Tada įprastai išeikite iš VBA redaktoriaus.
6. Galiausiai, norėdami išbandyti, atlikite toliau nurodytus veiksmus.

• Pirmiausia pasirinkite el. laiškus, kurių siuntėjus norite blokuoti.
• Tada spustelėkite naujos makrokomandos mygtuką.
• Baigę makrokomandą, galite eiti į meniu „Failas“ ir spustelėti mygtuką „Tvarkyti taisykles ir įspėjimus“, kad patikrintumėte naujai pridėtą taisyklę, kaip parodyta paveikslėlyje žemiau.

Saugokite kenkėjiškus el. laiškus „Bay“.

Nesvarbu, kokią el. pašto programą naudojate, turite dažnai gauti el. laiškus iš nežinomų siuntėjų. Most laiškų gali būti reklaminis brukalas ir netgi juose gali būti kenkėjiškų makrokomandų. Jie gali akimirksniu sugadinti jūsų „Outlook“ failą. Taigi „Outlook“ turėtumėte imtis veiksmingų priemonių, kad užblokuotumėte nežinomus el. Be to, jei galite sau tai leisti, patartina paruošti galingą PST atkūrimo įrankį, pvz. DataNumen Outlook Repair. Tai gali pataisyti Outlook failą, kad ir kaip rimtai jis būtų pažeistas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com