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”。

有没有办法删除主题行中句点之后的任何文本，以便主题行只读取“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

使用VBA删除部分文本（Outlook 2010）

1 个答案: