Note: The other languages of the website are Google-translated. Back to English

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

1) Má tá an t-ábhar líonta agat cheana féin, ní thaispeánfar an bosca dialóige má chuirtear ceangaltán isteach.
2) Má bhaineann tú ábhar atá ann cheana féin as an ríomhphost reatha ach tá an cúrsóir fós ar taispeáint sa líne ábhair, ní thabharfar suas an bosca dialóige ach ceangaltán a chur isteach. Tar éis duit an t-ábhar a bhaint, ní mór duit cliceáil ar shiúl ó líne an ábhair chun an bosca teachtaireachta a athnuachan chun an cód a oibriú.
3) Má chuireann tú isteach ceangaltáin iolracha ag an am céanna, ní féidir ach ainm an chéad cheangaltáin a úsáid mar ábhar an ríomhphoist.

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.
kutools lámhaigh dearcadh kutools tab 1180x121
kutools lámhaigh dearcadh kutools móide cluaisín 1180x121
 
Sórtáil tuairimí de réir
Comments (6)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
dúnadh. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 agus более файлее сен раИИ Может в dannом коде дописать или вообще другой существует? Sáróstach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Aleksandr,

An bhfuil i gceist agat ceangaltáin iolracha a chur leis agus na hainmneacha ceangaltán sin á gcur leis an ábhar ag an am céanna agus ansin iad a nascadh le AND?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Aleksandr,

The following VBA code can help to solve your problem. Please give it a try.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL