Vielen Dank, leider klappt das hier nicht so richtig.

Ich habe nun folgenden Code:

tell application "Mail"
  set newMessage to make new outgoing message with properties {visible:true, subject:"hans@wurst.de", content:"Nix als Laberei"}
  tell newMessage
    make new to recipient at end of to recipients with properties {name:"Paul", address:"paul@klee.de"}
  end tell
  close front window
end tell
 
delay 0.5
 
tell application "System Events"
  tell process "Mail"
    if exists sheet 1 of window 1 then
      click defaultbutton of sheet 1 of window 1
    end if
  end tell
end tell

Das Fenster wird leider nicht geschlossen. Nicht mit "defaultbutton" und auch nicht mit button 0 bis 3.

Vielen Dank für Deine Mühe, Stefan. Das muss jetzt auch ohne gehen Die generierten Mails sollen sowieso abgeschickt werden. Es wäre einfach nur schöner gewesen.
Das kann jetzt auch erstmal so bleiben, ohne Fenster zu.

Viele Grüße
Udo