如果我正在撰写的电子邮件包含某些词语,我希望在发送电子邮件之前收到提醒。
例如:狗、猫、老鼠,
如果我忘记更改列出的任何单词,我希望收到警报。
如何修改以下代码以用于多单词查找?
Public Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
If InStr(Item.Body, "(Client Name)") Then
If MsgBox("Are you sure to send this message?", vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Message Text Warning") = vbNo Then
Cancel = True
End If
End If
End Sub