ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

send email - QtmmSendMail (attachments)

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • send email - QtmmSendMail (attachments)

    Thanks to Scott Klement


    I guess Id better make this a bit clearer..
    You can attach any physical file on the iseries and
    email it as a .csv file to anyone, anywhere.........




    Start by downloading BASE64 from Scott Klement



    Get the text files to your system in a source member

    CRTLIB EMAIL
    ADDLIBLE EMAIL

    CRTRPGMOD BASE64R4 SRCFILE(EMAIL/SOURCE) DBGVIEW(*LIST)
    CRTSRVPGM SRVPGM(EMAIL/BASE64R4) SRCFILE(EMAIL/QSRVSRC)
    CRTBNDDIR BNDDIR(EMAIL/BASE64)
    ADDBNDDIRE BNDDIR(EMAIL/BASE64) OBJ((EMAIL/BASE64R4 *SRVPGM))

    Create the send html email program
    CRTRPGMOD MODULE(EMAIL/HTML) SRCFILE(EMAIL/SOURCE) DBGVIEW(*LIST)
    CRTPGM PGM(EMAIL/HTML) MODULE(EMAIL/HTML) BNDSRVPGM(QTCP/QTMMSNDM)

    CALL PGM(HTML) PARM('jamie@code400.com')
    Please pass your email or i will get it

    **Thats it for that**

    Now sending an attachment
    CRTRPGMOD MODULE(EMAIL/ATTACH) SRCFILE(EMAIL/SOURCE) DBGVIEW(*LIST)
    CRTPGM PGM(EMAIL/ATTACH) MODULE(EMAIL/ATTACH) BNDSRVPGM(QTCP/QTMMSNDM)

    CALL ATTACH and wait for the email

    I also saved library EMAIL @ V5R3 and attached to this
    post.....its in the email folder email.sav
    Attached Files
    All my answers were extracted from the "Big Dummy's Guide to the As400"
    and I take no responsibility for any of them.

    www.code400.com

  • #2
    Re: send email - QtmmSendMail (attachments)

    Hey anyone try this?
    All my answers were extracted from the "Big Dummy's Guide to the As400"
    and I take no responsibility for any of them.

    www.code400.com

    Comment


    • #3
      Re: send email - QtmmSendMail (attachments)

      Scott Klement is great ! thank you so much

      Comment

      Working...
      X