Как да преместите имейли от неизвестни податели в определена папка в Outlook?

Автор: Xiaoyang Последна промяна: 2018-05-22

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

Преместете имейли от неизвестни податели в конкретна папка, като създадете правило

Преместете имейли от неизвестни податели в конкретна папка, като приложите VBA код

Преместете имейли от неизвестни податели в конкретна папка, като създадете правило

Всъщност можете да създадете правило за автоматично преместване на имейлите от неизвестни податели в определена папка, моля, направете следното:

1. Създайте нова папка под папката Inbox, която ще постави имейлите, идващи от непознати податели, както е показано на следната екранна снимка:

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, за да влезе в сила кодът. Отсега нататък, когато имейлите идват от някои неизвестни податели, те автоматично ще бъдат преместени в папката Unknown, вижте екранната снимка:

doc преместване на имейли от неизвестен 10

Забележка: Най- неизвестен папката ще бъде създадена автоматично, когато има входящи неизвестни имейли. Можете да промените името на папката "unknow” на други в сценария.