Envoi d’un email avec fichier joint en 3 étapes.

Préalable

 L’envoi d’un email à  partir de l’AS400 doit être paramétré. Voir l’article art54

 Disposer d’une table de conversion qui permette l’échange correct des caractères entre l’AS400 et le monde PC. Le source de la table est en fichier joint. Il vous faut :

  • Transférer le source joint dans un membre T400ISO dans un fichier source QTBLSRC.
  • Utiliser la commande CRTTBL TBL(QUSRSYS/T400ISO) pour compiler la table.
  • La table T400ISO doit être en ligne pour la commande CPYTOPCD.

    Copier le fichier dans un document PC


    CPYTOPCD FROMFILE(QTEMP/FICHIER)
    TOFLR(TEMP)
    TODOC(FICHIER.XML)
    REPLACE(*YES)
    TRNTBL(*LIBL/T400ISO)
    TRNFMT(*NOTEXT)

    Envoyer le document PC vers l’email


    SNDDST TYPE(*DOC)
    TOINTNET(('email@societe.com'))
    DSTD(METTRELESUJETDUMAIL)
    DOC(FICHIER.XML)
    FLR(TEMP)

    Supprimer le document PC


    DLTDLO DLO(FICHIER.XML)
    FLR(TEMP)

    Le résultat

     Vous recevez sur l’email email@societe.com le fichier joint FICHIER.XML

    Pour faire mieux !

     Vous pouvez utiliser les API unix pour envoyer des fichiers stockés sur l’IFS à  plusieurs adresses email.

Print Friendly, PDF & Email

Attachments