--Text of Reply After Quoted Text tell application "Mail" activate --set some variables for use in template message set theMessages to the selection set m to item 1 of theMessages set theHeaders to m's headers set theDate to m's date sent set theSender to m's sender set theSenderName to extract name from theSender set theSenderEmail to extract address from theSender set theSubject to m's subject set theBody to m's content --reply to selected message set this_message to reply m with opening window and primary email without signature --set the template with variables tell content of this_message make new text at before the first paragraph with data "Dear " & theSenderName & "," & return & return & "This is an example of email template." & return & return & "You can include here some variables like:" & return & "Date receveid: " & theDate & return & "Sender name: " & theSenderName & return & "Sender email: " & theSenderEmail & return & "The subject: " & theSubject & return & "Or the content of the message" & return & return & "Best regards," & return & "Tommaso" & return & return end tell end tell