Unable to get email notifciation

Hello,

I have placed below noted in my excel. but I am unable to get the email to my ID.

Please help me

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)

Dim answer As String

answer = MsgBox("save", [vbYesNo = vbOKOnly], "Saving Box")

If answer = vbNo Then Cancel = True
If answer = vbYes Then
'open outlook type stuff
Set OutlookApp = CreateObject("Outlook.Application")
Set OlObjects = OutlookApp.GetNamespace("MAPI")
Set newmsg = OutlookApp.CreateItem(olMailItem)
'add recipients
'newmsg.Recipients.Add ("Sudhakar Mahankali")
newmsg.Recipients.Add ("***@***")
'add subject
newmsg.Subject = "Security Checklist updated"
'add body
newmsg.Body = "This is to inform your that, we have updated the Security Checklist accordingly."
newmsg.Display 'display
newmsg.Send 'send message
'give conformation of sent message
MsgBox "insert confirmation box test here", , "title of confirmation box"

End If

'save the document
'Me.Worksheets.Save

End Sub