Удаление части текста с помощью VBA (Outlook 2010)

Question

В настоящее время я использую макрос в Outlook, который принимает имя вложения и использует его как тему.

Макрос является:

Sub AttachmentNameAsSubject() 

Dim AttachmentName As String 
Dim currItem As Object 

Set currItem = ActiveInspector.CurrentItem 

With currItem 
    If .Attachments.Count > 0 Then 
     AttachmentName = .Attachments.Item(1).DisplayName 
     .Subject = AttachmentName 
    End If 

End With 
End Sub 

Приставка, как правило, своего рода .pdf или файл .xls, так что если вложение: «MyAttachment.pdf», сюжетная линия будет читать «MyAttachment.pdf ».

Есть ли способ удалить любой текст после периода в строке темы, чтобы строка Subject просто читала «MyAttachment» и не включает в себя «.pdf» или как бы то ни было расширение.

Answer 1

Возможно, это проще (сбрасывает что-либо из последнего периода).

Function DropExtension(sName As String) As String 
    If InStr(1, sName, ".", vbTextCompare) = 0 Then 
     DropExtension = sName ' No file extension 
    Else 
     DropExtension = Left(sName, InStrRev(sName, ".") - 1) 
    End If 
End Function