/* IBrowse2Yam.rexx <email> - © 02-01-98 Sören Forsberg */

PARSE ARG rcpt
echo rcpt
IF ~SHOW('Ports','YAM') THEN DO
  ADDRESS 'COMMAND'
  'Run YAM:YAM NOCHECK'
  'SYS:RexxC/WaitForPort YAM'
END
IF SHOW('Ports','YAM') THEN DO
  ADDRESS 'YAM'
  Show
  MailWrite
  WriteMailTo rcpt
END