Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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 nesaf botwm, yn y cam hwn, peidiwch â dewis unrhyw opsiwn, a chlicio nesaf botwm yn uniongyrchol, mae blwch rhybuddio wedi'i popio allan, cliciwch Ydw 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 nesaf 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 nesaf 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 a 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 ThisOutlookSession 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
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.