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 for Outlook Bydd blwch deialog pop i fyny yn gofyn i chi os ydych am ddefnyddio'r enw atodiad fel y pwnc, cliciwch ar y Do botwm.

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

Nodiadau: