Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim result As VbMsgBoxResult
result = MsgBox("Do you need to include Bryan Shartle on this email?", vbYesNo)
If result <> vbNo Then Cancel = True
End Sub
Sub ShartlePrompt()
End Sub