|
Do you have to be at R5 Domino for this to work? What is the difference between the send email and snddst? rob@dekko.com on 02/04/2002 02:48:48 PM Please respond to domino400@midrange.com To: domino400@midrange.com cc: (bcc: Gail L Crane/Johanson/JMC) Subject: Re: Initiating Domino Mail using RPG 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. _______________________________________________ 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 mailing list archive is Copyright 1997-2024 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.