|
SNDEMAIL is a freebie download from news400 or iseriesnetwork.com. It was written by fellow hoosier David Leland who works at Harter in Middlebury. It is not Domino based. You can use it on an iSeries with, or without, Domino. I like it because I don't have to do WRKDIRE crud like I do with SNDDST. It also has flexibility with attachments, etc. It uses the QtmmSendMail API. http://iseriesnetwork.com/article.cfm?ID=2806 Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin gcrane@johansonmfg .com To: domino400@midrange.com Sent by: cc: domino400-admin@mi Fax to: drange.com Subject: Re: Initiating Domino Mail using RPG 02/05/2002 07:11 AM Please respond to domino400 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. _______________________________________________ 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.
midrange.com
