Hallo Christian,

der angebene Code öffnet dein Emailprogramm und erstellt eine neue
Mail mit der angegebenen Parametern aus "mailto:", "subject" und
"body". Den Senden-Button musst du dann leider noch selbst klicken.

Zu der Bedingung "Wert10" als Auslöser für das Erstellen der Email
(Annahme: die Bedingung steht in Spalte A, Emailadresse in Spalte B,
muss halt evtl. von dir noch angepasst werden):

Sub ÜberprüfenUndEmailErstellen()
Dim sh As Object
Dim IntZähler As Integer
For IntZähler = 1 To Cells(Rows.Count, 1).End(xlUp).Row '1. Zeile bis
letzte Zeile mit bezogen auf Spalte A
If Cells(IntZähler, 1).Value < 10 Then
Set sh = CreateObject("Shell.Application")
sh.ShellExecute "mailto:" & Cells(IntZähler, 2) _
& "?Subject=" & "Betreff" _
& "&Body= Text"
End If
Next IntZähler

Gruss, Kai