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

Sut i lenwi pwnc e-bost yn awtomatig gydag enw atodiad yn Outlook?

I'r rhai sy'n gyfarwydd â defnyddio enw'r atodiad fel testun e-bost yn Outlook, bydd teipio enw'r atodiad â llaw yn y llinell bwnc bob tro yn cymryd llawer o amser. Fel y dangosir yn y gif isod, os ydych chi am lenwi'r llinell pwnc e-bost gyda'r enw atodiad yn awtomatig pan fyddwch chi'n mewnosod atodiad, bydd y dull VBA yn y tiwtorial hwn yn helpu.


Llenwch y pwnc e-bost yn awtomatig gydag enw'r atodiad gyda chod VBA

Rhedwch y cod VBA canlynol i lenwi'r pwnc e-bost yn awtomatig gydag enw'r atodiad a fewnosodwyd yn Outlook.

1. Lansio eich Rhagolwg, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Prosiect1 (VbProject.OTM) > Gwrthrychau Microsoft Outlook > SesiwnOutlook i agor y ThisOutlookSession (Cod) golygydd.

3. Yna copïwch y cod VBA canlynol i mewn i'r ThisOutlookSession (Cod) golygydd.

Cod VBA: Autofill y pwnc e-bost gyda'r enw atodiad

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. Nawr mae angen i chi arbed y cod ac ailgychwyn Outlook.

5. O hyn ymlaen, pan fyddwch yn mewnosod atodiad mewn e-bost nad oes ganddo bwnc wedi'i lenwi eto, a Kutools ar gyfer Rhagolwg Bydd blwch deialog pop i fyny yn gofyn i chi os ydych am ddefnyddio'r enw atodiad fel y pwnc, cliciwch ar y Oes botwm.

Yna bydd y llinell pwnc yn cael ei phoblogi ag enw'r atodiad a fewnosodwyd yn awtomatig.

Nodiadau:

1) Os ydych chi wedi llenwi'r pwnc eisoes, ni fydd mewnosod atodiad yn ymddangos yn y blwch deialog.
2) Os byddwch chi'n tynnu pwnc sy'n bodoli eisoes o'r e-bost cyfredol ond mae'r cyrchwr yn dal i gael ei arddangos yn y llinell bwnc, ni fydd mewnosod atodiad yn dod i fyny'r blwch deialog chwaith. Ar ôl tynnu'r pwnc, mae angen i chi glicio i ffwrdd o'r llinell bwnc i adnewyddu'r blwch neges i wneud i'r cod weithio.
3) Os ydych chi'n mewnosod atodiadau lluosog ar yr un pryd, dim ond enw'r atodiad cyntaf y gellir ei ddefnyddio fel testun yr e-bost.

Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir