<perl>
if (datum("jetzt","Stunde")>=8 && datum("jetzt","Stunde")<12)
{
    get "Id==*","mailoptionen"; prüfen, ob schon was versendet wurde - ich geh davon aus, das da nur ein ds mit $erfolgt drin ist
    $modId=$_id;
    if ($erfolgt==0)
    {
        get "Id==*","mailinhalt"; # auch nur ein Ds mit dem Inhalt der Mail
        get "Id==*","empfaengerliste";
        while (get_next"empfaengerliste")
        {
            mail $EMail,$betreff,$mailinhalt,...;
        }
        mod "Id==$modId",["erfolgt","1"],"mailoptionen";
    }
}elsif (datum("jetzt","Stunde")>=12)
{
    mod "erfolgt==1",["erfolgt","0"],"mailoptionen";
}
</perl>