Entfernen von Textabschnitten mit VBA (Outlook 2010)

Question

Ich verwende derzeit ein Makro in Outlook, das den Namen des Anhangs verwendet und diesen als Betreff verwendet.

Das Makro ist:

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 

Die Befestigung ist in der Regel eine Art von PDF- oder XLS-Datei, so dass, wenn der Anhang: „MyAttachment.pdf“, wird die Betreffzeile lesen „MyAttachment.pdf ".

Gibt es eine Möglichkeit, jeden Text nach dem Punkt in der Betreffzeile zu entfernen, so dass die Betreffzeile einfach "MyAttachment" liest und nicht die ".pdf" oder was auch immer die Erweiterung sein kann.

Answer 1

Vielleicht ist das einfacher (lässt alles aus der letzten Periode fallen).

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