/* Mail arexx script by Christer Bjarnemo  mr.bjarnemo@mn.medstroms.se
 *
 * Due to the massive developing time, registration fee is $1000!  ;-)
 *
 */

mailer = "AmiTCP:bin/elm"
/* mailer = "AmiTCP:bin/mailto" */

parse arg email
if name = '' then do ; say 'USAGE: mail name@address' ; say ; quit ; end
address command mailer' 'email
