Macro to send email automatically after saving the excel file

[randolphdennis]

Hi--

i would like to know what would be the best macro code to send an email notification automatically after someone saved the excel file.


Hope this is not a repost..
Need your help badly today..

 

[bensonsearch]

Hi,

Do you want this to happen EVERY time its saved? is it shared or one person using at a time?

 

[randolphdennis]

yes, every time they save an update i need to be notified without them knowing it.. file is shared...

thanks..

 

[randolphdennis]

currently, below is the code i'm using for the email notifcation. but i don't the code for save (not save as).

Sub Email()
Dim myOutlook As Object
Dim myMailItem As Object
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
fName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
With otlNewMail
.To = you@you.net
.CC = me@me.com
.Subject = "Automated Notication: Billing"
.Body = "Hi Dennis," & Chr(13) & Chr(13) & "File is now updated." & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & "This Notification is automated!"
.Attachments.Add fName
.Display
.send
End With

Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing

End Sub

hope someone can give me the code to automatically save the changes once they click the button i've made..