/*********************************************************************/
/*   To create this command, issue the following:                    */
/*    CRTCMD lib/SNDEMAIL SRCFILE(srclib/srcfile) PGM(lib/SNDEMAILR) */
/*   NEWS/400, September 1998                                        */
/*   Copyright (c) 1998 Duke Communications International            */
/*   ALL RIGHTS RESERVED                                             */
/*********************************************************************/
             CMD        PROMPT('Send an E-mail Message')
             PARM       KWD(FILENAME) TYPE(*PNAME) LEN(256) MIN(1) +
                          EXPR(*YES) PROMPT('Fichier MIME de +
                          travail' 1)
             PARM       KWD(RECIPADDR) TYPE(*PNAME) LEN(256) MIN(1) +
                          EXPR(*YES) PROMPT('Adresse E-mail du +
                          destinataire' 2)
             PARM       KWD(SENDERADDR) TYPE(*PNAME) LEN(255) MIN(1) +
                          EXPR(*YES) PROMPT('Adresse E-mail de +
                          l''émetteur' 4)
             PARM       KWD(RECIPNAME) TYPE(*CHAR) LEN(256) +
                          DFT(*NONE) SPCVAL((*NONE '')) EXPR(*YES) +
                          PROMPT('Nom du destinataire' 3)
             PARM       KWD(SENDERNAME) TYPE(*CHAR) LEN(256) +
                          DFT(*NONE) SPCVAL((*NONE '')) EXPR(*YES) +
                          PROMPT('Nom de l''émetteur' 5)
             PARM       KWD(ATTACHMENT) TYPE(*PNAME) LEN(256) +
                          DFT(*NONE) SNGVAL((*NONE)) MAX(30) +
                          EXPR(*YES) PROMPT('Fichier attaché')
             PARM       KWD(SUBJECT) TYPE(*CHAR) LEN(256) DFT(*NONE) +
                          SPCVAL((*NONE '')) EXPR(*YES) PROMPT('Sujet')
             PARM       KWD(MESSAGE) TYPE(*CHAR) LEN(512) DFT(*NONE) +
                          SPCVAL((*NONE '')) EXPR(*YES) +
                          PROMPT('Message')