I would like to be alerted before I send an email if the email I am composing contains certain words.
Example: Dog, cat, mouse,
I would like to be alerted if I forgot to change any of the words listed.
How can the below code be modified to be used for multiple word lookup ?
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