Anyone knows how to send a attach with more than 255 characters in 4.6c ?

Question

Hi everyone,
i´m tring to send a email with attach , my problem is that i have a itab with 2500 characters per line,
and the FM 'SO_NEW_DOCUMENT_ATT_SEND_API1'  have the structure SOLISTI1 thats supports only 255 char. i tried to converto to PDF and XLS ,but when i open the attach only appers the first 255 char in each line only. any ideia for that issue?
Thanks,
Shimada
Edited by: Fernando Shimada on May 5, 2009 8:28 PM

Answer 1

here is part of my code that i tried:
first: i write the lines of my itab and after did that
  CALL FUNCTION 'SAVE_LIST'
       EXPORTING
            list_index = '0'
       TABLES
            listobject = list_object.
  CALL FUNCTION 'LIST_TO_ASCI'
       TABLES
            listasci           = list_asci
            listobject         = list_object
       EXCEPTIONS
            empty_list         = 1
            list_index_invalid = 2
            OTHERS             = 3.
  APPEND LINES OF t_saida TO t_objbin.
  DESCRIBE TABLE t_objbin LINES v_lines_ane.
second: do a alv report and tried to convert to pdf ,but the pdf have the same problem
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
            i_callback_program = sy-cprog
            it_fieldcat        = t_fieldcat[]
            is_layout          = w_layout
            is_print           = wa_pr
       TABLES
            t_outtab           = t_alv
       EXCEPTIONS
            program_error      = 1
            OTHERS             = 2.
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  w_sp =  sy-msgv1.
  CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
       EXPORTING
            src_spoolid              = w_sp
            no_dialog                = ' '
            dst_device               = 'LOCL'
      IMPORTING
           pdf_bytecount            =
            TABLES
            pdf                      = t_pdf
       EXCEPTIONS
            err_no_abap_spooljob     = 1
            err_no_spooljob          = 2
            err_no_permission        = 3
            err_conv_not_possible    = 4
            err_bad_destdevice       = 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
            OTHERS                   = 12.
  CHECK sy-subrc = 0.
Transfer the 132-long strings to 255-long strings
  LOOP AT t_pdf.
    TRANSLATE t_pdf USING '~'.
    CONCATENATE gd_buffer t_pdf INTO gd_buffer.
  ENDLOOP.
  TRANSLATE gd_buffer USING '~'.
  DO.
    t_objbin = gd_buffer.
    APPEND  t_objbin.
    SHIFT gd_buffer LEFT BY 255 PLACES.
    IF gd_buffer IS INITIAL.
      EXIT.
    ENDIF.
  ENDDO.
Create Message Body Title and Description
  t_objtxt-line = 'teste'.
  APPEND t_objtxt.
  DESCRIBE TABLE t_objtxt LINES v_lines_txt.
  READ TABLE t_objtxt INDEX v_lines_txt.
  wa_doc_chng-obj_name = 'smartform'.
  wa_doc_chng-expiry_dat = sy-datum + 2.
  wa_doc_chng-obj_descr = 'smartform'.
  wa_doc_chng-sensitivty = 'F'.
  wa_doc_chng-doc_size = v_lines_txt * 255.
Main Text
  CLEAR t_objpack-transf_bin.
  t_objpack-head_start = 1.
  t_objpack-head_num   = 0.
  t_objpack-body_start = 1.
  t_objpack-body_num   = v_lines_txt.
  t_objpack-doc_type = 'RAW'.
  APPEND t_objpack.
Anexos
  t_objpack-transf_bin = 'X'.
  t_objpack-head_start = 1.
  t_objpack-head_num = 0.
  t_objpack-body_start = 1.
  DESCRIBE TABLE t_objbin LINES v_lines_bin.
  READ TABLE t_objbin INDEX v_lines_bin.
  t_objpack-doc_size  = v_lines_bin * 255 .
  t_objpack-body_num  = v_lines_bin.
  t_objpack-doc_type  = 'PDF'.
  t_objpack-obj_name  = 'smart'.
  t_objpack-obj_descr = 'test'.
  APPEND t_objpack.
  CLEAR t_reclist.
  t_reclist-receiver = Email.
  t_reclist-rec_type = 'U'.
  APPEND t_reclist.
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            document_data              = wa_doc_chng
            put_in_outbox              = 'X'
            commit_work                = 'X'
       TABLES
            packing_list               = t_objpack
            object_header              = t_objhead
            contents_bin               = t_objbin
            contents_txt               = t_objtxt
            receivers                  = t_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.
  IF sy-subrc <> 0.
    WRITE:/ 'Error When Sending the File', sy-subrc.
  ELSE.
    WRITE:/ 'Mail sent'.
  ENDIF.