home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1997 #5
/
AmigaPlus_Extra-CD_5-97.iso
/
online-tools
/
mail
/
netmail
/
drivers
/
smtppost.mailput
< prev
next >
Wrap
Text File
|
1995-09-30
|
860b
|
33 lines
/*
** $VER: SMTPpost.mailput 1.3 (30.9.95)
** Copyright (c) 1995 Riccardo Solmi
**
*/
OPTIONS RESULTS
OPTIONS FAILAT 31
PARSE ARG email, host, msg
cmd = 'AmiTCP:bin/SMTPpost'
IF ~EXISTS(cmd) THEN DO
cmd = GetVar('NetMail/SMTPpostCmd')
IF cmd = 0 | ~EXISTS(cmd) THEN DO
ADDRESS COMMAND 'SetEnv NetMail/SMTPpostCmd `Which "SMTPpost"`'
cmd = GetVar('NetMail/SMTPpostCmd')
IF cmd = 0 THEN DO
ADDRESS COMMAND 'SetEnv NetMail/SMTPpostCmd `RequestFile Title "Select SMTPpost command" Noicons`'
cmd = GetVar('NetMail/SMTPpostCmd')
IF cmd = 0 | ~EXISTS(cmd) THEN RETURN 2
ADDRESS COMMAND 'Copy QUIET ENV:NetMail/SMTPpostCmd ENVARC:NetMail/SMTPpostCmd'
END
END
END
ADDRESS COMMAND
'Setenv SMTPSmarterHost' host
'Setenv SMTPSpoolDir T:'
'Setenv NodeName' host
'"'cmd'" >NIL: <"'msg'" -n'
RETURN RC