Infomail wenn Makro

Sub SendInfoMailfunktioniert()
Dim olApp As Object
Dim objMail As Object
Dim iCnt%
'Outlook-Anwendungsobjekt setzen
Set olApp = CreateObject("Outlook.Application")
'Schleife  bis zur letzten gefuellten Zelle der Spalte H
For iCnt = 2 To Sheets("Tabelle1").Cells(Rows.Count, 10).End(xlUp).Row
If Sheets("Tabelle1").Cells(iCnt, 10).Value = "erledigt" Then
'email-Objekt setzen
Set objMail = olApp.CreateItem(0)
'mit dem email
With objMail
'an
.To = "Test@test.de"
'Betreff
.Subject = "Anfrage wurde aktualisiert" & " " & Date & " " & Time
'Textkoerper
.Body = "Hallo zusammen," & Chr(13) & _
"wir haben eure Anfragen geprüft, bitte schaut nach dem akutellen Stand." & Chr(13) & _
"Mit freundlichen Grüßen"
'email anzeigen
.Display
'Ende mit dem email
End With
'email-Objekt zuruecksetzen
Set objMail = Nothing
'Ende Wenn Ergebnis in Spalte J erldedigt ist, dann
End If
'Ende Schleife  bis zur letzten gefuellten Zelle der Spalte J
Next
'Outlook-Objekt zuruecksetzen
Set olApp = Nothing
End Sub