Error when reading a pdf attachment file in sap inbox

Question

Hi all,
I have created a RFC which sends mail from an external user to my sap inbox with attachment.
the problem is with the PDF attachment where when i received the mail in my sap inbox in sbwp, it says that there is an error that it wasnt correctly decode.
I used the class cl_document_bcs...
and used the method add_attachment...
would plz help me out

Answer 1

this is my code
FUNCTION ZMAIL_READ.
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(SUBJECT) TYPE  SO_OBJ_DES
*"     VALUE(TEXT) TYPE  STRING
*"     VALUE(SENDER) TYPE  ADR6-SMTP_ADDR
*"     VALUE(RECEIVER) TYPE  ADR6-SMTP_ADDR
*"     VALUE(ATTACHMENTS) TYPE  Z_T_XATTACH OPTIONAL
*"  EXPORTING
*"     VALUE(MESSAGE) TYPE  STRING
DATA: lo_sender TYPE REF TO if_sender_bcs VALUE IS INITIAL,
      lo_bcs_send_request TYPE REF TO cl_bcs,
      l_send type ADR6-SMTP_ADDR ,
      l_rec type  ADR6-SMTP_ADDR .
data: it_text type table of soli,
      wa_text type soli.
DATA: lo_send_request TYPE REF TO cl_bcs VALUE IS INITIAL.
DATA: lo_recipient TYPE REF TO if_recipient_bcs VALUE IS INITIAL.
DATA: lv_recipient_uid TYPE uname,
      lv_recipient_mail TYPE adr6-smtp_addr.
data: lo_message type ref to cx_send_req_bcs value is initial,
      text_val type string.
data: it_userlist type table of BAPIUSNAME,
      wa_userlist type BAPIUSNAME.
data: it_selection_range type table of BAPIUSSRGE,
      wa_selection_range type BAPIUSSRGE.
data: wa_attachment TYPE ZXATTACH,
      attachment_sub type SO_OBJ_DES.
DATA: xstr type xstring,
      str TYPE string,
      str1 type string,
      it_str2 type table of soli,
      wa_STR2 TYPE SOLI.
DATA: LOC_CONV TYPE REF TO CL_ABAP_CONV_IN_CE,
      wa_solix type solix,
      it_solix type table of solix,
      wa_soli type soli,
      it_soli type table of soli.
data result TYPE boolean.
data: i_ext(10) type c,
      i_type type soodk-objtp.
wa_text-line = text.
append wa_text to it_text.
CLASS cl_bcs DEFINITION LOAD.
try.
lo_send_request = cl_bcs=>create_persistent( ).
catch cx_send_req_bcs.
endtry.
* Message body and subject
data: lo_document TYPE REF TO cl_document_bcs VALUE IS INITIAL.
try.
lo_document = cl_document_bcs=>create_document(
     i_type = 'RAW'
     i_text =  it_text
     i_subject = subject ).
catch cx_send_req_bcs.
catch cx_document_bcs.
catch cx_address_bcs.
endtry.
loop at attachments into wa_attachment.
attachment_sub = wa_attachment-file_name.
it_str2 = wa_attachment-attach.
loop at it_str2 into wa_str2.
  str1 = wa_str2-line.
try.
CALL FUNCTION 'SSFC_BASE64_DECODE'
  EXPORTING
    B64DATA                        = str1
*   B64LENG                        =
*   B_CHECK                        =
  IMPORTING
    BINDATA                        = xstr
* EXCEPTIONS
*   SSF_KRN_ERROR                  = 1
*   SSF_KRN_NOOP                   = 2
*   SSF_KRN_NOMEMORY               = 3
*   SSF_KRN_OPINV                  = 4
*   SSF_KRN_INPUT_DATA_ERROR       = 5
*   SSF_KRN_INVALID_PAR            = 6
*   SSF_KRN_INVALID_PARLEN         = 7
*   OTHERS                         = 8
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
catch cx_sy_dyn_call_illegal_type.
endtry.
CALL METHOD CL_ABAP_CONV_IN_CE=>CREATE
      EXPORTING
        INPUT       = xstr
        ENCODING    = 'UTF-8'
*        REPLACEMENT = '?'
*        IGNORE_CERR = ABAP_TRUE
      RECEIVING
        CONV        = loc_CONV.
TRY.
    CALL METHOD LOC_CONV->READ
      IMPORTING
        DATA = STR.
CATCH CX_SY_CONVERSION_CODEPAGE.
CATCH CX_SY_CODEPAGE_CONVERTER_INIT.
CATCH CX_PARAMETER_INVALID_TYPE.
CATCH CX_PARAMETER_INVALID_RANGE.
ENDTRY.
wa_solix-line = xstr.
append wa_solix to it_solix.
wa_soli-line = str.
append wa_soli to it_soli.
endloop.
try.
CALL FUNCTION 'SA_KW_RFC_FILENAME_EXT_GET'
  EXPORTING
   AREA            = 'IWBSOLAR'
    MIMETYPE        = wa_attachment-type
IMPORTING
   EXTENSION       = i_ext
catch cx_sy_dyn_call_illegal_type.
endtry.
i_type = i_ext.
if i_ext <> 'pdf'.
try.
  lo_document->add_attachment(
  EXPORTING
    i_attachment_type = i_type
    i_attachment_subject = attachment_sub
    i_att_content_hex = it_solix ).
       CATCH cx_document_bcs.
endtry.
clear wa_solix.
refresh it_solix.
else.
TRY.
  CALL METHOD LO_DOCUMENT->ADD_ATTACHMENT
    EXPORTING
      I_ATTACHMENT_TYPE     = i_type
      I_ATTACHMENT_SUBJECT  = attachment_sub
*      I_ATTACHMENT_SIZE     =
*      I_ATTACHMENT_LANGUAGE = SPACE
      I_ATT_CONTENT_TEXT    = it_soli
*      I_ATT_CONTENT_HEX     =
*      I_ATTACHMENT_HEADER   =
   CATCH CX_DOCUMENT_BCS .
  ENDTRY.
ENDIF.
endloop.
try.
lo_send_request->set_document( lo_document ).
CATCH cx_send_req_bcs.
endtry.
wa_selection_range-PARAMETER = 'address'.
wa_selection_range-field = 'e_mail'.
wa_selection_range-sign = 'I'.
wa_selection_range-option = 'EQ'.
wa_selection_range-low = receiver.
append wa_selection_range to it_selection_range.
try.
CALL FUNCTION 'BAPI_USER_GETLIST'
* EXPORTING
*   MAX_ROWS              = 0
*   WITH_USERNAME         = ' '
* IMPORTING
*   ROWS                  =
TABLES
    SELECTION_RANGE       = it_selection_range
*   SELECTION_EXP         =
    USERLIST              = it_userlist
*   RETURN                =
catch cx_sy_dyn_call_illegal_type.
endtry.
read table it_userlist into wa_userlist index 1.
try.
  lo_sender = cl_cam_address_bcs=>create_internet_address( sender ).
  lo_send_request->set_sender(
     EXPORTING
     i_sender = lo_sender ).
catch cx_send_req_bcs.
catch cx_document_bcs.
catch cx_address_bcs.
  return.
endtry.
try.
    lo_recipient = cl_sapuser_bcs=>create( wa_userlist-USERNAME ).
    lo_send_request->add_recipient(
       EXPORTING
         i_recipient = lo_recipient ).
*         i_express = 'X' ).
  catch cx_send_req_bcs.
  catch cx_document_bcs.
  catch cx_address_bcs.
endtry.
try.
** Send email
     LO_SEND_REQUEST->SET_SEND_IMMEDIATELY( 'X' ).
     lo_send_request->send( EXPORTING
     i_with_error_screen = ' '
     RECEIVING
     result = result ).
     COMMIT WORK.
CATCH CX_DOCUMENT_BCS.
CATCH CX_SEND_REQ_BCS INTO lo_message.
CATCH CX_ADDRESS_BCS.
text_val = lo_message->IF_MESSAGE~GET_TEXT( ).
endtry.
if result = 'X'.
  message = 'E-Mail sent'.
else.
  message = 'E-Mail not sent'.
endif.
ENDFUNCTION.