vba - 如果正文包含字符串，则删除签名

Question

最终目标是如果正文中存在某个字符串，则删除我的签名。到目前为止，我可以使用以下内容检查主体。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    If TypeName(Item) <> "MailItem" Then Exit Sub

       If Item.Body like "*something*" Then
        MsgBox "it's working"
       End If

End Sub

一切都很好，我想我可以使用

 Item.Signature.Remove

才发现签名不是属性(property)。我的签名还包含一个图像(comp Logo )。我查了一下，似乎发现签名本身就是正文的一部分。我需要用一些 TRIM 功能替换正文并删除图像吗？不确定该去哪里或者是否有更简单的方法。

Answer 1

对于那些可能觉得这有帮助的人。签名是 Body 属性的一部分。我知道我的签名以我的名字开头，所以我所做的是使用 Instr 函数来获取起始位置并从那里开始。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If TypeName(Item) <> "MailItem" Then Exit Sub
    If Item.Body Like "*MyCatchPhrase*" Then
      midcount = InStr(Item.Body, "MyFull Name")
      FinNum = midcount - 1
      Item.Body = Left(Item.Body, FinNum)
    End If

End Sub