[Excel] envoi mail - enregistrement

Sub Envoi()
ThisWorkbook.SendMail Recipients:="prenom.nom@maboite.fr", Subject:="Test envoi classeur", ReturnReceipt:=True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim MonOutlook As Object
Dim MonMessage As Object
Dim strNomClasseur As String, Utilisateur As String

Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
strNomClasseur = ThisWorkbook.Name
Utilisateur = Environ("username")

MonMessage.To = "prenom.nom@mail.fr"
'MonMessage.CC = "prenom2.nom2@mail.fr"
'MonMessage.Attachments.Add strNomFichier
MonMessage.Subject = "Notification de modification du fichier : " & strNomClasseur
MonMessage.Body = "Le fichier excel : " & strNomClasseur & " a été modifié et enregistré le " _
    & Now & " par l'utilisateur : " & Utilisateur & "."
MonMessage.Send
Set MonOutlook = Nothing
Set MonMessage = Nothing
End Sub 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String, Utilisateur As String

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

Nom_Fichier = ThisWorkbook.Name
Utilisateur = Environ("username")
With oBjMail
    .To = "prenom.nom@mail.fr"      ' le destinataire
    .Subject = "Notification de modification du fichier : " & Nom_Fichier
    .Body = "Le fichier excel : " & Nom_Fichier & " a été modifié et enregistré le " _
    & Now & " par l'utilisateur : " & Utilisateur & "."
    .Send
End With
ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub