tell application "Mail"
	set newMessage to make new outgoing message with properties {subject:"hi john", content:"This is a message sent by Supercard"}
	tell newMessage
		set visible to false
		make new to recipient at end of to recipients with properties {name:"John Johnston", address:" john@littlefishsw.co.uk"}
		send
	end tell
end tell