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

仅发现Signature不是属性。我的信号也包含图像（comp徽标）。我已经搜索过，而且我似乎看到签名本身就是Body的一部分。我是否需要用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

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

1 个答案: