C:ED dh1:msg.temp

C:Requeststring "Mail To:" "User ..." > ENV:User
C:Requeststring "Mail To:" "Subject ..." > ENV:Subject
C:Date > dh1:date.temp

C:Join mail:msg.head.txt ENV:Subject dh1:msg.temp dh1:date.temp user:.signature mail:msg.foot.txt to ram:msg.temp

C:Stamp time > ENV:Number
C:Copy ram:msg.temp users:$user/mail/$number.msg
C:delete ram:msg.temp
C:delete dh1:msg.temp
C:delete dh1:date.temp
C:delete ENV:User
C:delete ENV:Subject
C:delete ENV:Number