IN THE ThisWorkbook MODULE:
Public InitialName
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)InitialName = ActiveWorkbook.Name
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
If Not Success Then Exit Sub
If ActiveWorkbook.Name <> InitialName Then SendEmail
End Sub
Sub SendEmail()
'YOUR EMAIL SUB GOES HERE
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String, xName As String, wbName As String
Dim Change
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Hallo," & Chr(13) & Chr(13) & "Fyi, die Datei wurde geupdated ."
With xMailItem
.To = ""
.CC = ""
.Subject = "Worksheet modified in " & ThisWorkbook.FullName
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xOutApp = Nothing
Set xMailItem = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub