Slik blokkerer du automatisk Outlook-e-post fra de som ikke er på en hviteliste

Hvis du har lagret hundrevis av trygge avsendere i en tekstfil, nemlig en hviteliste, kan det hende du ønsker at Outlook automatisk blokkerer e-postene fra avsendere som ikke er inkludert i denne hvitelisten. Nå, i denne artikkelen, vil vi introdusere deg en smart måte å få det på.

I forrige artikkel – "Slik blokkerer du automatisk uønskede Outlook-e-poster med svartelisten i en tekstfil", kan du lære en metode for å blokkere e-poster fra de på en svarteliste. I likhet med det, vil du kanskje også automatisk blokkere e-postene fra de som ikke er på en hviteliste. Deretter vil vi lære deg en metode.

Autoblokker e-poster fra de som ikke er på en hviteliste

1. For somtart, start Outlook-applikasjonen.
2. Deretter utløser du Outlook VBA-editor i henhold til "Hvordan kjøre VBA-kode i Outlook.
3. I det påfølgende vinduet legger du følgende kode inn i "ThisOutlookSession" -prosjektet.

Public WithEvents objInboxFolder As Outlook.Folder Public WithEvents objInboxItems As Outlook.Items Public objJunkFolder As Outlook.Folder Private Sub Application_Startup() Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox) Set objInboxItems = objInboxFolder.Items Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk_ItInbox) End SubItemdsB objMail som Outlook .MailItem Dim strSenderEmailAddress As String Dim strTextFile As String Dim objFileSystem As Object Dim objTextStream As Object Dim objRegExp As Object Dim objMatches As Object Dim objMatch As Object Dim strLine As String Dim strWhitelist As String If TypeName(objItem) = "MailItem" Then = objItem strSenderEmailAddress = objMail.SenderEmailAddress 'Endre banen til den spesifikke tekstfilen strTextFile = "E:\Whitelist.txt" Angi objFileSystem = CreateObject("Scripting.FileSystemObject") Angi objTextStream = objFileSystem.OpenTextFilees() ' email i ren tekstfilen Sett objRegExp = CreateObject("vbscript.RegExp") Med 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 End With Do Until objTextStream.AtEndOfStream strLine = objTextStream.ReadLineEx "Then If strLine" .test(strLine) Sett deretter objMatches = objRegExp.Execute(strLine) For hver objMatch I 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

4. Etter det, restart Outlook for å aktivere denne makroen.
5. Siden da, hver gang en ny e-post kommer, vil Outlook automatisk sjekke om avsenderen er på hvitelisten. Hvis ikke, vil e-posten automatisk bli flyttet til "Søppelpost"-mappen.

Vær forsiktig med ukjente e-poster

Hver gang du mottar en e-post fra ukjente avsendere eller kilder, bør du øke årvåkenhet. Det er fordi at e-postene kan inneholde ondsinnede saker som kan føre til Outlook-korrupsjon. Når Outlook PST-filen blir skadet, må du bruke en robust PST reparasjon nytte, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med