Обучение Dr.Web Antispam в Microsoft Outlook

Материал из wiki.drweb.com.

При использовании пакета "Dr.Web® Антивирус + Антиспам" иногда возникают ситуации, когда спам не распознается антиспам-движком, либо определяется неправильно. Для предотвращения таких ситуаций в будущем имеется возможность «обучать» антиспам. Для этого письма, не распознанные как спам необходимо отсылать в виде вложения на e-mail vrspam@drweb.com, а ошибочно распознанные как спам – на e-mail vrnonspam@drweb.com. Ниже будет рассказано, как упростить этот процесс в почтовой программе Microsoft Outlook, используя специальные макросы.

Открываем Microsoft Outlook и нажимаем Alt+F11 для открытия редактора Visual Basic.
Создаем новый модуль (Insert->Module).
Копируем следующий код:

' DrWeb Spam Reporting Macro
Public Sub SendToSpam()
   Dim objOL As Outlook.Application
   Dim objSelection As Outlook.Selection
   Dim objMsg As Object
   Dim objNewMsg As Object
   On Error Resume Next
   ' Instantiate an Outlook Application object
   Set objOL = CreateObject("Outlook.Application")
   ' Get the collection of selected objects
   Set objSelection = objOL.ActiveExplorer.Selection
   ' This code sends the selected mail items
   For Each objMsg In objSelection
       ' This code only sends mail items
       If objMsg.Class = olMail Then
           ' Create a new mail Item
           Set objNewMsg = Application.CreateItem(olMailItem)
           ' send the new mail item to the spam reporting email address
           objNewMsg.To = "vrspam@drweb.com"
           ' add selected mail item as attachment to new mail item
           objNewMsg.Attachments.Add objMsg
           ' send the new mail item
           objNewMsg.Send
           ' Clear the New Mail Item object
           Set objNewMsg = Nothing
           ' Delete the spam mail item
           objMsg.Delete
       End If
   Next
ExitSub:
   Set objMsg = Nothing
   Set objSelection = Nothing
   Set objOL = Nothing
End Sub
' End DrWeb Spam Reporting Macro

'DrWeb NONSpam Reporting Macro
Public Sub SendToNOSpam()
   Dim objOL As Outlook.Application
   Dim objSelection As Outlook.Selection
   Dim objMsg As Object
   Dim objNewMsg As Object
   On Error Resume Next
   ' Instantiate an Outlook Application object
   Set objOL = CreateObject("Outlook.Application")
   ' Get the collection of selected objects
   Set objSelection = objOL.ActiveExplorer.Selection
   ' This code sends the selected mail items
   For Each objMsg In objSelection
       ' This code only sends mail items
       If objMsg.Class = olMail Then
           ' Create a new mail Item
           Set objNewMsg = Application.CreateItem(olMailItem)
           ' send the new mail item to the spam reporting email address
           objNewMsg.To = "vrnonspam@drweb.com"
           ' add selected mail item as attachment to new mail item
           objNewMsg.Attachments.Add objMsg
           ' send the new mail item
           objNewMsg.Send
           ' Clear the New Mail Item object
           Set objNewMsg = Nothing
       End If
   Next
ExitSub:
   Set objMsg = Nothing
   Set objSelection = Nothing
   Set objOL = Nothing
End Sub
'End DrWeb NONSpam Reporting Macro

При выполнении скрипта DrWeb Spam Reporting Macro для одного или нескольких выделенных писем они будут отправлены на адрес vrspam@drweb.com в виде вложения и удалены. При выполнении скрипта DrWeb NONSpam Reporting Macro для одного или нескольких выделенных писем они будут отправлены на адрес vrnonspam@drweb.com в виде вложения и не будут удалены

Сохраняем проект.
Добавляем кнопки на панель инструментов: Вид – Панель инструментов – Настройка – Команды – Макросы. Перетаскиваем два проекта на панель инструментов.
Далее меняем текст и значок на кнопке.