Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


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

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

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

док переместить электронные письма из неизвестного 1

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

док переместить электронные письма из неизвестного 2

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

док переместить электронные письма из неизвестного 3

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

док переместить электронные письма из неизвестного 4

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

док переместить электронные письма из неизвестного 5

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

док переместить электронные письма из неизвестного 6

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

док переместить электронные письма из неизвестного 7

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

док переместить электронные письма из неизвестного 8

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

док переместить электронные письма из неизвестного 9

3. Затем сохраните код, закройте окно кода и перезапустите Outlook, чтобы код вступил в силу. С этого момента, когда электронные письма поступают от неизвестных отправителей, они будут автоматически перемещаться в папку Неизвестный, см. Снимок экрана:

док переместить электронные письма из неизвестного 10

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


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL