Как переместить электронные письма от неизвестных отправителей в определенную папку в 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 для приложений окно, дважды щелкните Эта сессия Outlook из Проект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»Другим в сценарии.
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.