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í:
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.
