Birdən çox e-poçt göndərənləri bloklamaq üçün Outlook qaydasını necə tez yaratmaq olar

Bir neçə seçilmiş e-poçtun göndərənlərini bloklamaq üçün bir qayda yaratmaq istəyirsinizsə, adətən, əvvəlcə göndərənləri yazmalı və sonra qaydanı əl ilə yaratmalısınız. Bu, olduqca əziyyətlidir. Beləliklə, burada bir kliklə əldə etmək üçün daha sürətli bir üsul paylaşacağıq.

Bəzi istifadəçilər Outlook-da quraşdırılmış “ant-spam” funksiyasının ümid etdikləri qədər effektiv olmadığını düşünür. Buna görə də göndərənləri bloklamaq üçün Outlook qaydaları yaratmağa öyrəşiblər. İndi, aşağıda, birdən çox e-poçt göndərənləri bloklamaq üçün bir qayda yaratmaq üçün sürətli bir üsul təqdim edəcəyik.

Birdən çox e-poçt göndərənləri bloklamaq üçün tez bir qayda yaradın

1. Kimi üçüntart, Outlook proqramını işə salın.
2. Sonra "Alt + F11" qısayolu vasitəsilə VBA redaktoru pəncərəsinə daxil olun.
3. Sonra, yeni pəncərədə aşağıdakı VBA kodunu istifadə olunmamış modula qoyun.

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. Bundan sonra “Outlook-da VBA kodunu necə işlətmək olar", bu makronu Tez Giriş Alətlər Panelinə və ya lentə əlavə edin.
5. Daha sonra VBA redaktorundan normal şəkildə çıxın.
6. Nəhayət, cəhd etmək üçün aşağıdakı addımları atın.

• Əvvəlcə göndərənlərini bloklamaq istədiyiniz e-poçtları seçin.
• Sonra, yeni makro düyməsini basın.
• Makro tamamlandıqdan sonra, aşağıdakı şəkildə göstərildiyi kimi, yeni əlavə edilmiş qaydanı yoxlamaq üçün “Fayl” menyusuna keçib “Qaydaları və Siqnalları İdarə et” düyməsini klikləə bilərsiniz.

Zərərli E-poçtları Bayda saxlayın

Hansı e-poçt müştərisindən istifadə etməyinizdən asılı olmayaraq, siz tez-tez naməlum göndərənlərdən e-poçtları almalısınız. Most e-poçtların spamları reklam ola bilər və hətta zərərli makroları ehtiva edə bilər. Onlar bir anda Outlook faylınıza zərər verə bilər. Beləliklə, Outlook-da naməlum e-poçtları bloklamaq üçün təsirli tədbirlər görməlisiniz. Bundan əlavə, əgər imkanınız varsa, güclü PST bərpa aləti hazırlamaq məsləhətdir, məsələn DataNumen Outlook Repair. Mümkündür Outlook-u təmir edin fayl nə qədər ciddi zədələnsə də tər tökmədən.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com