Sut i symud e-byst i ffolder penodedig ar ôl aseinio categori penodol yn Outlook?
Gan dybio ichi neilltuo categori i e-bost a dderbyniwyd yn eich Camre, ar ôl aseinio categori, rydych chi am i'r e-bost hwn symud yn awtomatig i ffolder e-bost benodol a enwir gydag enw'r categori. Er enghraifft, bydd e-bost a neilltuwyd gyda'r categori “Preifat” yn cael ei symud i enw ffolder “Preifat” yn eich Camre. Sut i'w gyflawni? Gall y dull yn yr erthygl hon eich helpu i ddatrys y broblem yn rhwydd.
Symud e-byst i ffolder penodedig ar ôl aseinio categori penodol gyda VBA
Symud e-byst i ffolder penodedig ar ôl aseinio categori penodol gyda VBA
Gall y cod VBA isod helpu i symud e-byst yn awtomatig i ffolder penodedig ar ôl aseinio categori penodol yn Outlook. Gwnewch fel a ganlyn.
1. Gwasgwch 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 i agor y ThisOutlookSession (Cod) ffenestr. Yna copïwch isod god VBA i'r ffenestr. Gweler y screenshot:
Cod VBA: Symud e-byst i ffolder penodedig ar ôl aseinio categori penodol
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. Cadw'r cod ac ailgychwyn yr Outlook.
4. O hyn ymlaen, wrth aseinio categori i e-bost sy'n derbyn, bydd ffolder gydag enw'r categori yn cael ei chreu'n awtomatig o dan y ffolder Mewnflwch gyda'r e-bost yn cael ei symud i mewn. Gweler y screenshot:
Nodyn: Bydd pob e-bost a neilltuwyd gyda'r un categori yn cael ei symud i'r un ffolder yn awtomatig. Ond os rhoddir categori newydd i e-bost, bydd ffolder newydd yn cael ei chreu yn awtomatig.
Erthyglau cysylltiedig:
- Sut i aseinio categori i e-bost sy'n mynd allan yn Outlook?
- Sut i gadw'r categorïau gwreiddiol wrth ateb neu anfon e-bost yn Outlook?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!