Como bloquear automaticamente e-mails do Outlook daqueles que não estão em uma lista branca

Se você armazenou centenas de remetentes seguros em um arquivo de texto, ou seja, uma lista branca, você pode desejar que o Outlook bloqueie automaticamente os e-mails dos remetentes que não estão incluídos nessa lista branca. Agora, neste artigo, apresentaremos uma maneira inteligente de obtê-lo.

No artigo anterior – “Como bloquear automaticamente e-mails indesejados do Outlook com a lista negra em um arquivo de texto“, você pode aprender um método para bloquear os e-mails daqueles que estão em uma lista negra. Semelhante a isso, você também pode bloquear automaticamente os e-mails daqueles que não estão em uma lista de permissões. A partir daí, vamos ensinar-lhe um método.

Bloquear automaticamente e-mails daqueles que não estão em uma lista de permissões

1. Para comotart, inicie o aplicativo Outlook.
2. Em seguida, acione o editor VBA do Outlook de acordo com “Como executar o código VBA no seu Outlook.
3. Na janela subsequente, coloque o seguinte código no projeto “ThisOutlookSession”.

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) End Sub Private Sub objInboxItems_ItemAdd(ByVal objItem As Object) Dim objMail As 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 Set objMail = objItem strSenderEmailAddress = objMail.SenderEmailAddress 'Modificar o caminho para o arquivo de texto específico strTextFile = "E:\Whitelist.txt" Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objTextStream = objFileSystem.OpenTextFile(strTextFile) 'Obter endereços de email no arquivo de texto simples Set objRegExp = CreateObject("vbscript.RegExp") With 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.ReadLine If strLine <> "" Then If objRegExp .test(strLine) Em seguida, defina objMatches = objRegExp.Execute(strLine) para cada objMatch In 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. Depois disso restart Outlook para ativar esta macro.
5. Desde então, toda vez que um novo e-mail chega, o Outlook verifica automaticamente se o remetente está na lista de permissões. Caso contrário, o e-mail será movido para a pasta “E-mail indesejado” automaticamente.

Tenha cuidado com e-mails desconhecidos

Toda vez que você receber um e-mail de remetentes ou fontes desconhecidas, é melhor aumentar sua vigilância. É porque os e-mails podem conter assuntos maliciosos que podem levar à corrupção do Outlook. Depois que o arquivo PST do Outlook for danificado, você precisará fazer uso de um robusto Reparação de PST utilitário, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo consertar mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com