Email internal table as zip file

Question

Hello everyone
I spent several days to have a full example on how to convert an internal table has ZIP file than send it by email.
I found several example to upload file from the OS and than convert it to ZIP to save it after. But nothing from the current internal email.
So, for the benefit of everybody who that can interrest, here is the code I did. Feel free to optimize it and post the new version here.
===========================================
Moderator message - Please respect the 2,500 character maximum when posting. Post only the relevant portions of code
==========================================
Regards
dstj
Edited by: Rob Burbank on Feb 12, 2010 2:09 PM

Answer 1

Hello Daniel,
Thank you very much for this post, it is quite helpful. However, I have followed your template very closely and my file will not send. I am not an advaned ABAP programmer, but have a good knowledge of programming in general...here's a bit of my code related to this...
*-Create table body
  LOOP AT (internal table) INTO (structure)
  (Fill lv_line with one line of string based on structure)
    CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
      EXPORTING
        text = lv_line
      IMPORTING
        buffer = lv_xline
    CONCATENATE lv_xcontent lv_xline INTO lv_xcontent IN BYTE MODE.
  ENDLOOP.
*-Create zip xstring
  CREATE OBJECT lo_zipper.
  CALL METHOD lo_zipper->add
    EXPORTING
      name = 'AHReport.zip'
      content = lv_xcontent.
  CALL METHOD lo_zipper->save
    RECEIVING
      zip = lv_xzipcontent.
*-Convert zip xstring to binary
  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      buffer = lv_xzipcontent
    TABLES
      binary_tab = lt_data.
*-    Add attachment     
      TRY.
        CALL METHOD l_document->add_attachment
            EXPORTING
              i_attachment_type = 'ZIP'
              i_attachment_subject = 'Report'
              i_att_content_hex = lt_data.
        CATCH cx_document_bcs.
      ENDTRY.
Any help would be very much appreciated, ty.