on makeAMailWithSpecifiedAccount(theSubject, theBody, myName, yourName, yourAddress, myAccountName)
　　tell application "Mail"
　　　　–Account check
　　　　set anAccount to account myAccountName
　　　　set aProp to enabled of anAccount
　　　　if aProp is not equal to true then return false –アカウントが有効でなかった場合はエラーに
　　　　
　　　　set eList to (email addresses of anAccount)
　　　　if eList = {} then return false –アカウントにメールアドレスの登録がなかった場合はエラーに（ねんのため）
　　　　set myEmail to first item of eList
　　　　
　　　　–Make Sender
　　　　set theSender to myName & "<" & myEmail & ">"
　　　　
　　　　–Make Message & Send
　　　　set newMessage to make new outgoing message with properties {sender:theSender, subject:theSubject, content:theBody & return & return, visible:false}
　　　　tell newMessage
　　　　　　set visible to false
　　　　　　make new to recipient at end of to recipients with properties {name:yourName, address:yourAddress} –受取人の指定
　　　　　　send –メール送信
　　　　end tell
　　end tell
　　
　　return true
end makeAMailWithSpecifiedAccount

★Click Here to Open This Script