Sending email for some pages of a report

Question

Hi!
I would like to know, is it possible to send via email some pages of a SAPScript.
I've created a report, with SAPScript output. The report is collecting a lot of data, and is grouping the data by customer.
So at the end of the report run, I have 5 pages, with a grouping like this:
1. Customer A / Deliveries 1,2,3
2. Customer B / Deliveries 4,5
3. Customer C / Deliveries 6,7,8,9
4. Customer D / Deliveries 10
5. Customer E / Deliveries 11,12
In the B, D customer master data exist an email address, so I have to send the 2nd page to the email address of B (for example [email protected]) and the 4th page to the email address of D (f.e.: [email protected]).
How can I solve this?
Thanx
Tamá

Answer 1

Hi!
The following coding provides the SAPScript list, now. This is what I would like to extend with the email sending.
The table it_fuvar contains the data of the customers and deliveries. I think I have to enter the email sending between the END_FORM and START_FORM function modules.
My problems are:
- is the OTF ready and convertable to PDF at this moment (after an END_FORM)?
- if it is, then how identify it to convert  and how to send the converted PDF via attachment?
  DESCRIBE TABLE it_fuvar LINES fcount.
  IF fcount = 0.
    WRITE:/ 'Nincsen nyomtatható adat.'.
    EXIT.
  ENDIF.
  SET LANGUAGE sy-langu.
  CLEAR wa_itcpo.
  MOVE 'X' TO wa_itcpo-tdimmed.
  MOVE 'X' TO wa_itcpo-tdnewid.
  MOVE sy-repid TO wa_itcpo-tdsuffix2.
  MOVE sy-title TO wa_itcpo-tdtitle.
* open form
  CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      OPTIONS       = wa_itcpo
      dialog        = 'X'
      form          = gc_formname
      language      = sy-langu
    EXCEPTIONS
      canceled      = 1
      device        = 2
      form          = 3
      OPTIONS       = 4
      unclosed      = 5
      mail_options  = 6
      archive_error = 7
      OTHERS        = 8.
  IF sy-subrc NE 0.
    EXIT.
  ENDIF.
  MOVE 1 TO fcount.
  SORT it_fuvar.
  LOOP AT it_fuvar INTO wa_fuvar.
    AT NEW vstel_bez.
* speditőr címadatok kiírása a scriptbe
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          window = 'M_SPEDIT'
        EXCEPTIONS
          OTHERS = 1.
* cím, téma, számlázási cím kiírása a scriptbe
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          window = 'M_INFO'
        EXCEPTIONS
          OTHERS = 1.
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          element = 'M_SZALLITASI_CIM'
        EXCEPTIONS
          OTHERS  = 1.
    ENDAT.
    AT NEW tknum.
      SUM.
* kocsik (transzportok) kiírása a scriptbe
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          element = 'M_KOCSI'
        EXCEPTIONS
          OTHERS  = 1.
      fcount = fcount + 1.
    ENDAT.
*   print item line
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        element = 'M_ARUFOGADO'.
    AT END OF vstel_bez.
* footer
      MOVE 1 TO fcount.
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          window  = 'M_BOTTOM'
          element = 'NEW_PAGE'.
      CALL FUNCTION 'END_FORM'
        EXCEPTIONS
          unopened                 = 1
          bad_pageformat_for_print = 2
          spool_error              = 3
          codepage                 = 4
          OTHERS                   = 5.
      IF sy-subrc <> 0.
      ENDIF.
* EMAIL SEND???
* EMAIL SEND???
* EMAIL SEND???
      CALL FUNCTION 'START_FORM'
        EXPORTING
          form        = gc_formname
          language    = sy-langu
        EXCEPTIONS
          form        = 1
          format      = 2
          unended     = 3
          unopened    = 4
          unused      = 5
          spool_error = 6
          codepage    = 7
          OTHERS      = 8.
      IF sy-subrc <> 0.
      ENDIF.
    ENDAT.
  ENDLOOP.
  CALL FUNCTION 'CLOSE_FORM'
    EXCEPTIONS
      OTHERS = 1.
Thanx
Tamá