A temporary solution for issue of excel sheet for SO_NEW_DOCUMENT_ATT_SEND_

Question

Hi,
we all sometime or the other have faced the problem with SO_NEW_DOCUMENT_ATT_SEND_API1, it passes all the data into a single excel sheet. the following is the code i have written using the same standard FM to resolve the issue.
Problem's Facing     : To send the output of a report as mail attachment (Excel sheet) from SAP, to the User's outlook or TCP/IP
What is happening     : All the data which is being passed to the excel is being put in a single cell of the excel sheet.
Cause               : the difficulty lies in getting the internal table from SAP report, passing it to email Function Module If the structure of the internal Table is unknown .
Solution:
if the user while sending data to the Function module ( created using the following code) puts a '#' between field values, all the fields gets separated into individual cells and the data gets printed as required.
<b>advantages</b> of the following code are:
1) User just need to type userid or multiple userid's separated by comma.
2) Performs multiple tasks with one function module.
3) It can be used to send file with subject only
4) It can be used to send file with subject and body
5) It can be used to send file with subject, body, and attachment
6) Attachment can be of 'TXT' format or 'XLS' format depending upon the choice of the user.
7) User specific parameters for EMAILID, subject, body and attachment type avoiding the dump error of  "Type conflict"
8) If the user requires to send output of a report as an excel file, then a single internal table will store the total output separating the field values by ' # ' and the data gets printed evenly. the ' # '  symbol is used as Tab delimiter.
FUNCTION zemail_attachment.
""Local Interface:
*"  IMPORTING
*"     REFERENCE(EMAILID)
*"     REFERENCE(SUBJECT)
*"     REFERENCE(ATYPE)
*"  TABLES
*"      ATTACH_FILE STRUCTURE  SOLISTI1
*"      BODY OPTIONAL
*"  EXCEPTIONS
*"      INCORRECT_PARAMETERS
This table requires information about how the data in the
tables OBJECT_HEADER, CONTENTS_BIN and CONTENTS_TXT are
to be distributed to the documents and its attachments.
  DATA it_objpack LIKE sopcklsti1 OCCURS  2 WITH HEADER LINE.
This table must contain the summarized data dependent on each object type.
SAPscript objects store information here about forms and styles,
for example. Excel list viewer objects store the number of rows and columns
amongst other things and PC objects store their original file name.
  DATA it_objhead LIKE solisti1   OCCURS  1 WITH HEADER LINE.
This table must contain the summarized content of the objects identified as binary objects.
  DATA   it_objbin TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0
                 WITH HEADER LINE.
This table must contain the summarized content of the objects identified as ASCII objects.
  DATA it_objtxt  LIKE solisti1   OCCURS 10 WITH HEADER LINE.
This table must contain the document recipients.
  DATA  it_reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE .
This structure must contain the attributes of the document to be sent.
  DATA: doc_ching LIKE sodocchgi1.
  DATA: tab_lines LIKE sy-tabix.
Create the internal table for body , subject
  DATA: it_body LIKE solisti1 OCCURS 10 WITH HEADER LINE.
*creation of internal table for Email-id.
  DATA: BEGIN OF it_mailid OCCURS 0,
        email LIKE kna1-name1 ,
        END OF it_mailid.
*VARIABLES
  DATA : v_hash(1) TYPE c VALUE '#'.
  DATA: v_string1 LIKE kna1-name1,
        v_string2 LIKE kna1-name1,
        v_string3(12) TYPE c VALUE '@GMAIL.COM'.
*CONSATNTS
  CONSTANTS: c_con_cret TYPE c VALUE cl_abap_char_utilities=>horizontal_tab,
             c_con_tab  TYPE c VALUE cl_abap_char_utilities=>cr_lf,
             c_raw(3)   TYPE c VALUE 'RAW',
             c_comma(1) TYPE c VALUE ',',
             c_rec_type(1) TYPE c VALUE 'U',
             c_space(1)    TYPE c VALUE ''.
Move Body to Internal Table (body into it_body)
  LOOP AT body .
    MOVE body TO it_body .
    APPEND it_body .
  ENDLOOP.
  doc_ching-obj_descr = subject.   "Subject of the Email
Move the Subject and Body to OBJTXT
  it_objtxt[] = it_body[].
  DESCRIBE TABLE it_objtxt LINES tab_lines.
  READ TABLE it_objtxt INDEX tab_lines.
  doc_ching-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( it_objtxt ).
  CLEAR it_objpack-transf_bin.
it_objpack-head_start = 1.
it_objpack-head_num   = 0.
it_objpack-body_start = 1.
it_objpack-body_num   = tab_lines.
it_objpack-doc_type   = c_raw.
  APPEND it_objpack.
Convert to Excel format
IF NOT attach_file[] IS INITIAL.
  IF atype IS INITIAL.
RAISE INCORRECT_PARAMETERS.
  ELSEIF atype = 'XLS' .
    LOOP AT attach_file .
      CONCATENATE attach_file v_hash INTO attach_file.
      REPLACE ALL OCCURRENCES OF v_hash IN attach_file WITH c_con_cret.
      IF sy-tabix = 1.
        MOVE attach_file TO it_objbin.
      ELSE.
        CONCATENATE c_con_tab attach_file INTO it_objbin.
      ENDIF.
      APPEND  it_objbin.
    ENDLOOP.
  ELSEIF atype = 'TXT' .
Convert to Text format
    LOOP AT attach_file .
      REPLACE ALL OCCURRENCES OF v_hash IN attach_file WITH c_con_cret.
      CONCATENATE attach_file c_con_tab  INTO it_objbin .
      APPEND it_objbin .
    ENDLOOP.
  ENDIF.
  DESCRIBE TABLE it_objbin LINES tab_lines.
  it_objhead = subject. APPEND it_objhead.
Creating the entry for the compressed attachment
  it_objpack-transf_bin = 'X'.
  it_objpack-head_start = 1.
  it_objpack-head_num   = 1.
  it_objpack-body_start = 1.
  it_objpack-body_num   = tab_lines.
*check for XLS ,TXT files
  IF atype = 'XLS'.
    it_objpack-doc_type   = atype.
  ELSEIF atype = 'TXT'.
    it_objpack-doc_type   = c_raw.
  ENDIF.
  it_objpack-obj_name   = 'ATTACHMENT'.
  it_objpack-obj_descr = 'ATTACHMENT'. "Attachment File Name
  it_objpack-doc_size   = tab_lines * 255.
  APPEND it_objpack..
ENDIF.
Entering names in the distribution list
Concatenating the email with '@GMAIL.COM if the user doesnot specify any mail extension
recipent type as U - for internet usage
  SPLIT emailid AT c_comma INTO TABLE it_mailid.
  APPEND it_mailid.
  LOOP AT it_mailid.
    SHIFT it_mailid-email LEFT DELETING LEADING c_space.
    SPLIT it_mailid-email AT '@' INTO: v_string1 v_string2.
    IF v_string2 IS INITIAL AND NOT it_mailid-email IS INITIAL.
      CONCATENATE v_string1 v_string3 INTO it_reclist-receiver.
      it_reclist-rec_type = c_rec_type.
      APPEND it_reclist.
      CLEAR: v_string1,v_string2.
    ELSE.
      it_reclist-receiver = it_mailid-email.
      it_reclist-rec_type = c_rec_type.
      APPEND it_reclist.
    ENDIF.
  ENDLOOP.
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc_ching
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = it_objpack
      object_header              = it_objhead
      contents_bin               = it_objbin
      contents_txt               = it_objtxt
      receivers                  = it_reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
ENDFUNCTION.
If anyone, has a better solution, please share
Cheers
Ajay

Answer 1

issue resolved