|
Hallo Zusammen
Ich bin auf der Suche nach einem VBA Code der immer dann eine email rausschickt, wenn sich in einer bestimmten Zelle der Wert ändert. Die Email soll aber erst nach dem speichern verschickt werden. Im Internet bin ich bis jetzt auf diesen Code gestossen. Dieser funktioniert auch, aber eben nur für die ganze Arbeitsmappe und nicht für einen definierten Bereich.
Ich bedanke mich für Eure Hilfe!
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.Save
xName = ActiveWorkbook.FullName
With xMailItem
.To = "email"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
|