Ako automaticky blokovať e-maily z Outlooku od tých, ktorí nie sú na zozname povolených

Ak ste do textového súboru, konkrétne na bielu listinu, uložili stovky bezpečných odosielateľov, možno budete chcieť, aby program Outlook automaticky blokoval e-maily od odosielateľov, ktorí nie sú zahrnutí do tejto bielej listiny. Teraz vám v tomto článku predstavíme inteligentný spôsob, ako to získať.

V predchádzajúcom článku - „Ako automaticky blokovať nežiaduce e-maily z programu Outlook pomocou čiernej listiny v textovom súbore„, Môžete sa naučiť spôsob blokovania e-mailov od tých, ktorí sú na čiernej listine. Podobne môžete tiež automaticky blokovať e-maily od tých, ktorí sa nenachádzajú na zozname povolených. Ďalej vás naučíme metódu.

Automatické blokovanie e-mailov od osôb, ktoré nie sú na zozname povolených

1. Pre akotart, spustiť aplikáciu Outlook.
2. Potom spustite editor Outlook VBA podľa “Ako spustiť kód VBA v programe Outlook.
3. V nasledujúcom okne vložte nasledujúci kód do projektu „ThisOutlookSession“.

Verejné WithEvents objInboxFolder ako Outlook. Priečinok Public WithEvents objInboxItems ako Outlook. Položky Public objJunkFolder ako Outlook.Folder Súkromná čiastková aplikácia_Startup () Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder (olFolderInbox) Set objInboxItems = objInboxFolder Items Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder (olFolderJunk) End Sub Private Sub objInboxItems_ItemAdd .MailItem Dim strSenderEmailAddress Ako String Dim StrTextFile Ako String Dim objFileSystem Ako Object Dim objTextStream Ako Object Dim objRegExp Ako Object Dim objMatches Ako Object Dim objMatch Ako Objekt Dim strLine Ako String Dim strWhitelist Ako String Ak TypeName (objItem) = "MailItem" Potom Nastaviť obj = objItem strSenderEmailAddress = objMail.SenderEmailAddress 'Upraviť cestu k konkrétnemu textovému súboru strTextFile = "E: \ Whitelist.txt" Nastaviť objFileSystem = CreateObject ("Scripting.FileSystemObject") Nastaviť objTextStream = objFileSystem.OpenTextFileSystem.OpenTextFile = v súbore obyčajného textu Nastaviť objRegExp = CreateObject ("vbscript.RegExp") s objRegExp .Pattern = "(?: [a-z0-9! # $% & '* + / =? ^ _` { |} ~ -] + (?: \. [a-z0-9! # $% & '* + / =? ^ _ `{|} ~ -] +) * |" "(?: [\ x01- \ x08 \ x0b \ x0c \ x0e- \ x1f \ x21 \ x23- \ x5b \ x5d- \ x7f] | \\ [\ x01- \ x09 \ x0b \ x0c \ x0e- \ x7f]) * "") @ ( ?: (?: [a-z0-9] (?: [a-z0-9 -] * [a-z0-9])? \.) + [a-z0-9] (?: [a- z0-9 -] * [a-z0-9])? | \ [(? :( ?: 25 [0-5] | 2 [0-4] [0-9] | [01]? [0- 9] [0-9]?) \.) {3} (?: 25 [0-5] | 2 [0-4] [0-9] | [01]? [0-9] [0-9 ]? | [a-z0-9 -] * [a-z0-9]: (?: [\ x01- \ x08 \ x0b \ x0c \ x0e- \ x1f \ x21- \ x5a \ x53- \ x7f] | \\ [\ x01- \ x09 \ x0b \ x0c \ x0e- \ x7f]) +) \]) ".IgnoreCase = True .Global = True Koniec s Do Do objTextStream.AtEndOfStream strLine = objTextStream.ReadLine Ak strLine <>" "Then If objRegExp.test (strLine) Then Set objMatches = objRegExp.Execute (strLine) For each objMatch In objMatches strWhitelist = objMatch.Value &"; " & strWhitelist Ďalšie Koniec Ak Koniec Ak Smyčka Ak InStr (strWhitelist, strSenderEmailAddress) = 0 Potom objMail.Move objJunkFolder Koniec Ak Koniec Ak Koniec Sub

4. Po tom, restart Outlook aktivovať toto makro.
5. Odvtedy Outlook vždy, keď dorazí nový e-mail, automaticky skontroluje, či sa odosielateľ nachádza na bielej listine. Ak nie, bude e-mail automaticky presunutý do priečinka „Nevyžiadaná pošta“.

Neznáme e-maily majte na pozore

Zakaždým, keď dostanete e-mail od neznámych odosielateľov alebo zdrojov, radšej by ste mali zvýšiť ostražitosť. Je to preto, že e-maily môžu obsahovať škodlivé záležitosti, ktoré môžu viesť k poškodeniu Outlooku. Akonáhle sa súbor PST programu Outlook poškodí, musíte využiť robustný Oprava PST užitočnosť, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S