this is definitely bad. @vars@ are for use in adp files. in the tcl file use $var. and do not use {} here, anything within {} is not evaluated.
send_mail $sender $recipients $subject $body