Dacă ați stocat sute de expeditori siguri într-un fișier text, și anume o listă albă, poate doriți ca Outlook să blocheze automat e-mailurile de la expeditorii care nu sunt incluși în această listă albă. Acum, în acest articol, vă vom prezenta o modalitate inteligentă de a-l obține.
În articolul precedent – „Cum să blocați automat e-mailurile nedorite Outlook cu lista neagră într-un fișier text„, puteți învăța o metodă de a bloca e-mailurile de la cele dintr-o listă neagră. Similar cu asta, este posibil să doriți să blocați automat e-mailurile de la cei care nu sunt într-o listă albă. Ulterior, vă vom învăța o metodă.
Blocarea automată a e-mailurilor de la cei care nu se află într-o listă albă
- Pentru noitart, lansați aplicația Outlook.
- Apoi, declanșați editorul Outlook VBA conform „Cum să rulați codul VBA în Outlook.
- În fereastra următoare, introduceți următorul cod în proiectul „ThisOutlookSession”.
Public WithEvents objInboxFolder ca Outlook.Folder Public WithEvents objInboxItems ca Outlook.Items Public objJunkFolder ca Outlook.Folder Private Sub Application_Startup() Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox) Set objInboxItems = objInboxFolder.Items Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox) Setare objInboxItems ObjJunkFolder. Object) Dim objMail As Outlook .Mailitem Dim StrSendeMailAddress ca String Dim StrtextFile ca String Dim objfilesystem ca obiect Dim objTextStream ca obiect Dim Objregexp ca obiect Dim objcheche ca obiect Dim objMatch ca obiect Dim Strline ca String Dim StrhiteList ca String dacă TypeName (Objitem) = "Mailitem", apoi setează objmail If TypeName (objitem) = objItem strSenderEmailAddress = objMail.SenderEmailAddress 'Modificați calea către fișierul text specific strTextFile = "E:\Whitelist.txt" Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objTextStream = 'objFileTextletFileSystemFile. în fișierul text simplu Set objRegExp = CreateObject("vbscript.RegExp") Cu 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 Se încheie cu Do Until objTextStream.AtEndOfStream strLine = objTextStream.ReadLine If strLine If obj "" TheExp If obj .test(strLine) Apoi setați objMatches = objRegExp.Execute(strLine) Pentru fiecare objMatch în objMatches strWhitelist = objMatch.Value & ";" & strWhitelist Next End If End If Loop If InStr(strWhitelist, strSenderEmailAddress) = 0 Then objMail.Move objJunkFolder End If End If End Sub
- După aceea, restart Outlook pentru a activa această macrocomandă.
- De atunci, de fiecare dată când sosește un nou e-mail, Outlook va verifica automat dacă expeditorul se află în lista albă. Dacă nu, e-mailul va fi mutat automat în dosarul „E-mail nedorit”.
Fiți atenți la e-mailurile necunoscute
De fiecare dată când primiți un e-mail de la expeditori sau surse necunoscute, ar fi bine să vă ridicați vigilența. Se datorează faptului că e-mailurile pot conține probleme rău intenționate care pot duce la corupția Outlook. Odată ce fișierul PST Outlook este deteriorat, trebuie să utilizați un fișier robust reparație PST utilitate, cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com
Lasă un comentariu