receive an automatic Email notification when excel sheet is saved

[gomaa1239]

Dears,

i have an excel sheet on the shared network and a some employee can edit and save this sheet, so i need a VBA macro to send me an automatic email notification to my Email when the sheet is saved.
i think its possible possible?
it will be great if i can know who saved it and when.
im not experienced with VBA so please give me simple steps to follow to make this works.

Thanks a lot for you help and thanks in advance

 

[svendiamond]

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Dim OutApp As Object, OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "The workbook " & ThisWorkbook.Name & " was saved at " & Format(Now, "h:mm AM/PM") & " by user " & Application.UserName

On Error Resume Next
With OutMail
    .To = "yourEmailHere@gmail.com"
    .CC = ""
    .BCC = ""
    .Subject = "Workbook " & ThisWorkbook.Name & " saved."
    .Body = strbody
    'You can add a file like this
    '.Attachments.Add ("C:\test.txt")
    .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

You can change the blue parts. To use this code open the VBA Editor (ALT+F11) and on the left side find your project name and double-click on the "ThisWorkbook" object. Now paste the code into the white space to the right.