Если вы сохранили сотни надежных отправителей в текстовом файле, а именно в белом списке, вы можете захотеть, чтобы Outlook автоматически блокировал электронные письма от отправителей, которые не включены в этот белый список. Теперь, в этой статье, мы представим вам умный способ получить его.
В предыдущей статье — «Как автоматически блокировать нежелательные электронные письма Outlook с помощью черного списка в текстовом файле«, вы можете узнать, как заблокировать электронные письма от тех, кто находится в черном списке. Аналогично этому, вы также можете автоматически блокировать электронные письма от тех, кто не находится в белом списке. После этого мы научим вас методу.
Автоматическая блокировка электронных писем от тех, кого нет в белом списке
- Для насtarт, запустите приложение Outlook.
- Затем запустите редактор Outlook VBA в соответствии с «Как запустить код VBA в Outlook.
- В следующем окне поместите следующий код в проект «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 obj Почта как 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" Затем установите objMail = objItem strSenderEmailAddress = objMail.SenderEmailAddress 'Изменить путь к определенному текстовому файлу strTextFile = "E:\Whitelist.txt" Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objTextStream = objFileSystem.OpenTextFile(strTextFile) 'Получить адреса электронной почты в текстовом файле 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 Завершить с помощью Do until objTextStream.AtEndOfStream strLine = objTextStream.ReadLine If strLine <> "" Then If objRegExp .test(strLine) Затем установите objMatches = objRegExp.Execute(strLine) для каждого objMatch в 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
- После этого резtart Outlook, чтобы активировать этот макрос.
- С тех пор каждый раз, когда приходит новое электронное письмо, Outlook автоматически проверяет, находится ли отправитель в белом списке. В противном случае письмо будет автоматически перемещено в папку «Нежелательная почта».
Будьте осторожны с неизвестными электронными письмами
Каждый раз, когда вы получаете электронное письмо от неизвестных отправителей или источников, вам лучше повысить бдительность. Это связано с тем, что электронные письма могут содержать вредоносные материалы, которые могут привести к повреждению Outlook. Как только файл Outlook PST будет поврежден, вам необходимо использовать надежный ремонт PST утилита, например DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com
Оставьте комментарий