Conas ríomhphoist a bhogadh ó sheoltóirí anaithnid chuig fillteán ar leith in Outlook?

I d’obair laethúil, b’fhéidir go bhfaighidh tú go leor ríomhphoist a thagann ó sheoltóirí anaithnid nach sábhálfar i d’fhillteán Teagmhálacha. D’fhéadfadh gur ríomhphoist ríomhphoist nó mailíseacha iad seo, sa chás seo, ba mhaith leat na ríomhphoist seo a bhogadh go fillteán ar leith in ionad an Bhosca Isteach. Conas a d’fhéadfá an post seo a réiteach in Outlook?

Bog ríomhphoist ó sheoltóirí anaithnid chuig fillteán ar leith trí riail a chruthú

Bog ríomhphoist ó sheoltóirí anaithnid chuig fillteán ar leith trí chód VBA a chur i bhfeidhm

Bog ríomhphoist ó sheoltóirí anaithnid chuig fillteán ar leith trí riail a chruthú

I ndáiríre, is féidir leat riail a chruthú chun na ríomhphoist a bhogadh ó sheoltóirí anaithnid go fillteán ar leith go huathoibríoch, déan mar a leanas:

1. Cruthaigh fillteán nua faoin bhfillteán Isteach a chuirfidh na ríomhphoist ó sheoltóirí anaithnid mar a thaispeántar an pictiúr a leanas:

doc ríomhphoist a bhogadh ó anaithnid 1

2. Ansin cliceáil Baile > Rialacha > Bainistigh Rialacha & Foláirimh, féach ar an scáileán:

doc ríomhphoist a bhogadh ó anaithnid 2

3. Sa an Rialacha agus Foláirimh dialóg, cliceáil Riail Nua faoi na Rialacha R-phoist cluaisín, féach an scáileán:

doc ríomhphoist a bhogadh ó anaithnid 3

4. agus cliceáil OK cnaipe chun dul go dtí an Draoi Riail, Cliceáil Cuir riail i bhfeidhm maidir leis an teachtaireacht a fhaighim rogha ón Tosaigh ó riail bhán bosca ailt, féach an pictiúr:

doc ríomhphoist a bhogadh ó anaithnid 4

5. Ansin cliceáil Ar Aghaidh cnaipe, sa chéim seo, ná roghnaigh aon rogha, agus cliceáil Ar Aghaidh cnaipe go díreach, tá bosca rabhaidh popped amach, cliceáil le do thoil Is ea cnaipe, féach ar an scáileán:

doc ríomhphoist a bhogadh ó anaithnid 5

6. Agus sa chéad bhosca dialóige eile, seiceáil bog é go dtí an fillteán sonraithe rogha sa Céim1: Roghnaigh gníomh (anna) bosca liosta, agus ansin cliceáil ar an téacs nasctha sonraithe, agus san oscailt Rialacha agus Foláirimh dialóg, sonraigh an fillteán inar mian leat na ríomhphoist a bhogadh, féach ar an scáileán:

doc ríomhphoist a bhogadh ó anaithnid 6

7. Cliceáil OK cnaipe, agus téigh ar cliceáil Ar Aghaidh cnaipe, sa seo An bhfuil aon eisceacht ann dialóg, seiceáil ach amháin má tá an seoltóir i Leabhar Seoltaí sonraithe rogha sa Céim1: Roghnaigh eisceacht (í) bosca liosta, agus ansin cliceáil ar an téacs nasctha sonraithe, Agus Cuir Liosta Seoltaí leis Bosca amach, roghnóidh sé fillteán teagmhálacha ina mbeidh na teagmhálacha a theastaíonn uait seachas, féach ar an scáileán:

doc ríomhphoist a bhogadh ó anaithnid 7

8. Ansin cliceáil Cuir cnaipe, agus ansin cliceáil Ar Aghaidh chun dul go dtí an dialóg draoi deireanach, clóscríobh ainm riail sa Céim1: Sonraigh ainm don riail seo bosca téacs, agus seiceáil Cas ar an riail seo rogha ón Céim2: Riail socraithe roinn roghanna. Féach an pictiúr:

doc ríomhphoist a bhogadh ó anaithnid 8

9. Agus ansin cliceáil Críochnaigh agus Ok cnaipí chun na dialóga a dhúnadh. As seo amach, nuair a thiocfaidh ríomhphoist ó sheoltóirí anaithnid, aistreofar iad chuig an bhfillteán sonrach go huathoibríoch.

Bog ríomhphoist ó sheoltóirí anaithnid chuig fillteán ar leith trí chód VBA a chur i bhfeidhm

B’fhéidir go bhfuil an modh thuas trioblóideach duit, anseo, is féidir leat cód a chur i bhfeidhm chun déileáil leis chomh tapa agus is féidir leat.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa an Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession ó na Tionscadal1 (VbaProject.OTM) pána chun an modh a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl bán.

Cód VBA: Ríomhphoist uathoibríoch ó sheoltóirí anaithnid go fillteán ar leith:

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 ríomhphoist a bhogadh ó anaithnid 9

3. Ansin sábháil an cód agus dún an fhuinneog cód, agus déan an Outlook a atosú chun go mbeidh an cód i bhfeidhm. As seo amach, nuair a bheidh na ríomhphoist a thagann ó roinnt seoltóirí anaithnid, bogfar iad go dtí an fillteán Anaithnid go huathoibríoch, féach an scáileán:

doc ríomhphoist a bhogadh ó anaithnid 10

nótaí: An Anaithnid cruthófar fillteán go huathoibríoch nuair a bheidh roinnt ríomhphoist anaithnid ag teacht isteach. Is féidir leat ainm an fhillteáin a athrú “Unknow”Do dhaoine eile sa script.