Outlook crash on Item_send modification

[Lef_pl]

Hello,

Could You please advise:
I wrote a Outlook macro that checks message title for key phrases and when they are not included:
1. Stops sending message,
2. Opens menu with suggested actions => add specific phrase

After (2) user can send email once again.

My problem is:
I would like to have it on one click
When I change "Cancel = True" to "Cancel = False" it works for sending or replying to emails...but it crashes entire application when email is forwarded.

Could You please advice on any workaround?


Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim question As String
Dim strSubj As String
If TypeName(Item) = "MailItem" Then
strSubj = Item.subject
Item.Display
If InStr(Item.subject, "SOMETHING1") > 0 Or InStr(Item.subject, "SOMETHING2") > 0 Or InStr(Item.subject, "SOMETHING3") > 0 Then
Exit Sub
Else
question = MsgBox("PLEASE DO SOMETHING", , "CAUTION")
MENU.Top = (Application.ActiveWindow.Top + Application.ActiveWindow.Height / 4) - (MENU.Height / 4)
MENU.Left = (Application.ActiveWindow.Left + Application.ActiveWindow.Width / 20) - (MENU.Width / 20)
With MENU 'show menu that helps to do something ;)
.SHOW
End With
Cancel = True
strSubj = Item.subject
strSubj = DWType & strSubj
Item.subject = strSubj
End If
End If
Item.Display
DWtype = ""
end sub