Sending SAPSCRIPT in PDF through email

Question

Hi everybody,
I'm trying to send via email a sapscript. I red more posts regarding this issue but nothing seems to run correctly.
Some posts refers to a sample program ZRICH_0003.
I've just copied the code and replaced the form's name with one of mine and run it.
The function SO_NEW_DOCUMENT_ATT_SEND_API1 return with error code 2 (document not sent). I really don't know why. I've just run it in two different SAP (4.7 and 5.0)
Both didn't work. Both systems are UNIX. Must I do something in customizing or some RFC definition?
Is there anybody that have a simple program that uses this function? 
Thanks in advance
Fabrizio

Answer 1

i have tried the same thing. first generating spool & then convering sppol to PDF.
REPORT  ZPO_PDF NO STANDARD PAGE HEADING
  LINE-SIZE 254.
converts list to PDF - send via mail as attachment
TABLES: adrp,  "Persons (central address administration)
        bhdgd, "Common data area batch heading routine
        bsik,  "Accounting: Secondary Index for Vendors
        usr21. "Assign user name address key
General data definition
TYPE-POOLS: icon.
TYPE-POOLS: slis.
DATA: d_linsz            LIKE sy-linsz.
Constants
CONSTANTS: c_yes(1)        TYPE c VALUE 'X'.
Structures
DATA: e_variant  TYPE disvariant.
Selection-screen
  DATA: le_parameters LIKE pri_params.
  DATA: l_valid(1) TYPE c.
  DATA: lt_pdf TYPE TABLE OF tline WITH HEADER LINE.
  DATA: l_spool_c LIKE tsp01_sp0r-rqid_char.
  DATA: l_spool_i LIKE tsp01-rqident,
        _RECEIVER LIKE bsik-xref3.
Get the SPOOL number
PARAMETERS:
  spoolno LIKE TSP01-RQIDENT.
  l_spool_i =  spoolno.
DATA: NUMBYTES TYPE I,
      ARC_IDX LIKE TOA_DARA,
      pdfspoolid like tsp01-rqident,
      jobname like tbtcjob-jobname,
      jobcount like tbtcjob-jobcount,
      is_otf.
DATA PDF LIKE TLINE OCCURS 100 WITH HEADER LINE.
  CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
      EXPORTING
        SRC_SPOOLID                    = l_spool_i
        NO_DIALOG                      = ' '
      DST_DEVICE                     =
      PDF_DESTINATION                =
      IMPORTING
        PDF_BYTECOUNT                  = numbytes
        PDF_SPOOLID                    = pdfspoolid
      OTF_PAGECOUNT                  =
        BTC_JOBNAME                    = jobname
        BTC_JOBCOUNT                   = jobcount
      TABLES
        PDF                            = lt_pdf
      EXCEPTIONS
        ERR_NO_OTF_SPOOLJOB            = 1
        ERR_NO_SPOOLJOB                = 2
        ERR_NO_PERMISSION              = 3
        ERR_CONV_NOT_POSSIBLE          = 4
        ERR_BAD_DSTDEVICE              = 5
        USER_CANCELLED                 = 6
        ERR_SPOOLERROR                 = 7
        ERR_TEMSEERROR                 = 8
        ERR_BTCJOB_OPEN_FAILED         = 9
        ERR_BTCJOB_SUBMIT_FAILED       = 10
        ERR_BTCJOB_CLOSE_FAILED        = 11.
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
Build the mail
  PERFORM build_mail
    TABLES lt_pdf
    USING _receiver.
FORM prepare_print_format USING parameters LIKE priparams.
  DATA: BEGIN OF lt_report_source OCCURS 0,
          line(72) TYPE c,
        END OF lt_report_source.
  DATA: l_string_linsz TYPE string.
  DATA: l_tabix LIKE sy-tabix.
  DATA: BEGIN OF lt_sentencia OCCURS 0,
          line(72) TYPE c,
        END OF lt_sentencia.
  DATA: lt_tsp1d TYPE TABLE OF tsp1d WITH HEADER LINE.
  READ REPORT sy-repid INTO lt_report_source.
  CHECK sy-subrc = 0.
  CLEAR: l_tabix.
  WHILE NOT l_string_linsz CS '.'.
    ADD 1 TO l_tabix.
    READ TABLE lt_report_source
      INDEX l_tabix.
    TRANSLATE lt_report_source-line TO UPPER CASE.
    IF l_string_linsz CS 'REPORT'
      OR lt_report_source-line CS 'REPORT'.
      CONCATENATE l_string_linsz
                  lt_report_source-line
        INTO l_string_linsz
        SEPARATED BY space.
      CONDENSE l_string_linsz.
    ENDIF.
  ENDWHILE.
  TRANSLATE l_string_linsz USING '. '.
  CLEAR: lt_report_source.
  REFRESH: lt_report_source.
  FREE: lt_report_source.
  SPLIT l_string_linsz AT space INTO TABLE lt_sentencia.
  LOOP AT lt_sentencia
    WHERE line CS 'LINE-SIZE'.
    l_tabix = sy-tabix.
    EXIT.
  ENDLOOP.
  ADD 1 TO l_tabix.
  READ TABLE lt_sentencia
    INDEX l_tabix.
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE lt_tsp1d
    FROM tsp1d
    WHERE type = 'L'
      AND outcolumns >= lt_sentencia-line.
  SORT lt_tsp1d
    BY outcolumns.
  READ TABLE lt_tsp1d
    INDEX 1.
  parameters-linct = lttsp1d-outrows.
  parameters-linsz = ltsentencia-line.
  parameters-paart = lttsp1d-papart.
ENDFORM.                    " prepare_print_format
FORM build_mail     TABLES tpdf STRUCTURE tline
                    USING _receiver TYPE c.
  DATA: l_length_t_pdf TYPE i.
  DATA: l_string TYPE xstring.
  DATA: l_string_bck TYPE string.
  DATA: l_length_string TYPE i.
  DATA: l_length_objbin TYPE i.
  DATA: l_max_tabix TYPE i.
  DATA: l_dif TYPE i.
  DATA: l_hex_null TYPE x VALUE '00'.
  DATA: lt_objtxt           LIKE solisti1   OCCURS 10 WITH HEADER LINE.
  DATA: l_tab_lines         LIKE sy-tabix.
  DATA: le_doc_chng         LIKE sodocchgi1.
  DATA: lt_objpack          LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
  DATA: lt_objhead          LIKE solisti1   OCCURS 1 WITH HEADER LINE.
  DATA: lt_reclist          LIKE somlreci1  OCCURS 5 WITH HEADER LINE.
  DATA: lt_contents_bin     LIKE solisti1   OCCURS 0 WITH HEADER LINE.
Mail text
(...here you should fill table lt_objtxt-line)
  lt_objtxt-line = 'First line of text'.
  append lt_objtxt.
  lt_objtxt-line = 'Second line'.
  append lt_objtxt.
  DESCRIBE TABLE lt_objtxt LINES l_tab_lines.
  READ TABLE lt_objtxt INDEX l_tab_lines.
  le_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255
                         + STRLEN( lt_objtxt ).
  le_doc_chng-obj_descr = 'PO in PDF By mail'.
  CLEAR lt_objpack-transf_bin.
  lt_objpack-head_start = 1.
  lt_objpack-head_num   = 0.
  lt_objpack-body_start = 1.
  lt_objpack-body_num   = l_tab_lines.
  lt_objpack-doc_type   = 'RAW'.
  APPEND lt_objpack.
Attached file, in PDF-format
  DESCRIBE FIELD tpdf LENGTH l_length_t_pdf.
  CLEAR: l_string_bck,
         l_string.
  LOOP AT tpdf.
    CONCATENATE l_string_bck tpdf INTO l_string_bck.
    l_dif = l_length_t_pdf - STRLEN( tpdf ).
    DO l_dif TIMES.
      CONCATENATE l_string_bck l_hex_null INTO l_string_bck.
    ENDDO.
    CONCATENATE l_string tpdf INTO l_string.
  ENDLOOP.
  sy-subrc = 0.
  WHILE sy-subrc = 0.
    REPLACE l_hex_null WITH space INTO l_string_bck.
  ENDWHILE.
  l_length_string = strlen( l_string_bck ).
  DESCRIBE FIELD lt_contents_bin LENGTH l_length_objbin.
  l_max_tabix = ceil( l_length_string / l_length_objbin * '1.0' ).
  DO l_max_tabix TIMES.
    lt_contents_bin = l_string_bck.
    APPEND lt_contents_bin.
    IF sy-tabix <> l_max_tabix.
      l_string_bck = l_string_bck+l_length_objbin.
    ENDIF.
  ENDDO.
  DESCRIBE TABLE lt_contents_bin LINES l_tab_lines.
  APPEND lt_objhead.
  lt_objpack-transf_bin = c_yes.
  lt_objpack-head_start = 1.
  lt_objpack-head_num   = 1.
  lt_objpack-body_start = 1.
  lt_objpack-body_num   = l_tab_lines.
  lt_objpack-doc_type   = 'PDF'.
  lt_objpack-doc_size   = ( l_tab_lines - 1 ) * 255.
  LOOP AT lt_contents_bin.
  ENDLOOP.
  lt_objpack-doc_size = lt_objpack-doc_size + STRLEN( lt_contents_bin ).
  APPEND lt_objpack.
lt_reclist-receiver = 'testmailgmail.com'.
  lt_reclist-rec_type = 'U'.
  APPEND lt_reclist.
Finally! we send the mail
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data                    = le_doc_chng
      put_in_outbox                    = c_yes
    TABLES
      packing_list                     = lt_objpack
      object_header                    = lt_objhead
      contents_bin                     = lt_contents_bin
     contents_hex                     =
      contents_txt                     = lt_objtxt
      receivers                        = lt_reclist
    EXCEPTIONS
      too_many_receivers               = 1
      document_not_sent                = 2
      document_type_not_exist          = 3
      operation_no_authorization       = 4
      parameter_error                  = 5
      x_error                          = 6
      enqueue_error                    = 7
      OTHERS                           = 8.
ENDFORM.                    " build_mail