Conas an chatagóir a choinneáil agus tú ag freagairt nó ag seoladh ríomhphoist in Outlook?
De ghnáth, nuair a thugann tú freagra nó ríomhphost ar aghaidh a rinne mé a chatagóiriú, bainfear an chatagóir go huathoibríoch ar an ríomhphost seolta. Más mian leat an chatagóir ar ríomhphoist atá ag dul as oifig a choinneáil ag freagairt nó ag cur ar aghaidh, tabharfaidh an t-alt seo modh isteach chun déileáil leis.
Coinnigh an chatagóir agus tú ag freagairt nó ag seoladh ríomhphoist le cód VBA
Coinnigh an chatagóir agus tú ag freagairt nó ag seoladh ríomhphoist le cód VBA
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa an Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession ó na Tionscadal1 (VbaProject.OTM) pána chun an modh a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl bán.
Cód VBA: Coinnigh an chatagóir agus tú ag freagairt nó ag seoladh ríomhphoist:
Private WithEvents GExplorer As Outlook.Explorer
Private WithEvents GInspectors As Outlook.Inspectors
Private WithEvents GMailItem As Outlook.MailItem
Private GCategories As String
Private Sub Application_Startup()
Dim xApp As Outlook.Application
Set xApp = Outlook.Application
Set GExplorer = xApp.ActiveExplorer
Set GInspectors = xApp.Inspectors
End Sub
Private Sub GExplorer_SelectionChange()
On Error Resume Next
If TypeName(GExplorer.Selection.Item(1)) <> "MailItem" Then Exit Sub
Set GMailItem = GExplorer.Selection.Item(1)
GCategories = GMailItem.Categories
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
On Error Resume Next
If TypeName(Inspector.CurrentItem) <> "MailItem" Then Exit Sub
Set GMailItem = Inspector.CurrentItem
GCategories = GMailItem.Categories
End Sub
Private Sub GMailItem_Forward(ByVal Forward As Object, Cancel As Boolean)
Call GetCategories(Forward)
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Call GetCategories(Response)
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
Call GetCategories(Response)
End Sub
Private Sub GetCategories(ByVal NewMail As Object)
If NewMail.Class <> olMail Then Exit Sub
NewMail.Categories = GCategories
End Sub
3. Ansin sábháil agus dún an fhuinneog cód seo, dún agus atosaigh an Outlook, anois, nuair a thabharfaidh tú freagra nó seol ríomhphost ar aghaidh le catagóir, coimeádfar an chatagóir sa teachtaireacht atá ag dul as oifig i Míreanna Seolta, féach ar an scáileán:
Kutools for Outlook - Tugann sé 100 Gné Ard le Outlook, agus Déan an Obair i bhfad Níos Éasca!
- Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir saincheaptha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
- Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach ceann a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
- Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost i soicindí; Beannacht Auto Cuir leis nuair a thabharfar freagra; Cuir Dáta leis san ábhar ...
- Uirlisí Ceangail: Bainistigh Gach Ceangaltán i ngach Ríomhphost, Auto Dícheangail, Comhbhrú Gach, Athainmnigh Uile, Sábháil Gach ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe...
- Ríomhphoist Cumhachtacha Junk de réir saincheaptha; Bain Ríomhphoist agus Teagmhálacha Dúblacha... Cuir ar do chumas déanamh níos cliste, níos gasta agus níos fearr in Outlook.

