Error with code to sending email upon save

[westrs811]

I found this code online which is supposed to send an email to specific addresses whenever the workbook is saved. I pasted the code under "this workbook" and changed the newmsg.Recipients.Add ("[email protected]") to my email address just to test the code as is. I received an error, "Compile error, syntax error" for the starred line. Any thoughts on what the issue might be? Thanks!

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

Dim answer As String

**answer = MsgBox("This is where you put the text to prompt the user if he wants to save or not" vbYesNo, "here is the title of that 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 ("Name Here")
newmsg.Recipients.Add ("[email protected]")
'add subject
newmsg.Subject = "Subject line of auto email here"
'add body
newmsg.Body = "body of auto email here"
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

[davesexcel]

you missing a comma,

[westrs811]

WOOHOO! Thanks so much!

[Logit]

I had to edit some more of the code for it to work here :

Please Login or Register  to view this content.