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

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

只是发现签名不是属性。我的签名中还包含一张图片（公司标志）。我搜索过了，似乎看到签名本身是正文的一部分。我需要用一些TRIM函数替换正文，并移除图片吗？不确定该去哪里或是否有更简单的方法。

- mrbungle

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

- mrbungle