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:"Ben Waldie", address:"applescriptguru@mac.com"}
end tell
tell content of theMessage
make new attachment with properties {file name:pathToFile} at after last paragraph
end tell
end tell