Email SPool file

[susan]

Hi,

How to email the spool file ??????with out using additional object

Thks
Susan

[Mercury]

Re: Email SPool file

Do you mean send it from within a program when it is ready in OUTQ ?

[susan]

Re: Email SPool file

Yes,

from the program only

[gcraill]

Re: Email SPool file

I "think" the user profile running the job has to be enrolled in WRKDIRE (directory entries) with a valid email address in order to be able to send the emails.

Look at this snippet and see if you can use it ?
We have a form where you can optionally type another email recipient to get a CC of the email, it is ignored if *NONE is used.

Isn't CL a wonderful language !!!

    /* Prepare E-Mail Body .............................. */          
    CHGVAR     VAR(&TOFIL) VALUE(&MONTH *TCAT 'Rpt' *TCAT '.' *TCAT 'TXT') 
    RTVNETA    SYSNAME(&SYS)                                      
    CHGVAR     VAR(&MSG) VALUE('Please find attached +     
                 the Job Total Reports From:' +                           
                 *BCAT &FDATE *BCAT 'To:' *BCAT +                 
                 &TDATE *BCAT 'This is for' *BCAT &SYS +          
                 *BCAT '..........' *TCAT 'Thanks, Operations.')               
    RTVJOBA    USER(&USR)                                         
    RTVJOBA    JOB(&JOB)                                          
 
    /* Preparing DOC Description........................... */    
    IF         COND(&EMAIL *NE '*NONE') THEN( +              
      CHGVAR     VAR(&EMAIL1) VALUE(&EMAIL *TCAT '@YourEmail.COM')) 
 
    CHGVAR     VAR(&DIS) VALUE('Jobs Report From:' *TCAT +    
                 &FDATE *TCAT 'To:' *TCAT &TDATE)             
 
    /* Delete TMP File if Exist.........................*/        
    DLTF       FILE(QTEMP/QMJRTMP)                            
    MONMSG     MSGID(CPF0000)                                 
 
    /* Creating physical file in QTEMP..................*/          
    CRTPF      FILE(QTEMP/QMJRTMP) RCDLEN(140)                
 
    /* Copy spool file to physical file ................*/        
    CPYSPLF    FILE(JOBRPTP1) TOFILE(QTEMP/QMJRTMP) +         
                 SPLNBR(*LAST) CRTDATE(*LAST)                 
 
    /* Copy physical File to PC Document format.........*/        
    CPYTOPCD   FROMFILE(QTEMP/QMJRTMP) TOFLR(QMJRFLDR) +      
                 TODOC(&TOFIL) REPLACE(*YES)                  
 
    /* Sending E-Mail...................................*/             
    SNDDST     TYPE(*DOC) +                                        
                 TOINTNET((ICMS_SCHEDULER@STC.COM.SA) +            
                 (&EMAIL1 *CC)) DSTD('Spooled File') +             
                 MSG(&MSG) DOC(&TOFIL) FLR(QMJRFLDR) +             
                 SUBJECT('Job Totals Report')                      
    MONMSG     MSGID(CPF0000) EXEC(DO)                             
 
      SNDBRKMSG  MSG('You Cannot send E-MAIL From AS400 +          
                   Please Copy the result and send it from +       
                   your E-Mail') TOMSGQ(&JOB)                      
      DSPSPLF    FILE(JOBRPTP1) SPLNBR(*LAST) CRTDATE(*LAST)       
      GOTO       CMDLBL(END)                                       
 
    ENDDO 

[astech]

Re: Email SPool file

Try:

http://www.vrtech.biz/MessageIT.htm

[Bent]

Re: Email SPool file

Or give BlueSeries a try (http://blueseries.com)

Regards,
Bent

[SteveL]

Re: Email SPool file

We have this product: http://www.gumbo.com/Licpgm/SpoolMail.html

It is very reasonable on a small i5.

Steve

[tomholden]

Re: Email SPool file

MMAIL is free and you can get it at http://www.easy400.net you can email the spooled file or convert it to PDF and email it all in one command. you can also email stream files. the price is right and works like a dream...