COMMAND:

/*********************************************************************/
/* DIRECTIVES-                                                       */
/* PARM TEXT('Send Email to a list')                                 */
/* PARM PGM(EMAILLIST)                                               */
/*********************************************************************/
             CMD        PROMPT('Send Email to a list')
             PARM       KWD(EMAILFILE) TYPE(TFILE) MIN(1) FILE(*IN) +
                          PROMPT('Name of Email file')
             PARM       KWD(SENDER) TYPE(ELEM2) SNGVAL((*NETWORK)) +
                          PROMPT('Sender')
             PARM       KWD(SUBJECT) TYPE(*CHAR) LEN(256) DFT(*NONE) +
                          SPCVAL((*NONE '')) EXPR(*YES) +
                          PROMPT('Subject')
             PARM       KWD(MESSAGE) TYPE(*CHAR) LEN(2048) +
                          DFT(*NONE) SPCVAL((*NONE '')) EXPR(*YES) +
                          PROMPT('Message')
 TFILE:      QUAL       TYPE(*NAME) LEN(10) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +
                          PROMPT('Library')
 ELEM2:      ELEM       TYPE(*PNAME) LEN(256) +
                          DFT(YOURNAME@DEKKO.COM) EXPR(*YES) +
                          PROMPT('E-mail address of sender')
             ELEM       TYPE(*CHAR) LEN(256) EXPR(*YES) PROMPT('Name +
                          of e-mail sender')

PROGRAM:

/* Email a list of people.                                          */
/*                                                                  */
/*                                                                  */
/* Modification log:                                                */
/* 01/14/02 by R.Berendt, CCP   GDS,LLC                             */
/*          Created                                                 */
/*                                                                  */
/*                                                                  */
PGM (                                                                +
      &EMAILFILE       /* File/Library containing list            */ +
      &SENDER          /* Sender of email                         */ +
      &SUBJECT         /* Subject of email                        */ +
      &MESSAGE         /* Message of email                        */ +
    )

    /*
+
     | Open file containing list of system names.
+
    */
             DCLF       FILE(EMAILLIST)

    DCL  &EMAILFILE   *CHAR  20  /* 1-10=File, 11-20=Library         */
    DCL  &EMAILLIB    *CHAR  10  /* Library containing list          */
    DCL  &EMAILOBJ    *CHAR  10  /* File containing list             */
    DCL  &MESSAGE     *CHAR 2048 /* Email message                    */
    DCL  &MSGTXT      *CHAR  75  /* Message text                     */
    DCL  &SENDER      *CHAR 513  /* Email sender                     */
    DCL  &SENDER1     *CHAR 256  /* Email sender                     */
    DCL  &SENDER2     *CHAR 255  /* Email sender description         */
    DCL  &SUBJECT     *CHAR 256  /* Email subject                    */

    /*
+
     | Parse out the file name and library name
+
    */
             CHGVAR     VAR(&EMAILOBJ) VALUE(%SST(&EMAILFILE 1 10))
             CHGVAR     VAR(&EMAILLIB) VALUE(%SST(&EMAILFILE 11 10))
    /*
+
     | Override to specified file
+
    */
             OVRDBF     FILE(EMAILLIST) TOFILE(&EMAILLIB/&EMAILOBJ) LVLCHK
(*NO)
             OPNDBF     FILE(EMAILLIST) OPTION(*INP) OPNID(EMAILLIST)

    /*
+
     | Read the file.  Message CPF0864 means End-of-File
+
    */

 READ:       RCVF

             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))

    /*
+
     | Display a message at the bottom of the screen informing us
+
     | which recepient is currently being processed.
+
    */
             CHGVAR     VAR(&MSGTXT) VALUE('Now processing ' +
                          *BCAT &ADDRESS)
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSGTXT) +
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)

    /*
+
     | Send the email.
+
    */
             CHGVAR     VAR(&SENDER1) VALUE(%SST(&SENDER 3 256))
             CHGVAR     VAR(&SENDER2) VALUE(%SST(&SENDER 259 255))
             SNDEMAIL   ADDRESSEE((&ADDRESS)) SENDER(&SENDER1 &SENDER2) +
                          SUBJECT(&SUBJECT) MESSAGE(&MESSAGE)

             GOTO       CMDLBL(READ)

EOF:

    /*
+
     | Close the file.
+
    */
             CLOF       OPNID(EMAILLIST)
             DLTOVR     FILE(EMAILLIST)

EXIT:
             ENDPGM


DSPLYT EMAILLIST
Field        Start     End  Attrib  Text
ADDRESS          1      50  A50

RUNQRY QRYFILE(EMAILLIST)
ADDRESS
rob@dekko.com


Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    Evan Harris
                    <spanner@ihug.co.n       To:     domino400@midrange.com
                    z>                       cc:
                    Sent by:                 Fax to:
                    domino400-admin@mi       Subject:     Re: Initiating Domino 
Mail using RPG
                    drange.com


                    02/05/2002 03:03
                    AM
                    Please respond to
                    domino400






Rob

This is the kind of thing I was looking for. Can you just be a little more
explicit as to what you do with the file after it is created ? I'm kind of
missing something here...

Thanks
Evan Harris


>This is probably not what you want to hear.  But I recommend sticking with
>the AS/400 method for flexibility sake.  For example.
>
>I create a file called ALERT.  One field - EMAILADR.
>I put the following records in the file:
>rob@dekko.com
>myboss@dekko.com
>2605551212@archwireless.net


_______________________________________________
This is the Lotus Domino on the iSeries / AS400 (DOMINO400) mailing list
To post a message email: DOMINO400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/domino400
or email: DOMINO400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/domino400.







As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.