Note: The other languages of the website are Google-translated. Back to English

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 Oes 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.


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL