Conas ábhar ríomhphoist a líonadh go huathoibríoch le hainm ceangaltáin in Outlook?
Dóibh siúd atá i dtaithí ar an ainm ceangaltáin a úsáid mar ábhar ríomhphoist in Outlook, beidh sé am-íditheach ainm an cheangail a chlóscríobh de láimh i líne an ábhair gach uair. Mar a thaispeántar sa gif thíos, más mian leat an líne ábhair ríomhphoist a líonadh leis an ainm ceangaltáin go huathoibríoch nuair a chuireann tú ceangaltán isteach, cabhróidh an modh VBA sa teagasc seo.
Líon isteach an t-ábhar ríomhphoist go huathoibríoch leis an ainm ceangaltáin le cód VBA
Rith an cód VBA seo a leanas le do thoil chun an t-ábhar ríomhphoist a líonadh go huathoibríoch le hainm an iatáin a cuireadh isteach in Outlook.
1. Seoladh do Outlook, 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 dúbailte Tionscadal1 (VbProject.OTM) > Microsoft Outlook Object > ThisOutlookSession a oscailt ThisOutlookSession (Cód) eagarthóir.
3. Ansin cóipeáil an cód VBA seo a leanas isteach sa ThisOutlookSession (Cód) eagarthóir.
Cód VBA: Líon an t-ábhar ríomhphoist go huathoibríoch leis an ainm ceangaltáin
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. Anois ní mór duit an cód a shábháil agus Outlook a atosú.
5. As seo amach, nuair a chuireann tú ceangaltán isteach i ríomhphost nach bhfuil ábhar líonta isteach go fóill, a Kutools le haghaidh Outlook Beidh bosca dialóige pop suas ag iarraidh ort más mian leat úsáid a bhaint as an t-ainm ceangaltán mar ábhar, cliceáil ar an Is ea cnaipe.
Ansin cuirfear ainm an cheangail isteach go huathoibríoch ar an líne ábhair.
nótaí:
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á ...