/* SendMail.rexx <mailer> - © Alessandro Zummo */

author  = 'azummo@ita.flashnet.it'
subject = 'EasyPatch 1.40'

PARSE ARG mailer

IF mailer = 'Clip' THEN
DO
	ADDRESS COMMAND 'ClipWrite "'author'"'

	EXIT
END

IF mailer = 'Yam' THEN
DO
	IF ~SHOW('P','YAM') THEN DO

		PRAGMA('S',10000)

	  	ADDRESS 'COMMAND'

		IF EXISTS('YAM:MultiYAM') 
		THEN 
			'Run YAM:MultiYAM'
	  	ELSE
			'Run YAM:YAM NOCHECK'

	  	'SYS:RexxC/WaitForPort YAM'
	END

    ADDRESS 'YAM'
	MailWrite
	WriteSubject '"'subject'"'
	WriteMailTo '"'author'"'

	EXIT
END


IF SHOW('P','IBROWSE') THEN
DO
	IF ~SHOW('Ports','IBROWSE') THEN CALL ERROR

	ADDRESS 'IBROWSE'

	gotourl 'mailto:'author

	EXIT
END


IF SHOW('P','Voyager') THEN
DO
	IF ~SHOW('Ports','VOYAGER') THEN CALL ERROR

	ADDRESS 'VOYAGER'

	openurl 'mailto:'author

	EXIT
END


ERROR:

Say 'Cannot found a compatible mailer!'

ADDRESS COMMAND 'RequestChoice TITLE="SendMail.rexx" BODY="Cannot found a compatible mailer!" "Ok" >NIL:'

EXIT