Conas ríomhphoist a bhogadh chuig fillteán sonraithe tar éis catagóir áirithe a shannadh in Outlook?
Má thugann tú catagóir do r-phost a fuarthas i do Outlook, tar éis duit an chatagóir a shannadh, ba mhaith leat go n-aistreodh an ríomhphost seo go huathoibríoch chuig fillteán ríomhphoist áirithe atá ainmnithe le hainm na catagóire. Mar shampla, bogfar r-phost a shanntar don chatagóir “Príobháideach” chuig ainm fillteáin “Príobháideach” i do Outlook. Conas é a bhaint amach? Is féidir leis an modh san alt seo cabhrú leat an fhadhb a réiteach gan stró.
Bog ríomhphoist chuig fillteán sonraithe tar éis catagóir áirithe a shannadh le VBA
Bog ríomhphoist chuig fillteán sonraithe tar éis catagóir áirithe a shannadh le VBA
Is féidir leis an gcód VBA thíos cuidiú le ríomhphoist a aistriú go huathoibríoch chuig fillteán sonraithe tar éis catagóir áirithe a shannadh in Outlook. Déan mar a leanas le do thoil.
1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil faoi dhó chun an ThisOutlookSession (Cód) fuinneog. Ansin cóipeáil thíos cód VBA isteach san fhuinneog. Féach an pictiúr:
Cód VBA: Bog ríomhphoist chuig fillteán sonraithe tar éis catagóir áirithe a shannadh
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. Sábháil an cód agus atosaigh an Outlook.
4. As seo amach, agus catagóir á sannadh do r-phost glactha, cruthófar fillteán le hainm na catagóire go huathoibríoch faoin bhfillteán Isteach agus bogfar an ríomhphost isteach. Féach an scáileán:
nótaí: Bogfar gach ríomhphost a shanntar don chatagóir chéanna go dtí an fillteán céanna go huathoibríoch. Ach má shanntar catagóir nua do r-phost, cruthófar fillteán nua go huathoibríoch.
Earraí gaolmhara:
- Conas an chatagóir a shannadh do r-phost atá ag dul as oifig in Outlook?
- Conas catagóirí bunaidh a choinneáil agus tú ag freagairt nó ag seoladh ríomhphoist in Outlook?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
