/* YAMandPGP V1.0 -- Roberto Ragusa 1997 */
/* new mailpacket */

windowfilename = 'CON:50/50/600/200/YAM-REXX/CLOSE'

plain_mail_txt = 'All is attached...'

CALL CLOSE 'STDOUT'
CALL CLOSE 'STDIN'
CALL OPEN 'STDIN',windowfilename
CALL PRAGMA '*','STDIN'
CALL OPEN 'STDOUT','*'

options results

address command

call pragma('D','MAILPACKETS:')

'delete >nil: newmessage/attachment/#? all force'
'delete >nil: newmessage/~(attachment) all force'

call pragma('D','newmessage')

'echo >plain_mail.txt "'||plain_mail_txt||'"'
'echo >>plain_mail.txt ""'

call pragma('D','attachment')

'echo >mail.txt "write here!"'

address YAM

'Request "Prepare your mail in Mnew:" "OK"'