Problem in sending the smartform as an email in a country specific language

Question

Hi,
I am facing a problem in sending a smartform as a email for all other Languages except english and another problem is its sending the email but the output status is still in RED in the messages tab.
the program is working fine for english.
Please do find the below code using which i would be sending the smartform as an email for a PO along with the line item attachments.
Please help.
Arun.
Determine smartform function module for purchase document
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = lf_formname
    IMPORTING
      fm_name            = lf_fm_name
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2
      OTHERS             = 3.
  IF sy-subrc <> 0.
error handling
    ent_retco = sy-subrc.
    IF sy-subrc = 1.
      MESSAGE e001(/smb40/ssfcomposer).
    ENDIF.
    IF sy-subrc = 2.
      MESSAGE e002(/smb40/ssfcomposer) WITH tnapr-sform.
    ENDIF.
    PERFORM protocol_update_i.
  ENDIF.
*Start of changes <Arun K Singarapu> C082493 <04/28/2008>
*for print preview
  IF sy-ucomm = 'PREVOUTPUT' OR sy-ucomm = 'VIEW'.
    CALL FUNCTION lf_fm_name                  "'/1BCDWB/SF00000197'
      EXPORTING
        control_parameters = wa_ctrlop
        output_options     = wa_compop
        user_settings      = 'X'
        is_ekko            = l_doc-xekko
        is_pekko           = l_doc-xpekko
        is_nast            = l_nast
        iv_from_mem        = l_from_memory
        iv_druvo           = iv_druvo
        iv_xfz             = iv_xfz
      IMPORTING
        job_output_info    = wa_return
      TABLES
        it_ekpo            = l_doc-xekpo[]
        it_ekpa            = l_doc-xekpa[]
        it_pekpo           = l_doc-xpekpo[]
        it_eket            = l_doc-xeket[]
        it_tkomv           = l_doc-xtkomv[]
        it_ekkn            = l_doc-xekkn[]
        it_ekek            = l_doc-xekek[]
        it_komk            = l_xkomk[]
      EXCEPTIONS
        formatting_error   = 1
        internal_error     = 2
        send_error         = 3
        user_canceled      = 4
        OTHERS             = 5.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    EXIT.
  ELSE.
    wa_ctrlop-LANGU = nast-spras.
    wa_ctrlop-getotf = 'X'.
    wa_ctrlop-no_dialog = 'X'.
    wa_compop-tdnoprev = 'X'.
    CALL FUNCTION lf_fm_name                  "'/1BCDWB/SF00000197'
      EXPORTING
        control_parameters = wa_ctrlop
        output_options     = wa_compop
        user_settings      = 'X'
        is_ekko            = l_doc-xekko
        is_pekko           = l_doc-xpekko
        is_nast            = l_nast
        iv_from_mem        = l_from_memory
        iv_druvo           = iv_druvo
        iv_xfz             = iv_xfz
      IMPORTING
        job_output_info    = wa_return
      TABLES
        it_ekpo            = l_doc-xekpo[]
        it_ekpa            = l_doc-xekpa[]
        it_pekpo           = l_doc-xpekpo[]
        it_eket            = l_doc-xeket[]
        it_tkomv           = l_doc-xtkomv[]
        it_ekkn            = l_doc-xekkn[]
        it_ekek            = l_doc-xekek[]
        it_komk            = l_xkomk[]
      EXCEPTIONS
        formatting_error   = 1
        internal_error     = 2
        send_error         = 3
        user_canceled      = 4
        OTHERS             = 5.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
*Convert the data from OTF to PDF format
    it_otf[] = wa_return-otfdata[].
    CALL FUNCTION 'CONVERT_OTF'
      EXPORTING
        format                = 'PDF'
        max_linewidth         = 132
      IMPORTING
        bin_filesize          = l_len_in
        bin_file              = lp_xcontent
      TABLES
        otf                   = it_otf
        lines                 = it_tline
      EXCEPTIONS
        err_max_linewidth     = 1
        err_format            = 2
        err_conv_not_possible = 3
        OTHERS                = 4.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    TRY.
  ---------- create persistent send request ----------------------
        send_request = cl_bcs=>create_persistent( ).
        len = XSTRLEN( lp_xcontent ).
transform to solix tab
        lt_solix =
          cl_document_bcs=>xstring_to_solix(
            ip_xstring = lp_xcontent ).
Create Body to the E-mail.
        APPEND Text-005 TO l_text.
Attachment Name
        l_ponumber = text-004.
        CONCATENATE l_ponumber l_doc-xekko-ebeln INTO l_ponumber.
Subject for the E-Mail.
        l_subject = text-001.
        CONCATENATE l_subject l_doc-xekko-ebeln INTO l_subject.
*create document E-Mail.
        CALL METHOD cl_document_bcs=>create_document
          EXPORTING
            i_type    = 'RAW'
            i_subject = l_subject
            i_length  = '13'
            i_text    = l_text
          RECEIVING
            result    = l_email_object.
*Create PDF Document
        bcs_doc =  cl_document_bcs=>create_document(
                                        i_type     = 'PDF'
                                        i_subject  = l_ponumber
                                        i_length   = len
                                        i_language = nast-spras
                                        i_hex     = lt_solix
*Type casting
        obj_pdf_file ?= bcs_doc.
Add PDF document as an attachment
        CALL METHOD l_email_object->add_document_as_attachment
          EXPORTING
            im_document = obj_pdf_file.
get the attachments of the PO for each line item
        SELECT ebeln
               ebelp
               FROM ekpo
               INTO TABLE it_ekpo
               WHERE ebeln = l_doc-xekko-ebeln.
concatenate PO and the Line Item Numebr to get the Object key
        LOOP AT it_ekpo INTO wa_ekpo.
          CONCATENATE wa_ekpo-ebeln wa_ekpo-ebelp INTO wa_temp-objky.
          APPEND wa_temp TO it_temp.
          CLEAR: wa_temp,wa_ekpo.
        ENDLOOP.
*Get data from table DRAD
        IF it_temp[] IS NOT INITIAL.
          SELECT dokar
                 doknr
                 dokvr
                 doktl
                 objky
                 FROM drad
                 client specified
                 INTO TABLE it_drad
                 FOR ALL ENTRIES IN it_temp
                 WHERE mandt = sy-mandt
                 AND objky = it_temp-objky.
        ENDIF.
        IF NOT it_drad IS INITIAL.
          SELECT * FROM dms_doc2loio
                   INTO TABLE it_dms_doc2loio
                   FOR ALL ENTRIES IN it_drad
                   WHERE dokar = 'SRM'
                     AND doknr = it_drad-doknr
                     AND dokvr = it_drad-dokvr
                     AND doktl = it_drad-doktl.
        ENDIF.
Get the Physical object class and Object ID of the attachment
        IF NOT it_dms_doc2loio IS INITIAL.
          SELECT * FROM dms_ph_cd1
                   INTO TABLE it_dms_ph_cd1
                   FOR ALL ENTRIES IN it_dms_doc2loio
                   WHERE loio_id = it_dms_doc2loio-lo_objid.
        ENDIF.
Get the file from the DMS server using the below function module.
        LOOP AT it_dms_ph_cd1 INTO wa_dms_ph_cd1.
          wa_object_id-class = wa_dms_ph_cd1-ph_class.
          wa_object_id-objid = wa_dms_ph_cd1-phio_id.
          CALL FUNCTION 'SDOK_PHIO_LOAD_CONTENT'
            EXPORTING
              object_id           = wa_object_id
              client              = sy-mandt
            TABLES
              file_access_info    = it_file_access_info
              file_content_binary = it_sdokcntbin
            EXCEPTIONS
              not_existing        = 1
              not_authorized      = 2
              no_content          = 3
              bad_storage_type    = 4
              OTHERS              = 5.
          IF sy-subrc <> 0.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
          ENDIF.
          READ TABLE it_file_access_info INTO wa_file_access_info INDEX 1.
          IF wa_file_access_info-mimetype = 'application/msword'.
            l_doc_type = 'DOC'.
            CLEAR: a_xstring,len.
            LOOP AT it_sdokcntbin INTO wa_sdokcntbin.
              CONCATENATE a_xstring wa_sdokcntbin-line
                     INTO a_xstring IN BYTE MODE.
            ENDLOOP.
            len = XSTRLEN( a_xstring ).
    transform to solix tab - adding additional attachments
            REFRESH lt_solix.
            lt_solix =
              cl_document_bcs=>xstring_to_solix(
                ip_xstring = a_xstring ).
            CLEAR l_filename.
        Get the file name
            l_filename = wa_file_access_info-file_name.
            bcs_doc1 =  cl_document_bcs=>create_document(
                                            i_type     = l_doc_type
                                            i_subject  = l_filename
                                            i_length   = len
                                            i_language = sy-langu
                                            i_hex     = lt_solix
*Type casting
            obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
            CALL METHOD l_email_object->add_document_as_attachment
              EXPORTING
                im_document = obj_file.
for PDF document
          ELSEIF wa_file_access_info-mimetype = 'application/pdf'.
            l_doc_type = 'PDF'.
            file_size = wa_file_access_info-file_size.
Convert the 1022 binary data to xstring
            CLEAR a_xstring.
            CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
              EXPORTING
                input_length = file_size
              IMPORTING
                buffer       = a_xstring
              TABLES
                binary_tab   = it_sdokcntbin
              EXCEPTIONS
                failed       = 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.
            DATA: w_output_length TYPE i.
Convert Xstring to 255 RAW
            CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
              EXPORTING
                buffer        = a_xstring
              IMPORTING
                output_length = w_output_length
              TABLES
                binary_tab    = lt_content_bin.
            len = w_output_length.
            CLEAR l_filename.
        Get the file name
            l_filename = wa_file_access_info-file_name.
            bcs_doc1 =  cl_document_bcs=>create_document(
                                            i_type     = l_doc_type
                                            i_subject  = l_filename
                                            i_length   = len
                                            i_language = sy-langu
                                            i_hex     = lt_content_bin
       type casting
            obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
            CALL METHOD l_email_object->add_document_as_attachment
              EXPORTING
                im_document = obj_file.
for Excel Document
          ELSEIF wa_file_access_info-mimetype = 'application/msexcel'.
            l_doc_type = 'XLS'.
            CLEAR: a_xstring,len.
            LOOP AT it_sdokcntbin INTO wa_sdokcntbin.
              CONCATENATE a_xstring wa_sdokcntbin-line
                     INTO a_xstring IN BYTE MODE.
            ENDLOOP.
            len = XSTRLEN( a_xstring ).
    transform to solix tab - adding additional attachments
            REFRESH lt_solix.
            lt_solix =
              cl_document_bcs=>xstring_to_solix(
                ip_xstring = a_xstring ).
            CLEAR l_filename.
        Get the file name
            l_filename = wa_file_access_info-file_name.
            bcs_doc1 =  cl_document_bcs=>create_document(
                                            i_type     = l_doc_type
                                            i_subject  = l_filename
                                            i_length   = len
                                            i_language = sy-langu
                                            i_hex     = lt_solix
*Type casting
            obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
            CALL METHOD l_email_object->add_document_as_attachment
              EXPORTING
                im_document = obj_file.
for text doxument
          ELSEIF wa_file_access_info-mimetype = 'plain/text'.
            l_doc_type = 'TXT'.
            file_size = wa_file_access_info-file_size.
        Get the file name
            l_filename = wa_file_access_info-file_name.
            CALL FUNCTION 'SCMS_BINARY_TO_TEXT'
              EXPORTING
                input_length = file_size
              TABLES
                binary_tab   = it_sdokcntbin
                text_tab     = file_data
              EXCEPTIONS
                failed       = 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.
            CALL METHOD cl_document_bcs=>create_document
              EXPORTING
                i_type    = l_doc_type
                i_subject = l_filename
                i_text    = file_data
              RECEIVING
                result    = bcs_doc1.
            obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
            CALL METHOD l_email_object->add_document_as_attachment
              EXPORTING
                im_document = obj_file.
          ENDIF.
          CLEAR:it_file_access_info,it_sdokcntbin.
          CLEAR:wa_object_id,wa_file_access_info,file_size.
        ENDLOOP.
        CALL METHOD send_request->set_document( l_email_object ).
*Get the address number for the vendor
        SELECT SINGLE adrnr
                      FROM lfa1
                      INTO l_adrnr
                      WHERE lifnr = l_doc-xekko-lifnr.
        MOVE l_adrnr TO l_addrno.
Get the Email Address for the vendor using address number
        CALL FUNCTION 'ADDR_GET_REMOTE'
          EXPORTING
            addrnumber        = l_addrno
          TABLES
            adsmtp            = it_adsmtp
          EXCEPTIONS
            parameter_error   = 1
            address_not_exist = 2
            internal_error    = 3
            OTHERS            = 4.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
        sender = cl_sapuser_bcs=>create( sy-uname ).
        CALL METHOD send_request->set_sender
          EXPORTING
            i_sender = sender.
        READ TABLE it_adsmtp INTO wa_adsmtp WITH KEY flg_nouse = 'X'.
        IF sy-subrc = 0.
          LOOP AT it_adsmtp INTO wa_adsmtp WHERE flg_nouse = 'X'.
            CALL METHOD cl_cam_address_bcs=>create_internet_address
              EXPORTING
                i_address_string = wa_adsmtp-smtp_addr
              RECEIVING
                result           = recipient.
            CALL METHOD send_request->add_recipient
              EXPORTING
                i_recipient = recipient
                i_express   = 'X'.
          ENDLOOP.
        ELSE.
          READ TABLE it_adsmtp INTO wa_adsmtp WITH KEY flgdefault = 'X'.
          IF sy-subrc = 0.
            CALL METHOD cl_cam_address_bcs=>create_internet_address
              EXPORTING
                i_address_string = wa_adsmtp-smtp_addr
              RECEIVING
                result           = recipient.
            CALL METHOD send_request->add_recipient
              EXPORTING
                i_recipient = recipient
                i_express   = 'X'.
          ENDIF.
        ENDIF.
        CALL METHOD send_request->send(
         EXPORTING
           i_with_error_screen = 'X'
          RECEIVING
            result              = l_sent_to_all ).
      CATCH cx_bcs INTO bcs_exception.
        WRITE: 'Fehler aufgetreten.'(001).
        WRITE: 'Fehlertyp:'(002), bcs_exception->error_type.
        EXIT.
    ENDTRY.
  ENDIF.

Answer 1

Hi,
I am facing a problem in sending a smartform as a email for all other Languages except english and another problem is its sending the email but the output status is still in RED in the messages tab.
the program is working fine for english.
Please do find the below code using which i would be sending the smartform as an email for a PO along with the line item attachments.
Please help.
Arun.
Determine smartform function module for purchase document
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = lf_formname
    IMPORTING
      fm_name            = lf_fm_name
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2
      OTHERS             = 3.
  IF sy-subrc <> 0.
error handling
    ent_retco = sy-subrc.
    IF sy-subrc = 1.
      MESSAGE e001(/smb40/ssfcomposer).
    ENDIF.
    IF sy-subrc = 2.
      MESSAGE e002(/smb40/ssfcomposer) WITH tnapr-sform.
    ENDIF.
    PERFORM protocol_update_i.
  ENDIF.
*Start of changes <Arun K Singarapu> C082493 <04/28/2008>
*for print preview
  IF sy-ucomm = 'PREVOUTPUT' OR sy-ucomm = 'VIEW'.
    CALL FUNCTION lf_fm_name                  "'/1BCDWB/SF00000197'
      EXPORTING
        control_parameters = wa_ctrlop
        output_options     = wa_compop
        user_settings      = 'X'
        is_ekko            = l_doc-xekko
        is_pekko           = l_doc-xpekko
        is_nast            = l_nast
        iv_from_mem        = l_from_memory
        iv_druvo           = iv_druvo
        iv_xfz             = iv_xfz
      IMPORTING
        job_output_info    = wa_return
      TABLES
        it_ekpo            = l_doc-xekpo[]
        it_ekpa            = l_doc-xekpa[]
        it_pekpo           = l_doc-xpekpo[]
        it_eket            = l_doc-xeket[]
        it_tkomv           = l_doc-xtkomv[]
        it_ekkn            = l_doc-xekkn[]
        it_ekek            = l_doc-xekek[]
        it_komk            = l_xkomk[]
      EXCEPTIONS
        formatting_error   = 1
        internal_error     = 2
        send_error         = 3
        user_canceled      = 4
        OTHERS             = 5.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    EXIT.
  ELSE.
    wa_ctrlop-LANGU = nast-spras.
    wa_ctrlop-getotf = 'X'.
    wa_ctrlop-no_dialog = 'X'.
    wa_compop-tdnoprev = 'X'.
    CALL FUNCTION lf_fm_name                  "'/1BCDWB/SF00000197'
      EXPORTING
        control_parameters = wa_ctrlop
        output_options     = wa_compop
        user_settings      = 'X'
        is_ekko            = l_doc-xekko
        is_pekko           = l_doc-xpekko
        is_nast            = l_nast
        iv_from_mem        = l_from_memory
        iv_druvo           = iv_druvo
        iv_xfz             = iv_xfz
      IMPORTING
        job_output_info    = wa_return
      TABLES
        it_ekpo            = l_doc-xekpo[]
        it_ekpa            = l_doc-xekpa[]
        it_pekpo           = l_doc-xpekpo[]
        it_eket            = l_doc-xeket[]
        it_tkomv           = l_doc-xtkomv[]
        it_ekkn            = l_doc-xekkn[]
        it_ekek            = l_doc-xekek[]
        it_komk            = l_xkomk[]
      EXCEPTIONS
        formatting_error   = 1
        internal_error     = 2
        send_error         = 3
        user_canceled      = 4
        OTHERS             = 5.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
*Convert the data from OTF to PDF format
    it_otf[] = wa_return-otfdata[].
    CALL FUNCTION 'CONVERT_OTF'
      EXPORTING
        format                = 'PDF'
        max_linewidth         = 132
      IMPORTING
        bin_filesize          = l_len_in
        bin_file              = lp_xcontent
      TABLES
        otf                   = it_otf
        lines                 = it_tline
      EXCEPTIONS
        err_max_linewidth     = 1
        err_format            = 2
        err_conv_not_possible = 3
        OTHERS                = 4.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    TRY.
  ---------- create persistent send request ----------------------
        send_request = cl_bcs=>create_persistent( ).
        len = XSTRLEN( lp_xcontent ).
transform to solix tab
        lt_solix =
          cl_document_bcs=>xstring_to_solix(
            ip_xstring = lp_xcontent ).
Create Body to the E-mail.
        APPEND Text-005 TO l_text.
Attachment Name
        l_ponumber = text-004.
        CONCATENATE l_ponumber l_doc-xekko-ebeln INTO l_ponumber.
Subject for the E-Mail.
        l_subject = text-001.
        CONCATENATE l_subject l_doc-xekko-ebeln INTO l_subject.
*create document E-Mail.
        CALL METHOD cl_document_bcs=>create_document
          EXPORTING
            i_type    = 'RAW'
            i_subject = l_subject
            i_length  = '13'
            i_text    = l_text
          RECEIVING
            result    = l_email_object.
*Create PDF Document
        bcs_doc =  cl_document_bcs=>create_document(
                                        i_type     = 'PDF'
                                        i_subject  = l_ponumber
                                        i_length   = len
                                        i_language = nast-spras
                                        i_hex     = lt_solix
*Type casting
        obj_pdf_file ?= bcs_doc.
Add PDF document as an attachment
        CALL METHOD l_email_object->add_document_as_attachment
          EXPORTING
            im_document = obj_pdf_file.
get the attachments of the PO for each line item
        SELECT ebeln
               ebelp
               FROM ekpo
               INTO TABLE it_ekpo
               WHERE ebeln = l_doc-xekko-ebeln.
concatenate PO and the Line Item Numebr to get the Object key
        LOOP AT it_ekpo INTO wa_ekpo.
          CONCATENATE wa_ekpo-ebeln wa_ekpo-ebelp INTO wa_temp-objky.
          APPEND wa_temp TO it_temp.
          CLEAR: wa_temp,wa_ekpo.
        ENDLOOP.
*Get data from table DRAD
        IF it_temp[] IS NOT INITIAL.
          SELECT dokar
                 doknr
                 dokvr
                 doktl
                 objky
                 FROM drad
                 client specified
                 INTO TABLE it_drad
                 FOR ALL ENTRIES IN it_temp
                 WHERE mandt = sy-mandt
                 AND objky = it_temp-objky.
        ENDIF.
        IF NOT it_drad IS INITIAL.
          SELECT * FROM dms_doc2loio
                   INTO TABLE it_dms_doc2loio
                   FOR ALL ENTRIES IN it_drad
                   WHERE dokar = 'SRM'
                     AND doknr = it_drad-doknr
                     AND dokvr = it_drad-dokvr
                     AND doktl = it_drad-doktl.
        ENDIF.
Get the Physical object class and Object ID of the attachment
        IF NOT it_dms_doc2loio IS INITIAL.
          SELECT * FROM dms_ph_cd1
                   INTO TABLE it_dms_ph_cd1
                   FOR ALL ENTRIES IN it_dms_doc2loio
                   WHERE loio_id = it_dms_doc2loio-lo_objid.
        ENDIF.
Get the file from the DMS server using the below function module.
        LOOP AT it_dms_ph_cd1 INTO wa_dms_ph_cd1.
          wa_object_id-class = wa_dms_ph_cd1-ph_class.
          wa_object_id-objid = wa_dms_ph_cd1-phio_id.
          CALL FUNCTION 'SDOK_PHIO_LOAD_CONTENT'
            EXPORTING
              object_id           = wa_object_id
              client              = sy-mandt
            TABLES
              file_access_info    = it_file_access_info
              file_content_binary = it_sdokcntbin
            EXCEPTIONS
              not_existing        = 1
              not_authorized      = 2
              no_content          = 3
              bad_storage_type    = 4
              OTHERS              = 5.
          IF sy-subrc <> 0.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
          ENDIF.
          READ TABLE it_file_access_info INTO wa_file_access_info INDEX 1.
          IF wa_file_access_info-mimetype = 'application/msword'.
            l_doc_type = 'DOC'.
            CLEAR: a_xstring,len.
            LOOP AT it_sdokcntbin INTO wa_sdokcntbin.
              CONCATENATE a_xstring wa_sdokcntbin-line
                     INTO a_xstring IN BYTE MODE.
            ENDLOOP.
            len = XSTRLEN( a_xstring ).
    transform to solix tab - adding additional attachments
            REFRESH lt_solix.
            lt_solix =
              cl_document_bcs=>xstring_to_solix(
                ip_xstring = a_xstring ).
            CLEAR l_filename.
        Get the file name
            l_filename = wa_file_access_info-file_name.
            bcs_doc1 =  cl_document_bcs=>create_document(
                                            i_type     = l_doc_type
                                            i_subject  = l_filename
                                            i_length   = len
                                            i_language = sy-langu
                                            i_hex     = lt_solix
*Type casting
            obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
            CALL METHOD l_email_object->add_document_as_attachment
              EXPORTING
                im_document = obj_file.
for PDF document
          ELSEIF wa_file_access_info-mimetype = 'application/pdf'.
            l_doc_type = 'PDF'.
            file_size = wa_file_access_info-file_size.
Convert the 1022 binary data to xstring
            CLEAR a_xstring.
            CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
              EXPORTING
                input_length = file_size
              IMPORTING
                buffer       = a_xstring
              TABLES
                binary_tab   = it_sdokcntbin
              EXCEPTIONS
                failed       = 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.
            DATA: w_output_length TYPE i.
Convert Xstring to 255 RAW
            CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
              EXPORTING
                buffer        = a_xstring
              IMPORTING
                output_length = w_output_length
              TABLES
                binary_tab    = lt_content_bin.
            len = w_output_length.
            CLEAR l_filename.
        Get the file name
            l_filename = wa_file_access_info-file_name.
            bcs_doc1 =  cl_document_bcs=>create_document(
                                            i_type     = l_doc_type
                                            i_subject  = l_filename
                                            i_length   = len
                                            i_language = sy-langu
                                            i_hex     = lt_content_bin
       type casting
            obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
            CALL METHOD l_email_object->add_document_as_attachment
              EXPORTING
                im_document = obj_file.
for Excel Document
          ELSEIF wa_file_access_info-mimetype = 'application/msexcel'.
            l_doc_type = 'XLS'.
            CLEAR: a_xstring,len.
            LOOP AT it_sdokcntbin INTO wa_sdokcntbin.
              CONCATENATE a_xstring wa_sdokcntbin-line
                     INTO a_xstring IN BYTE MODE.
            ENDLOOP.
            len = XSTRLEN( a_xstring ).
    transform to solix tab - adding additional attachments
            REFRESH lt_solix.
            lt_solix =
              cl_document_bcs=>xstring_to_solix(
                ip_xstring = a_xstring ).
            CLEAR l_filename.
        Get the file name
            l_filename = wa_file_access_info-file_name.
            bcs_doc1 =  cl_document_bcs=>create_document(
                                            i_type     = l_doc_type
                                            i_subject  = l_filename
                                            i_length   = len
                                            i_language = sy-langu
                                            i_hex     = lt_solix
*Type casting
            obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
            CALL METHOD l_email_object->add_document_as_attachment
              EXPORTING
                im_document = obj_file.
for text doxument
          ELSEIF wa_file_access_info-mimetype = 'plain/text'.
            l_doc_type = 'TXT'.
            file_size = wa_file_access_info-file_size.
        Get the file name
            l_filename = wa_file_access_info-file_name.
            CALL FUNCTION 'SCMS_BINARY_TO_TEXT'
              EXPORTING
                input_length = file_size
              TABLES
                binary_tab   = it_sdokcntbin
                text_tab     = file_data
              EXCEPTIONS
                failed       = 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.
            CALL METHOD cl_document_bcs=>create_document
              EXPORTING
                i_type    = l_doc_type
                i_subject = l_filename
                i_text    = file_data
              RECEIVING
                result    = bcs_doc1.
            obj_file ?= bcs_doc1.
Add Attachment as a document to the email object
            CALL METHOD l_email_object->add_document_as_attachment
              EXPORTING
                im_document = obj_file.
          ENDIF.
          CLEAR:it_file_access_info,it_sdokcntbin.
          CLEAR:wa_object_id,wa_file_access_info,file_size.
        ENDLOOP.
        CALL METHOD send_request->set_document( l_email_object ).
*Get the address number for the vendor
        SELECT SINGLE adrnr
                      FROM lfa1
                      INTO l_adrnr
                      WHERE lifnr = l_doc-xekko-lifnr.
        MOVE l_adrnr TO l_addrno.
Get the Email Address for the vendor using address number
        CALL FUNCTION 'ADDR_GET_REMOTE'
          EXPORTING
            addrnumber        = l_addrno
          TABLES
            adsmtp            = it_adsmtp
          EXCEPTIONS
            parameter_error   = 1
            address_not_exist = 2
            internal_error    = 3
            OTHERS            = 4.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
        sender = cl_sapuser_bcs=>create( sy-uname ).
        CALL METHOD send_request->set_sender
          EXPORTING
            i_sender = sender.
        READ TABLE it_adsmtp INTO wa_adsmtp WITH KEY flg_nouse = 'X'.
        IF sy-subrc = 0.
          LOOP AT it_adsmtp INTO wa_adsmtp WHERE flg_nouse = 'X'.
            CALL METHOD cl_cam_address_bcs=>create_internet_address
              EXPORTING
                i_address_string = wa_adsmtp-smtp_addr
              RECEIVING
                result           = recipient.
            CALL METHOD send_request->add_recipient
              EXPORTING
                i_recipient = recipient
                i_express   = 'X'.
          ENDLOOP.
        ELSE.
          READ TABLE it_adsmtp INTO wa_adsmtp WITH KEY flgdefault = 'X'.
          IF sy-subrc = 0.
            CALL METHOD cl_cam_address_bcs=>create_internet_address
              EXPORTING
                i_address_string = wa_adsmtp-smtp_addr
              RECEIVING
                result           = recipient.
            CALL METHOD send_request->add_recipient
              EXPORTING
                i_recipient = recipient
                i_express   = 'X'.
          ENDIF.
        ENDIF.
        CALL METHOD send_request->send(
         EXPORTING
           i_with_error_screen = 'X'
          RECEIVING
            result              = l_sent_to_all ).
      CATCH cx_bcs INTO bcs_exception.
        WRITE: 'Fehler aufgetreten.'(001).
        WRITE: 'Fehlertyp:'(002), bcs_exception->error_type.
        EXIT.
    ENDTRY.
  ENDIF.