I wrote:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
saved = True
End Sub

....or alternately:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
saved = True
If MsgBox("Generate email?", vbYesNoCancel) = vbYes Then generateEmail
End Sub

--
Playing war games with other people's lives...
It should be *you* on the front line!