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

  save newMessage

  close front window

end tell