Conas ceangaltáin a chur ar aghaidh bunaithe ar chritéir shonracha in Outlook amháin?
De ghnáth, nuair a chuirtear r-phost ar aghaidh, cuirtear an comhlacht teachtaireachta bunaidh agus ceangaltáin san áireamh freisin. Ach, uaireanta, ní gá duit ach ceangaltáin a chur ar aghaidh gan an teachtaireacht bhunaidh bunaithe ar chritéir chuig duine ar leith. Conas a d’fhéadfá an post seo a réiteach in Outlook?
Cuir ar aghaidh ach ceangaltáin bunaithe ar chritéir shonracha chuig duine go huathoibríoch le cód VBA
Mar shampla, nuair a fhaigheann tú ríomhphost ina bhfuil an téacs “kto feature”, cuirfear gach ceangaltán den ríomhphost seo ar aghaidh go huathoibríoch chuig an duine ar leith gan corp na teachtaireachta. Is féidir leis na céimeanna seo a leanas cabhrú leat, déan mar seo le do thoil:
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: Cuir ríomhphost ar aghaidh go huathoibríoch gan comhlacht teachtaireachta ach cuir na ceangaltáin san áireamh:
Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xForwardMail As Outlook.MailItem
Dim xEmail As MailItem
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xEmail = Item
If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub 'change subject text to your need
If xEmail.Attachments.Count = 0 Then Exit Sub
Set xForwardMail = xEmail.Forward
With xForwardMail
.HTMLBody = ""
With .Recipients
.Add "" 'change address to your own
.ResolveAll
End With
.Send
End With
End Sub
nótaí: Sa chód thuas, ba cheart duit téacs an ábhair agus seoladh an fhaighteora a athrú chuig do chuid féin.
3. Ansin sábháil an cód, agus déan an Outlook a atosú chun éifeacht an chóid a ghlacadh.
4. As seo amach, gach uair a sroicheann ríomhphost nua téacs an ábhair ar leith isteach i do bhosca poist, cuirfidh Outlook a cheangaltáin ar aghaidh go huathoibríoch gan corp na teachtaireachta chuig an duine atá ag teastáil.
nótaí: Níl an cód seo ar fáil ach don chuntas réamhshocraithe.
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú
🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...
📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP) / Sceideal Seol Ríomhphoist / Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh / Auto Ar Aghaidh (Ardrialacha) / Beannacht Auto Cuir leis / Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...
📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sábháil Baisc / Baisc Dícheangail / Comhbhrú Baisc / Auto Sábháil / Auto Dícheangail / Comhbhrúite Auto ...
🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool / Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed / Íoslaghdaigh Outlook In ionad Deiridh ...
???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach / Ríomhphoist Frith-Iascaireachta / 🕘 Taispeáin Crios Ama an tSeoltóra ...
👩🏼🤝👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe / Roinn Grúpa Teagmhála ar Ghrúpaí Aonair / Bain Meabhrúcháin Breithlá ...
Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.