Sut i symud e-byst o anfonwyr anhysbys i ffolder benodol yn Outlook?

Yn eich gwaith beunyddiol, efallai y byddwch yn derbyn llawer o negeseuon e-bost yn dod gan anfonwyr anhysbys nad ydynt yn cael eu cadw yn eich ffolder Cysylltiadau. Gall y rhain fod yn rhai e-byst sothach neu faleisus, yn yr achos hwn, rydych chi am symud yr e-byst hyn yn awtomatig i ffolder benodol yn lle'r Mewnflwch. Sut allech chi ddatrys y swydd hon yn Outlook?

Symud e-byst o anfonwyr anhysbys i ffolder benodol trwy greu rheol

Symud e-byst o anfonwyr anhysbys i ffolder benodol trwy gymhwyso cod VBA

Symud e-byst o anfonwyr anhysbys i ffolder benodol trwy greu rheol

Mewn gwirionedd, gallwch greu rheol i symud yr e-byst o anfonwyr anhysbys i ffolder benodol yn awtomatig, gwnewch fel a ganlyn:

1. Creu ffolder newydd o dan y ffolder Mewnflwch a fydd yn golygu bod yr e-byst yn dod oddi wrth anfonwyr anhysbys fel y dangosir y llun a ganlyn:

doc symud e-byst o anhysbys 1

2. Yna cliciwch Hafan > Rheolau > Rheoli Rheolau a Rhybuddion, gweler y screenshot:

doc symud e-byst o anhysbys 2

3. Yn y Rheolau a Rhybuddion blwch deialog, cliciwch Rheol Newydd O dan y Rheolau E-bost tab, gweler y screenshot:

doc symud e-byst o anhysbys 3

4. a chliciwch OK botwm i fynd i'r Dewin Rheol, Cliciwch Cymhwyso rheol ar y neges a dderbyniaf opsiwn gan y Dechreuwch o reol wag blwch adran, gweler y screenshot:

doc symud e-byst o anhysbys 4

5. Yna cliciwch Digwyddiadau botwm, yn y cam hwn, peidiwch â dewis unrhyw opsiwn, a chlicio Digwyddiadau botwm yn uniongyrchol, mae blwch rhybuddio wedi'i popio allan, cliciwch Ydy botwm, gweler y screenshot:

doc symud e-byst o anhysbys 5

6. Ac yn y blwch deialog nesaf, gwiriwch ei symud i'r ffolder penodedig opsiwn yn y Cam1: Dewiswch gamau (au) blwch rhestr, ac yna cliciwch ar y testun cysylltiedig penodedig, ac yn yr agored Rheolau a Rhybuddion deialog, nodwch y ffolder lle rydych chi am symud yr e-byst iddo, gweler y screenshot:

doc symud e-byst o anhysbys 6

7. Cliciwch OK botwm, ac ewch ymlaen i glicio Digwyddiadau botwm, yn hyn A oes unrhyw eithriadau deialog, gwirio ac eithrio os yw'r anfonwr yn y Llyfr Cyfeiriadau penodedig opsiwn yn y Cam1: Dewiswch eithriad (au) blwch rhestr, ac yna cliciwch ar y testun cysylltiedig penodedig, A Ychwanegu Rhestr Cyfeiriadau bydd blwch yn popio allan, yn dewis ffolder cysylltiadau sy'n cynnwys y cysylltiadau rydych chi am eu heithrio, gweler y screenshot:

doc symud e-byst o anhysbys 7

8. Yna cliciwch Ychwanegu botwm, ac yna cliciwch Digwyddiadau i fynd i'r ymgom dewin olaf, teipiwch enw rheol yn y Cam1: Nodwch enw ar gyfer y rheol hon blwch testun, a gwirio Trowch ar y rheol hon opsiwn gan y Cam2: Rheol sefydlu adran opsiynau. Gweler y screenshot:

doc symud e-byst o anhysbys 8

9. Ac yna cliciwch Gorffen ac Ok botymau i gau'r dialogau. O hyn ymlaen, pan fydd e-byst yn dod oddi wrth anfonwyr anhysbys, byddant yn cael eu symud i'r ffolder benodol yn awtomatig.

Symud e-byst o anfonwyr anhysbys i ffolder benodol trwy gymhwyso cod VBA

Efallai bod y dull uchod yn drafferthus i chi, yma, gallwch gymhwyso cod i ddelio ag ef cyn gynted ag y gallwch.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith SesiwnOutlook oddi wrth y Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.

Cod VBA: Symud e-byst yn awtomatig o anfonwyr anhysbys i ffolder benodol:

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 symud e-byst o anhysbys 9

3. Yna arbedwch y cod a chau ffenestr y cod, ac ailgychwyn yr Outlook i wneud i'r cod ddod i rym. O hyn ymlaen, pan fydd yr e-byst sy'n dod oddi wrth rai anfonwyr anhysbys, byddant yn cael eu symud i'r ffolder Anhysbys yn awtomatig, gweler y screenshot:

doc symud e-byst o anhysbys 10

Nodyn: Y Anhysbys bydd ffolder yn cael ei greu yn awtomatig pan fydd rhai e-byst anhysbys yn dod i mewn. Gallwch chi newid enw'r ffolder “unknow”I eraill yn y sgript.