Как настроить автоматическое перемещение писем от неизвестных отправителей в указанную папку в Outlook?

В повседневной работе вы, вероятно, получаете множество писем от неизвестных отправителей, чьи контакты не сохранены в вашей папке «Контакты». Такие сообщения могут оказаться спамом или даже содержать вредоносный контент. В этом случае удобно автоматически перемещать их в отдельную папку, а не оставлять во «Входящих». Как настроить такое решение в Outlook?

Перемещение писем от неизвестных отправителей в определённую папку с помощью правила

Перемещение писем от неизвестных отправителей в определённую папку с помощью кода VBA

---

Перемещение писем от неизвестных отправителей в определённую папку с помощью правила

На самом деле вы можете настроить правило для автоматического перемещения писем от неизвестных отправителей в нужную папку. Для этого выполните следующие действия:

1. Создайте новую папку в папке «Входящие», куда будут помещаться письма от неизвестных отправителей, как показано на следующем снимке экрана:

2. Затем нажмите Главная > Правила > Управление правилами и уведомлениями, см. снимок экрана:

3. В диалоговом окне Правила и уведомления нажмите Создать правило на вкладке Правила для электронной почты, см. снимок экрана:

4. Нажмите кнопку ОК, чтобы перейти в Мастер правил, затем в разделе Создание правила с нуля выберите вариант Применить правило к получаемым сообщениям, см. снимок экрана:

5. Затем нажмите кнопку Далее. На этом этапе не выбирайте никаких параметров — сразу нажмите кнопку Далее. Появится предупреждение: нажмите кнопку Да (см. снимок экрана):

6. В следующем диалоговом окне установите флажок напротив параметра переместить его в указанную папку в списке Шаг 1: Выберите действие(я), затем щёлкните по ссылке указанную. В открывшемся диалоговом окне Правила и уведомления укажите папку, в которую следует перемещать письма. См. снимок экрана:

7. Нажмите кнопку ОК, затем — кнопку Далее. В диалоговом окне Есть ли исключения? установите флажок напротив параметра за исключением случаев, когда отправитель находится в указанной папке Адресная книга в списке Шаг 1: Выберите исключение(я), затем щёлкните по ссылке указанной. Откроется окно Добавить Список адресов, где нужно выбрать папку с контактами, которые следует исключить (см. снимок экрана):

8. Затем нажмите кнопку Добавить, после чего — кнопку Далее, чтобы перейти к последнему шагу мастера. В поле Шаг 1: Укажите имя для этого правила введите имя правила и установите флажок напротив параметра Включить это правило в разделе Шаг 2: Настройка правила. См. снимок экрана:

9. Затем нажмите кнопки Готово и ОК, чтобы закрыть диалоговые окна. Теперь все письма от неизвестных отправителей будут автоматически перемещаться в указанную папку.

---

Перемещение писем от неизвестных отправителей в определённую папку с помощью кода VBA

Возможно, описанный выше способ покажется вам излишне сложным. Тогда воспользуйтесь кодом VBA — это быстрое и простое решение задачи.

1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений дважды щёлкните элемент ThisOutlookSession в области Project1 (VbaProject.OTM), чтобы открыть модуль, и вставьте в него приведённый ниже код.

Код VBA: Автоматическое перемещение писем от неизвестных отправителей в определённую папку:

Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
    Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
    xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
    Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
    For I = 3 To 1 Step -1
        xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
        Set xContactItem = xContactItems.Find(xFilter)
        If TypeName(xContactItem) <> "Nothing" Then Exit For
    Next
Next
If xContactItem Is Nothing Then
    Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
    xFound = False
    For Each xSubFolder In xInboxFlds
        If xSubFolder.Name = "Unknown" Then
            xFound = True
            Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
            Exit For
        End If
    Next
    If xFound = False Then
        Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
    End If
    item.Move xTargetFolder
End If
End Sub

3. Сохраните код, закройте окно редактора и перезапустите Outlook, чтобы изменения вступили в силу. Теперь письма от неизвестных отправителей будут автоматически перемещаться в папку «Unknown» — см. снимок экрана:

Примечание: Папка Unknown создаётся автоматически при поступлении писем от неизвестных отправителей. Вы можете заменить название папки «Unknown» на другое в скрипте.