using terms from application "Mail" on perform mail action with messages selectedMsgs repeat with msg in selectedMsgs set theSubject to subject of msg set theSender to extract name from sender of msg set theAddress to extract address from sender of msg set theDate to date sent of msg tell application "Mail" set nowDate to current date set theBody to "Your message" & return & return & " Re: " & theSubject & return & " Sent: " & theDate & return & return & "was received and read " & nowDate & ". Thank you." & return set newMessage to make new outgoing message with properties {subject:"Return Receipt: " & theSubject, content:theBody & return & return} tell newMessage set visible to true make new to recipient at end of to recipients with properties {name:theSender, address:theAddress} end tell end tell end repeat end perform mail action with messages end using terms from