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

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

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

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

---

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

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

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

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

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

4, И нажмите OK кнопку, чтобы перейти к Мастер правил, нажмите Применить правило к полученному мной сообщению из файла Начать с пустого правила поле раздела, см. снимок экрана:

5. Затем нажмите Далее кнопку, на этом шаге не выбирайте никаких опций и нажмите Далее нажмите кнопку, появится окно с предупреждением, нажмите Да кнопку, см. снимок экрана:

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

7. Нажмите OK кнопку и продолжайте нажимать Далее кнопка в этом Есть ли исключения диалог, проверьте кроме случаев, когда отправитель находится в указанной адресной книге вариант в Шаг 1. Выберите исключения список, а затем щелкните связанный текст указанныйИ Добавить список адресов Появится окно, выберите папку контактов, которая содержит контакты, которые вы хотите исключить, см. снимок экрана:

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

9, Затем нажмите Завершить и Ok кнопки для закрытия диалогов. С этого момента, когда электронные письма приходят от неизвестных отправителей, они будут автоматически перемещаться в определенную папку.

---

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

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

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

2. В Microsoft Visual Basic для приложений окно, дважды щелкните ThisOutlookSession из Проект1 (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, чтобы код вступил в силу. С этого момента, когда электронные письма поступают от неизвестных отправителей, они будут автоматически перемещаться в папку Неизвестный, см. Снимок экрана:

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