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:
2. Yna cliciwch Hafan > Rheolau > Rheoli Rheolau a Rhybuddion, gweler y screenshot:
3. Yn y Rheolau a Rhybuddion blwch deialog, cliciwch Rheol Newydd O dan y Rheolau E-bost tab, gweler y screenshot:
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:
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:
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:
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:
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:
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
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:
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.
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.