Problem with Email attachment

Question

Hi,
I am using the method add_attachment, to add attachments to my Email.
The mail is being triggered successfully with the attachments, but with the following problems:
a. The attachment is being populated with incomplete data.
CALL METHOD document->add_attachment
EXPORTING
i_attachment_type    = file_type
i_attachment_subject = attach_name1
i_att_content_text   = it_attach[].
Although it_attach[] has all the data in it, the data in the attachment is incomplete.
Is there a limit on the attachment size? How can this be increased.
b. There is a space after every character in the attachment data. How can this be corrected?
Thanks,
Smitha.

Answer 1

Below is the code:
FUNCTION Z_XI_SEND_MAIL_ATT_DYN_EMAILID.
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(SUBJECT) TYPE  SO_OBJ_DES OPTIONAL
*"     VALUE(ATTACH_NAME1) TYPE  SOOD-OBJDES OPTIONAL
*"     VALUE(FILE_TYPE) TYPE  SOODK-OBJTP OPTIONAL
*"     VALUE(ATTACH_NAME2) TYPE  SOOD-OBJDES OPTIONAL
*"  TABLES
*"      IT_CONTENT TYPE  SOLI_TAB OPTIONAL
*"      IT_ATTACH TYPE  SOLI_TAB OPTIONAL
*"      IT_ATTACH1 TYPE  SOLI_TAB OPTIONAL
*"      IT_EMAILID TYPE  SOLI_TAB OPTIONAL
DATA: send_request       TYPE REF TO cl_bcs.
  DATA: document           TYPE REF TO cl_document_bcs.
  DATA: sender             TYPE REF TO cl_sapuser_bcs.
  DATA: recipient          TYPE REF TO if_recipient_bcs.
  DATA: exception_info     TYPE REF TO if_os_exception_info,
  bcs_exception      TYPE REF TO cx_document_bcs.
  DATA i_attachment_size TYPE sood-objlen.
  DATA it_recv LIKE zmailmap OCCURS 0 WITH HEADER LINE.
  DATA ext(3).
  DATA: it_attach_hex type standard table of solix .
  DATA: it_attach1_hex type standard table of solix .
* Create persistent send request
  send_request = cl_bcs=>create_persistent( ).
  TRY.
      document = cl_document_bcs=>create_document(
                                    i_type    = 'txt'
                                    i_text = it_content[]
                                    i_subject = subject ).
      DESCRIBE TABLE it_attach.
      SPLIT attach_name1 AT '.' INTO attach_name1 ext.
**************** Convert text to binary***********************
call function 'SO_SOLITAB_TO_SOLIXTAB'
exporting
ip_solitab = it_attach[]
importing
ep_solixtab = it_attach_hex[].
      CALL METHOD document->add_attachment
        EXPORTING
          i_attachment_type    = file_type
          i_attachment_subject = attach_name1
          i_att_content_hex   = it_attach_hex[].
****Additional code for QRN Interface*****
      IF file_type = 'QRN'.
        SPLIT attach_name2 AT '.' INTO attach_name2 ext.
        DESCRIBE TABLE it_attach1.
*********Convert text to binary***************
call function 'SO_SOLITAB_TO_SOLIXTAB'
exporting
ip_solitab = it_attach1[]
importing
ep_solixtab = it_attach1_hex[].
        CALL METHOD document->add_attachment
          EXPORTING
            i_attachment_type    = 'QTX'
            i_attachment_subject = attach_name2
            i_att_content_hex   = it_attach1_hex[].
      ENDIF.
* Add document to send request
      CALL METHOD send_request->set_document( document ).
* Get sender object
      sender = cl_sapuser_bcs=>create( sy-uname ).
* Add sender
      CALL METHOD send_request->set_sender
        EXPORTING
        i_sender = sender.
********Determine the receipients (Extra code added for QRN interface - 31st May 2007)************
****Add Reciepents
IF file_type = 'QRN'.
  LOOP AT IT_EMAILID.
  it_recv-MAILID = IT_EMAILID.
  APPEND it_recv.
  CLEAR it_recv.
  ENDLOOP.
**it_recv-mailid = IT_EMAILID.
**APPEND it_recv.
ELSE.
  SELECT * FROM zmailmap INTO TABLE it_recv  WHERE filetype = file_type.
ENDIF.
      LOOP AT it_recv.
        TRANSLATE it_recv-mailid TO LOWER CASE.
        recipient = cl_cam_address_bcs=>create_internet_address(
       it_recv-mailid ).
        CALL METHOD send_request->add_recipient
          EXPORTING
            i_recipient  = recipient
            i_express    = 'U'
            i_copy       = ' '
            i_blind_copy = ' '
            i_no_forward = ' '.
      ENDLOOP.
***********Trigger e-mails immediately*****************************
      send_request->set_send_immediately( 'X' ).
      CALL METHOD send_request->send( ).
      COMMIT WORK.
    CATCH cx_document_bcs INTO bcs_exception.
  ENDTRY.
ENDFUNCTION.