I have this script that used to work in all previous OSs but now doesn’t work under Lion
tell application "Mail"
set the_message to selection
set mySender to extract address from sender of first item of the_message
set the_message to selection
set theAddress to extract address from sender of first item of the_message
reply
set theBody to "Bonjour,
xxxx
xx.
xxx"
set theSubject to "votre réservation au xxx"
set newMessage to make new outgoing message with properties {address:theAddress, sender:"xxx@xxx.com", subject:theSubject, content:theBody & return & return}
tell newMessage
set visible to true
make new to recipient with properties {address:theAddress}
send newMessage
send newMessage
end tell
end tell
Would anyone know what I can do to fix it?