VBA（Outlook 2010）を使用してテキストの一部を削除する

Question

現在、添付ファイルの名前をSubjectとして使用する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を読み取り"

件名の行が「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