Private Sub Worksheet_Calculate()
Dim objOutlook As Object
Dim objMail As Object
Dim rng As Range
For Each rng In Range(
"A1:A"
& Cells(Rows.
Count
, 1).
End
(xlUp).Row)
If rng.Value > 30 And rng.Offset(0, 1).Value <>
"x"
Then
If objOutlook Is Nothing Then _
Set objOutlook = CreateObject(
"Outlook.Application"
)
Set objMail = objOutlook.CreateItem(0)
With objMail
.To =
"mail@xyz.de"
.Subject =
"Regulierung"
.Body =
"Bitte die Regulierungsliste bearbeiten. Ein- oder mehrere Aufträge sind überfällig!"
.Send
rng.Offset(0, 1).Value =
"x"
'<-- trägt in Spalte B ein
"x"
ein
End
With
End
If
Next rng
Set objOutlook = Nothing
Set objMail = Nothing
End
Sub