/* Rexx
** $ver: E-Mail Mch V1
*/
sequence = "999"
if open(seq,"uulib:seq","R") then
do
  sequence = readln(seq)
  call close(seq)
end
filename = "t:mailtmp-"||sequence
call open(edfile,filename,"W")
call seek(edfile,0,"B")
call writeln(edfile,"To: mchunt@mail.zynet.co.uk")
call writeln(edfile,"Subject: AC-")
call writeln(edfile,"")
call writeln(edfile,"Hi Martin,")
call close(edfile)
address command "ed "||filename
cmd = "list "||filename||" lformat %l > t:filelength"
address command cmd
call open(lng,"t:filelength","R")
length = readln(lng)
call close(lng)
if length = 53 then exit
cmd = "protect "||filename||" rweds"
address command cmd
cmd = "join "||filename||" uulib:$user.signature to t:joined"
address command cmd
cmd = "sendmail <t:joined -f $user"
address command cmd
address command "delete t:joined quiet"
/* address command "delete "||filename||" quiet" */