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

Як перемістити електронні листи від невідомих відправників до певної папки в Outlook? 

У своїй щоденній роботі ви можете отримувати багато електронних листів від невідомих відправників, які не зберігаються у вашій папці Контакти. Це можуть бути небажані або шкідливі електронні листи, у цьому випадку ви хочете автоматично перемістити ці електронні листи до певної папки, а не до папки "Вхідні". Як ви могли вирішити цю роботу в Outlook?

Перемістіть електронні листи від невідомих відправників до певної папки, створивши правило

Перемістіть електронні листи від невідомих відправників до певної папки, застосувавши код VBA


Перемістіть електронні листи від невідомих відправників до певної папки, створивши правило

Насправді, ви можете створити правило для автоматичного переміщення електронних листів від невідомих відправників до певної папки. Будь ласка, виконайте такі дії:

1. Створіть нову папку в папці Вхідні, в яку будуть розміщені електронні листи від невідомих відправників, як показано на наступному знімку екрана:

doc перемістити електронні листи з невідомого 1

2. Потім натисніть Головна > Правила > Керування правилами та сповіщеннями, див. скріншот:

doc перемістити електронні листи з невідомого 2

3, в Правила та попередження діалогове вікно натисніть кнопку Нове правило під Правила електронної пошти вкладку, див. знімок екрана:

doc перемістити електронні листи з невідомого 3

4, І натисніть OK кнопка, щоб перейти до Майстер правил, Натисніть Застосувати правило до повідомлення, яке я отримую опція від Почніть з пустого правила розділ, див. знімок екрана:

doc перемістити електронні листи з невідомого 4

5. Потім натисніть Далі на цьому кроці, будь ласка, не вибирайте жодних варіантів, а натисніть Далі кнопка безпосередньо, вискакує вікно попередження, натисніть, будь ласка Так , див. знімок екрана:

doc перемістити електронні листи з невідомого 5

6. І в наступному діалоговому вікні поставте галочку перемістіть його до вказаної папки опція в Крок 1: Виберіть дію (дії) , а потім клацніть на зв’язаний текст зазначений, і у відкритому Правила та попередження діалогове вікно, вкажіть папку, куди ви хочете перенести електронні листи, див. знімок екрана:

doc перемістити електронні листи з невідомого 6

7. Клацання OK і продовжуйте клацати Далі кнопку, у цьому Чи є якісь винятки діалогове вікно, перевірте за винятком випадків, коли відправник вказаний у вказаній адресній книзі опція в Крок 1: Виберіть винятки , а потім клацніть на зв’язаний текст зазначений, І Додати список адрес вискочить, виберіть папку контактів, яка містить контакти, які ви хочете, крім, див. знімок екрана:

doc перемістити електронні листи з невідомого 7

8. Потім натисніть додавати кнопку, а потім натисніть кнопку Далі щоб перейти до останнього діалогового вікна майстра, введіть ім'я правила в Крок 1: Вкажіть назву цього правила текстове поле та встановіть прапорець Увімкніть це правило опція від Крок 2: Правило встановлення розділ опцій. Дивіться знімок екрана:

doc перемістити електронні листи з невідомого 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

doc перемістити електронні листи з невідомого 9

3. Потім збережіть код і закрийте вікно коду та перезапустіть Outlook, щоб код набув чинності. Відтепер, коли електронні листи від деяких невідомих відправників, вони автоматично переміщуватимуться до папки Невідомо, див. Знімок екрана:

doc перемістити електронні листи з невідомого 10

примітки: Невідомий папка буде створена автоматично, коли надходять невідомі електронні листи. Ви можете змінити назву папки “Невідомо”Іншим у сценарії.


Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL