Email with attachments whose path is mentioned in hier seq list

Question

Hi,
I am trying to send 3 attachments to an email by using SO_NEW_DOCUMENT_ATT_SEND_API1
The files are to be picked up from an editable field of header of an hierarchical sequential ALV list. The email with attachments has to be sent on click of a user button 'Send email'.
Can anyone guide me how to achieve these?
1) F4 for filepath on the ALV field for hier seq list
2) The attachments should be the ones mentioned in the file paths of fields f1, f2, f3 resply.
Currently, the attachments are sent with the mail but are empty and without filenames!
Part of the code for attachments is pasted below:
Pack the mail contents and attachment
  lt_packing_list-transf_bin  = space.
  lt_packing_list-head_start  = 1.
  lt_packing_list-head_num    = 0.
  lt_packing_list-body_start  = 1.
  lt_packing_list-body_num    = LINES( objcont ).
  lt_packing_list-doc_type    = 'RAW'.
  APPEND lt_packing_list. CLEAR lt_packing_list.
  lt_packing_list-transf_bin  = 'X'.
  lt_packing_list-head_start  = 1.
  lt_packing_list-head_num    = 1.
  lt_packing_list-body_start  = 1.
  lt_packing_list-doc_type    = 'XLS'. " You can give RAW incase if you want just a txt file.
  lt_packing_list-obj_name    = gt_ppsn_hdr-att1.
  APPEND lt_packing_list. CLEAR lt_packing_list.
Regards,
Poonam

Answer 1

I would like to suggest you , to use this kind of form.... for you sending mail result
    PERFORM send_file_as_email_attachment  USING g_email "Email
          userid "Account SAP
    CHANGING return_error. "Eventually
*&      Form  send_file_as_email_attachment
      text
     -->P_EMAIL    text
     -->P_ERROR    text
FORM send_file_as_email_attachment USING p_email
                                         p_parid
                                CHANGING p_error.
  DATA: f_send_request  TYPE REF TO CL_BCS,
        f_sent_to_all   TYPE OS_BOOLEAN,
        f_xls_content   TYPE SOLIX_TAB,
        f_document      TYPE REF TO CL_DOCUMENT_BCS,
        f_recipient     TYPE REF TO if_recipient_bcs,
        f_bcs_exception TYPE REF TO CX_BCS,
        f_text          TYPE bcsy_text WITH HEADER LINE,
        f_wa_text       TYPE soli,
        f_error         TYPE TABLE OF solisti1 WITH HEADER LINE,
        f_lw_error      LIKE LINE OF f_error,
        f_length        TYPE so_obj_len,
        f_xls_length    TYPE so_obj_len,
        f_subject       TYPE so_obj_des,
        f_n10           TYPE I.
  CONSTANTS:  con_tab TYPE C VALUE cl_abap_char_utilities=>HORIZONTAL_TAB,   "OK for non Unicode
              con_cret TYPE C VALUE cl_abap_char_utilities=>CR_LF.  "OK for non Unicode
  DATA:
  bxls_string    TYPE string,
  bxls_str      TYPE xstring.
  CHECK NOT p_email IS INITIAL.
*To send mail the xstring having excel format data
  TRY.
    Create persistent send request
      f_send_request = cl_bcs=>create_persistent( ).
      f_wa_text = TEXT-m01.  
      APPEND f_wa_text TO f_text.   "****** CONTENT OF MAIL
      "Data above populated
      f_subject = TEXT-t01.
      DESCRIBE TABLE f_text LINES f_n10.
      f_n10 = ( f_n10 - 1 ) * 255 + STRLEN( f_text ).
      f_length = f_n10.
      MOVE text-c01 TO f_subject.
      f_document = cl_document_bcs=>create_document(
      i_type    = 'RAW'
      i_text    = f_text[]
      i_length  = f_length
      i_subject = f_subject ).                              "#EC NOTEXT
ATTACHMENT
XLS HEADER 
      CLEAR: bxls_string, bxls_str.
      CONCATENATE text-001 text-002 text-003 text-004 text-020 text-017 text-018 text-019
                  text-005 text-006 text-007
                  text-008 text-009 text-010 text-011 text-012 text-013 text-014
                  text-015 text-016 con_cret INTO bxls_string SEPARATED BY con_tab.
      CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
        EXPORTING
          TEXT   = bxls_string
        IMPORTING
          BUFFER = bxls_str
        EXCEPTIONS
          FAILED = 1
          OTHERS = 2.
      IF SY-SUBRC <> 0.
      ENDIF.
FILE CONTENT
      LOOP AT it_xls_invio.
Allega ciascun elenco individuato per l'indirizzo mail in elaborazione
        REFRESH f_xls_content.
    Create and set document
        CONCATENATE bxls_str it_xls_invio-xls_str INTO it_xls_invio-xls_str IN BYTE MODE.
        f_xls_content = cl_document_bcs=>xstring_to_solix( it_xls_invio-xls_str ). "String having Excel format
        CALL METHOD f_document->add_attachment
        EXPORTING
          i_attachment_type    = C_FORMATO   "CONSTANT         C_FORMATO(3) VALUE 'XLS'.
          I_ATT_CONTENT_HEX    = f_xls_content
         i_attachment_size    = xls_length
          i_attachment_subject = f_subject.
      ENDLOOP.
      CHECK sy-subrc EQ 0.
    Add document object to send request
      f_send_request->set_document( f_document ).
    Add recipient (e-mail address)
    Create recipient object
      f_recipient = cl_cam_address_bcs=>create_internet_address( p_email ).
    Add recipient object to send request
      f_send_request->add_recipient( f_recipient ).
    Send document
      f_sent_to_all = f_send_request->send( i_with_error_screen = 'X' ).
      COMMIT WORK.
     ENDLOOP.
  Exception handling
  replace this rudimentary exception handling with your own one
    CATCH cx_bcs INTO f_bcs_exception.
      WRITE:/ ' Sending Error'.'
  ENDTRY.
ENDFORM.                    "send_file_as_email_attachment