Problem in sending pdf attachment

Question

hi all
i am facing a problem when i am sending a pdf attachment in mail... It is showing an errror that the file is not decode properly as it is an email attachment. The below code works fine for other file types. please help me

Answer 1

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_soli type soli,
      it_soli type table of soli,
      it1_solix type solix_tab.
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.
catch cx_sy_dyn_call_illegal_type.
endtry.
try.
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
  EXPORTING
    BUFFER                = xstr
   APPEND_TO_TABLE       = 'X'
* IMPORTING
*   OUTPUT_LENGTH         =
  TABLES
    BINARY_TAB            = it1_solix
catch cx_sy_dyn_call_illegal_type.
endtry.
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.
try.
  lo_document->add_attachment(
  EXPORTING
    i_attachment_type = i_type
    i_attachment_subject = attachment_sub
    i_att_content_hex = it1_solix ).
       CATCH cx_document_bcs.
endtry.
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
    USERLIST              = it_userlist.
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.