/* ib2yam.rexx - runs Yam if needed, and just starts up a new email Joshua B. Wingell If you like this script, don't bother to send me anything because it is too bloody simple. :) To install: - Put this file in your YAM:Rexx dir. - Open the IBrowse Network Prefs window. - Goto the Email & Telnet preferences section. - Click on External under the Mailto: prefs - Enter "SYS:RexxC/rx YAM:Rexx/ib2yam %h" in the Command string for Mailto: - Click on External under the Sendmail prefs and leave the Command string blank. - Click on OK, and save the IBrowse prefs. */ /* get the receivers address from the command line */ PARSE ARG toaddr /* Is Yam running? If not, launch it */ IF ~SHOW('Ports','YAM') THEN DO ADDRESS COMMAND 'Run >NIL: YAM:YAM NOCHECK' 'SYS:RexxC/WaitForPort YAM' END /* If Yam has been launched then address it and do the commands required to start an email :) */ IF SHOW('Ports','YAM') THEN DO ADDRESS YAM MailWrite WriteMailto toaddr END