VBS Как сделать так, чтобы в теме письма не отображалось расширение прикреплённого файла?

Dim objArgs, OutApp, oNameSpace, oInbox, oEmailItem, olMailItem
Dim a, oAttachments, subjectStr, olFormatHTML
Dim objFSO,strSigFilePath, objSignatureFile, strBuffer
olMailItem = 0
olFormatHTML = 2
 
Set objArgs = WScript.Arguments 'gets paths of selected files
Set OutApp = CreateObject("Outlook.Application") 'opens Outlook
Set oEmailItem = OutApp.CreateItem(olMailItem) 'opens new email
For a = 0 to objArgs.Count - 1
Set oAttachments = oEmailItem.Attachments.Add(objArgs(a))
subjectStr = subjectStr & Right(objArgs(a),Len(objArgs(a))-(InStrRev(objArgs(a),"\"))) & ", " 
Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
strSigFilePath = "C:\Users\Username\AppData\Roaming\Microsoft\Signatures\"
Set objSignatureFile = objFSO.OpenTextFile(strSigFilePath & "Signature.htm")
strBuffer = objSignatureFile.ReadAll
objSignatureFile.Close
 
If subjectStr = "" then subjectStr = "No Subject "
oEmailItem.Subject = ""& Left(subjectStr, (Len(subjectStr)-2))
oEmailItem.BodyFormat = olFormatHTML
oEmailItem.HTMLBody = "<p>Line 1 of my custom text,</p><p>Line 2 of my custom text, " & Left(subjectStr, len(subjectStr)-2) & ".</p>" &  strBuffer
oEmailItem.ReadReceiptRequested = True
oEmailItem.OriginatorDeliveryReportRequested = True
oEmailItem.Display

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oEmailItem = CreateObject("Outlook.Application").CreateItem(olMailItem) 'opens new email
For Each a in WSH.Arguments
  Set oAttachments = oEmailItem.Attachments.Add(a)
  subjectStr = subjectStr & ", " & FSO.GetBaseName(F)
Next