tell application "Mail"
activate
set newMessage to (make new outgoing message with properties {subject:"This is the subject", content:"Test content"})
tell newMessage
make new to recipient at beginning of to recipients ¬
with properties {address:"test@address.com"}
end tell
send newMessage
end tell