Send apple email - how do I set the - send FROM account?

Question

found this nice script to auto create and send apple email...
Q: how do I set the : send from account?
tell application "Mail"
set theMessage to make new outgoing message with properties {visible:true, subject:"My Subject", content:"My Body"}
tell theMessage
make new to recipient at end of to recipients with properties {name:"test", address:"[email protected]"}
end tell
send theMessage
end tell
nice info here:
http://www.mactech.com/articles/mactech/Vol.21/21.09/ScriptingMail/index.html

Answer 1

I've been using the following which may be more complicated than necessary but it does work:
-- SCRIPT SEGMENT --
tell application "Mail"
activate
set listOfSenders to {}
set everyAccount to every account
repeat with eachAccount in everyAccount
set everyEmailAddress to email addresses of eachAccount
if (everyEmailAddress is not equal to missing value) then
repeat with eachEmailAddress in everyEmailAddress
set listOfSenders to listOfSenders & {(full name of eachAccount & " <"Mail"
set newMessage to make new outgoing message with properties {subject:theSubject, content:theBody & return & return}
tell newMessage
set visible to true
set sender to theSender
make new to recipient at end of to recipients with properties {name:theName, address:theAddress}
set font to "Lucinda Sans"
set size to 14
end tell
activate
--send newMessage
end tell
-- END SCRIPT SEGMENT --
I have commented the actual "send message" line so that I can read the message before clicking the send button as I often will add a comment.
Al