Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Message As String
Dim messageabort As String
Dim messageok As String
Dim rep
Dim abort
Dim ok
Message = " Une notification par mail va être envoyée " & vbCr & "Voulez-vous poursuivre l'enregistrement ?"
rep = MsgBox(Message, vbOKCancel, "Enregistrement")
If rep = vbCancel Then
Cancel = True:
messageabort = "l'enregistrement et l'envoi ont été annulés"
abort = MsgBox(messageabort, vbOKOnly, "Annulation")
Exit Sub
End If
Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "xxx@xx.xx"
monmail.Subject = "Modifs"
monmail.Body = "Message de notif avec msgbox okcancel"
monmail.Send
Set ol = Nothing
messageok = "l'enregistrement a été effectué et" & vbCr & "votre Outlook a envoyé le mail de notification"
ok = MsgBox(messageok, vbOKOnly, "Enregistrement")
End Sub