When working on a shared network, it is very common for multiple employees to access and change common files throughout the day. This article will explain how to implement a macro
in Microsoft Excel
that will send an automated email each time a change is made to a common document.
Excel Macro to Signal Document Changes
You may program this macro to send out emails to specific team members to alert them of changes to a network file.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Dim answer As String
answer = MsgBox("This is where you put the text to prompt the user if he wants to save or not" vbYesNo, "here is the title of that box")
If answer = vbNo Then Cancel = True
If answer = vbYes Then
'open outlook type stuff
Set OutlookApp = CreateObject("Outlook.Application")
Set OlObjects = OutlookApp.GetNamespace("MAPI")
Set newmsg = OutlookApp.CreateItem(olMailItem)
'newmsg.Recipients.Add ("Name Here")
newmsg.Subject = "Subject line of auto email here"
newmsg.Body = "body of auto email here"
newmsg.Send 'send message
'give conformation of sent message
MsgBox "insert confirmation box test here",, "title of confirmation box"
'save the document
Published by aakai1056
Latest update on December 21, 2015 at 09:34 AM by ChristinaCCM.