Ինչպե՞ս անհայտ ուղարկողներից էլփոստերը տեղափոխել Outlook- ի որոշակի թղթապանակ: 

Ձեր ամենօրյա աշխատանքում դուք կարող եք ստանալ բազմաթիվ նամակներ, որոնք գալիս են անհայտ ուղարկողներից, որոնք չեն պահվում ձեր Կոնտակտների պանակում: Դրանք կարող են լինել ինչ-որ անպիտան կամ վնասակար էլ. Նամակներ: Այս դեպքում դուք ցանկանում եք ավտոմատ կերպով տեղափոխել այս նամակները Inbox- ի փոխարեն որոշակի թղթապանակ: Ինչպե՞ս կարող եք լուծել այս աշխատանքը 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 հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (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»Ուրիշներին ՝ սցենարով: