Outlook 365 display message on replyAll mailitem event

[zx10]

I have tried putting the code in ThisOutlookSesssion mailitem send, reply and reply all and cant even hit a break point

Any help greatly appreciated!

Private Sub mailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim msg As String
Dim result As Integer
If myMailItem.Recipients.Count > 1 Then
    msg = "Do you really want to reply to one?"
    result = MsgBox(msg, vbYesNo, "Reply Check")
    If result = vbNo Then
        Cancel = True
   End If
End If
End Sub

Private Sub mailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
Dim msg As String
Dim result As Integer
If myMailItem.Recipients.Count > 1 Then
    msg = "Do you really want to reply to one?"
    result = MsgBox(msg, vbYesNo, "Reply Check")
    If result = vbNo Then
        Cancel = True
    End If
End If
End Sub

Private Sub mailItem_Send(Cancel As Boolean)
Dim result As Integer
If myMailItem.Recipients.Count > 1 Then
    msg = "Do you really want to reply to one?"
    result = MsgBox(msg, vbYesNo, "Reply Check")
    If result = vbNo Then
        Cancel = True
    End If
End If
End Sub