Бірнеше электрондық поштаның жіберушілеріне тосқауыл қою үшін Outlook ережесін қалай тез құруға болады

Егер сіз бірнеше таңдалған электрондық пошта хабарларын жіберушілерге тыйым салу ережесін жасағыңыз келсе, алдымен жіберушілерді жазып, содан кейін ережені қолмен жасауыңыз керек. Бұл өте қиын. Осылайша, мұнда біз оны бір рет басу арқылы алудың жылдам әдісімен бөлісеміз.

Кейбір пайдаланушылар Outlook бағдарламасында кіріктірілген «ант-спам» функциясы олар күткендей тиімді емес деп санайды. Сондықтан олар жіберушілерге тосқауыл қою үшін Outlook ережелерін құруға дағдыланған. Енді төменде біз бірнеше электрондық пошта хабарларын жіберушілерге тосқауыл қою ережесін құрудың жылдам әдісін енгіземіз.

Бірнеше электрондық пошта жіберушілеріне тыйым салу ережесін тез жасаңыз

1. Үшінtart, Outlook қосымшасын іске қосыңыз.
2. Содан кейін VBA редакторының терезесіне «Alt + F11» төте жолымен кіріңіз.
3. Әрі қарай, жаңа терезеде келесі 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

4. Осыдан кейін «сәйкесOutlook бағдарламасында VBA кодын қалай іске қосуға болады«, Бұл макросты жылдам қол жетімді құралдар тақтасына немесе таспаға қосыңыз.
5. Кейін VBA редакторынан қалыпты түрде шығыңыз.
6. Соңында, байқап көру үшін келесі әрекеттерді орындаңыз.

• Алдымен, сіз жіберушілерді бұғаттағыңыз келетін электрондық хаттарды таңдаңыз.
• Содан кейін жаңа макро батырманы басыңыз.
• Макро аяқталғаннан кейін сіз «Файл» мәзіріне өтіп, төмендегі суретте көрсетілгендей жаңадан қосылған ережені тексеру үшін «Ережелер мен ескертулерді басқару» батырмасын басуыңызға болады.

Зиянды электрондық поштаны ұстаңыз

Сіз қандай электрондық пошта клиентін қолдансаңыз да, белгісіз жіберушілерден электрондық хаттарды жиі алуыңыз керек. Мost электрондық хаттар жарнамалық спамдар болуы мүмкін, тіпті зиянды макростардан тұрады. Олар сіздің Outlook файлыңызды тез арада зақымдауы мүмкін. Осылайша, Outlook бағдарламасында сіз белгісіз электрондық хаттарды бұғаттау үшін тиімді шаралар қабылдауыңыз керек. Сонымен қатар, егер мүмкіндігіңіз болса, қуатты PST қалпына келтіру құралын дайындаған жөн, мысалы DataNumen Outlook Repair. Ол істей алады Outlook бағдарламасын жөндеу ол қаншалықты зақымдалғанына қарамастан, терді бұзбай файл жасаңыз.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com