XL 2016 Envoi mail lors de la modification d'un fichier excel

Bonjour,
En cherchant sur le net, j'ai trouvé une macro pour envoyer un mail automatiquement lorsqu'un fichier est modifié.
Ce qui tombe bien, vu que c'est ce que je dois implémenter MAIS elle ne fonctionne pas, il doit y avoir quelque chose qui me manque (Excel 2016 et Outlook 2016) :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim message As Object
Dim mailpr As Object
Application.DisplayAlerts = False
Set message = CreateObject("outlook.application")
Set mailpr = message.CreateItem(messageMailItem)
mailpr.To = "titi@free.fr"
mailpr.Subject = "Modification du fichier TOTO"
mailpr.Body = "Des modifications ont été apportées dans le fichier TOTO"
mailprj.Send
Set message = Nothing
End Sub

Il me dit que la variable "messageMailItem" n'est pas définie. Que dois-je faire ?