Conas ríomhphoist a bhratach go huathoibríoch bunaithe ar cheangaltán sonrach le dearcadh?
Nuair a fhaigheann tú roinnt ríomhphoist a bhfuil ceangaltán tábhachtach sonrach acu, b’fhéidir go mbeidh ort iad a bhratach, ionas gur féidir leat iad a aimsiú go tapa agus go héasca le haghaidh sreabhadh suas. Labhróidh mé san alt seo faoi bhealach éasca chun na ríomhphoist a ghabhann le ceangaltáin le hainmneacha ar leith a bhratach go huathoibríoch.
Cuir bratach go huathoibríoch ar ríomhphoist bunaithe ar cheangaltán sonrach le cód VBA
Cuir bratach go huathoibríoch ar ríomhphoist bunaithe ar cheangaltán sonrach le cód VBA
Chun na ríomhphoist a bhfuil an ceangaltán sonrach iontu a bhratach go huathoibríoch, cuir an cód VBA seo a leanas i bhfeidhm:
1. Seoladh an Outlook, agus ansin 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) pane chun modh nua a oscailt, agus ansin cóipeáil agus greamaigh an cód seo a leanas isteach sa mhodúl bán.
Cód VBA: Cuir bratach go huathoibríoch ar na ríomhphoist bunaithe ar cheangaltán sonrach:
Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
If Item.Class <> olMail Then Exit Sub
FlagEmail_SpecificAttachments Item
End Sub
Sub FlagEmail_SpecificAttachments(Mail As Outlook.MailItem)
Dim xAttachment As Outlook.Attachment
Dim xExt As String
Dim xFileName As String
If Mail.Attachments.Count = 0 Then Exit Sub
For Each xAttachment In Mail.Attachments
xExt = SplitPath(xAttachment.FileName, 2)
xFileName = SplitPath(xAttachment.FileName, 1)
Select Case xExt
Case "txt", "xlsx", "docx", "pdf" 'Add the file extension as you need
If InStr(LCase(xFileName), LCase("KTO")) > 0 Then 'Change the text of the attachment name
With Mail
.ReminderSet = True
.ReminderTime = Now + 1
.MarkAsTask olMarkTomorrow
.Save
End With
End If
End Select
Next
End Sub
Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String
Dim xSplitPos As Integer, xDotPos As Integer
xSplitPos = InStrRev(FullPath, "/")
xDotPos = InStrRev(FullPath, ".")
Select Case ResultFlag
Case 0
SplitPath = Left(FullPath, xSplitPos - 1)
Case 1
If xDotPos = 0 Then xDotPos = Len(FullPath) + 1
SplitPath = Mid(FullPath, xSplitPos + 1, xDotPos - xSplitPos - 1)
Case 2
If xDotPos = 0 Then xDotPos = Len(FullPath)
SplitPath = Mid(FullPath, xDotPos + 1)
Case Else
Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!"
End Select
End Function
nótaí: Sa chód thuas, is féidir leat an síneadh comhad agus ainm an chomhaid ceangaltáin a athrú go dtí do riachtanas.
3. Ansin sábháil an cód, agus atosaigh an Outlook chun an cód a chur i bhfeidhm, anois, nuair a fhaigheann tú na ríomhphoist ina bhfuil an téacs sonraithe in ainmneacha na gceangaltán, cuirfidh Outlook bratach uathoibríoch ar an ríomhphost seo le haghaidh obair leantach, féach an scáileán:
Cúntóir Ríomhphoist AI in Outlook: Freagraí níos Cliste, Cumarsáid níos soiléire (draíocht aon-cliceáil!) SAOR
Sruthlaigh do thascanna Outlook laethúla leis an Cúntóir Mail AI ó Kutools le haghaidh Outlook. Foghlaimíonn an uirlis chumhachtach seo ó do ríomhphoist roimhe seo chun freagraí cliste agus cruinne a thairiscint, chun ábhar do ríomhphoist a bharrfheabhsú, agus chun cabhrú leat teachtaireachtaí a dhréachtú agus a fheabhsú gan stró.
Tacaíonn an ghné seo le:
- Freagraí Cliste: Faigh freagraí ó do chomhráite san am a chuaigh thart - in oiriúint, beacht, agus réidh le dul.
- Ábhar Feabhsaithe: Déan do théacs ríomhphoist a bheachtú go huathoibríoch ar mhaithe le soiléireacht agus tionchar.
- Comhdhéanamh gan stró: Just a chur ar fáil eochairfhocail, agus lig AI láimhseáil an chuid eile, le stíleanna scríbhneoireachta iolracha.
- Eisínteachtaí Chliste: Leathnaigh do chuid smaointe le moltaí atá feasach ar an gcomhthéacs.
- Achoimre: Faigh forbhreathnú gonta ar ríomhphoist fhada láithreach.
- Global Reach: Aistrigh do ríomhphoist go teanga ar bith gan stró.
Tacaíonn an ghné seo le:
- Freagraí ríomhphoist cliste
- Ábhar optamaithe
- Dréachtanna bunaithe ar eochairfhocail
- Síneadh ábhar Chliste
- Achoimre ríomhphoist
- Aistriúchán ilteangach
Is fearr ar fad, tá an ghné seo go hiomlán saor go deo! Ná fan -íoslódáil Cúntóir Ríomhphoist AI anois agus bain sult as!
Uirlisí Táirgiúlachta Oifige is Fearr
Breaking News: Kutools le haghaidh Outlook Seolann Leagan saor in aisce!
Taithí a dhéanamh ar an Kutools uile-nua le haghaidh Outlook Leagan SAOR IN AISCE le 70+ gnéithe dochreidte, is féidir leatsa a úsáid go deo! Cliceáil le híoslódáil anois!
📧 Uathoibriú Ríomhphoist: Auto Reply (Ar fáil le haghaidh 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 / 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 / Cuir i gcuimhne duit nuair a thagann ríomhphoist thábhachtacha / Í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á ...
