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

最终目标是，如果正文中有某个字符串，则删除我的签名。到目前为止，我可以用以下方法检查身体

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

---

只是发现签名不是一个属性。我的sig还包含一个图像（公司徽标）。我搜索了一下，似乎发现签名本身就是身体的一部分。我是否需要使用一些

修剪功能更换车身，并删除图像？不知道该去哪里，或者是否有更简单的方法。
对于那些可能觉得这有帮助的人。签名是
正文
属性的一部分。我知道我的签名是以我的名字开始的，所以我所做的就是使用
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

私有子应用程序\u ItemSend（ByVal项作为对象，取消作为布尔值）
如果TypeName（Item）“MailItem”，则退出Sub
如果Item.Body像“*MyCatchPhrase*”那么
中期数=仪表（项目主体，“我的全名”）
FinNum=中期计数-1
Item.Body=左侧（Item.Body，FinNum）
如果结束
端接头

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