Problem in sending .doc file as an attachment.!

Question

Hi SDN,
I am using FM 'SO_NEW_DOCUMENT_ATT_SEND_API1' to send a .doc file as an attachment i am filling the the table contents_hex with my internal table containing the data in hex format but the attachment coming to the SAP office inbox is not showing the actual data it's showing the file with all hex values.
can any one tell the reason?
Please give sample code if possible for sending a word file as an attachment..
Regards,
Rahul

Answer 1

Hi Rahul,
I am sending you the sample code I have written for TXT.
you can use the same code for .doc with small modification.
You use this code and check once and let me know.
Sample code:
Declaration:
DATA : w_name TYPE sos04-l_adr_name.
DATA: sent_to_all  LIKE  sonv-flag.
DATA:
  l_datum(10),
  ls_docdata TYPE sodocchgi1,
  lt_objpack TYPE TABLE OF sopcklsti1 WITH HEADER LINE,
  lt_objhead TYPE TABLE OF solisti1 WITH HEADER LINE,
  lt_objtxt TYPE TABLE OF solisti1 WITH HEADER LINE,
  lt_objbin TYPE TABLE OF solisti1 WITH HEADER LINE,
  lt_reclist TYPE TABLE OF somlreci1 WITH HEADER LINE,
  lt_listobject TYPE TABLE OF abaplist WITH HEADER LINE,
  l_tab_lines TYPE i,
  l_tab_lines1 TYPE i,
  l_tab_lines2 TYPE i,
  l_att_type LIKE soodk-objtp.
CONSTANTS : c_tab TYPE x VALUE '09'.     "tab delimiter between records.
CONSTANTS : c_line(2) TYPE x VALUE '0D'.
CONSTANTS : l_newline(2) TYPE x VALUE '0D0A'.        "To insert Newline.
DATA: v_str LIKE lt_objbin.
*Program logic
Main Text
  lt_objtxt = 'Dummy heading. ' .
    APPEND lt_objtxt.
    lt_objtxt = '' .
    APPEND lt_objtxt.
lt_objtxt = 'Dummy second line.'.
    APPEND lt_objtxt.
    lt_objtxt = '' .
    APPEND lt_objtxt.
    lt_objtxt = 'Regards,'.
     APPEND lt_objtxt.
    lt_objtxt = 'Field Service Team' .
    APPEND lt_objtxt.
    lt_objtxt = '----
    APPEND lt_objtxt.
lt_objtxt = 'This is system-generated email;please do not reply to this
message.'  .
    APPEND lt_objtxt.
lt_objtxt = 'If there are any questions regarding this error message'.
    APPEND lt_objtxt.
lt_objtxt = '----
    APPEND lt_objtxt.
Write Packing List (Main)
    DESCRIBE TABLE lt_objtxt LINES l_tab_lines.
    READ TABLE lt_objtxt INDEX l_tab_lines.
  ls_docdata-doc_size = ( l_tab_lines - 1 ) * 255 + STRLEN( lt_objtxt ).
    CLEAR lt_objpack-transf_bin.
    lt_objpack-head_start = 1.
    lt_objpack-head_num = 0.
    lt_objpack-body_start = 1.
    lt_objpack-body_num = l_tab_lines.
    lt_objpack-doc_type = 'RAW'.
    APPEND lt_objpack.
Create Message Attachment   "Attachmant of  file
    LOOP AT itab1.
      CONCATENATE itab1-bldat itab1-blart itab1-bukrs itab1-budat
                  itab1-monat itab1-waers itab1-xblnr itab1-bktxt
                   INTO lt_objbin SEPARATED BY c_tab .
      CONCATENATE  l_newline lt_objbin INTO lt_objbin.
      APPEND lt_objbin.
      CLEAR lt_objbin.
    ENDLOOP.
Write Packing List (Attachment)
    l_att_type = 'txt'.
    DESCRIBE TABLE lt_objbin LINES l_tab_lines.
    READ TABLE lt_objbin INDEX l_tab_lines.
    lt_objpack-doc_size = ( l_tab_lines - 1 ) * 255
                                    + STRLEN( lt_objbin ).
    lt_objpack-transf_bin = 'X'.
    lt_objpack-head_start = 1.
    lt_objpack-head_num = 0.
    lt_objpack-body_start = 1.
    lt_objpack-body_num = l_tab_lines.
    lt_objpack-doc_type = l_att_type.
    lt_objpack-obj_name = 'Header file name'.
    lt_objpack-obj_descr = 'Header file name'.
    APPEND lt_objpack.
*refresh bdclm.     "Attachemnt of second file
   CLEAR lt_objbin.
    LOOP AT bdclm.
      CONCATENATE itab2-indate itab2-intime itab2-tcode
                  itab2-longtext
                  INTO lt_objbin SEPARATED BY c_tab.
      CONCATENATE  l_newline lt_objbin INTO lt_objbin.
      APPEND lt_objbin.
      CLEAR lt_objbin.
    ENDLOOP.
    CLEAR lt_objbin.
Write Packing List (Attachment)
    l_att_type = 'txt'.
    DESCRIBE TABLE lt_objbin LINES l_tab_lines1.
    l_tab_lines2 = l_tab_lines1 - l_tab_lines.
    READ TABLE lt_objbin INDEX l_tab_lines2.
lt_objpack-doc_size = ( l_tab_lines2 - 1 ) * 255 + STRLEN( lt_objbin ).
    lt_objpack-transf_bin = 'X'.
    lt_objpack-head_start = l_tab_lines2.
    lt_objpack-head_num = 0.
    lt_objpack-body_start = l_tab_lines + 1.
    lt_objpack-body_num = l_tab_lines2.
    lt_objpack-doc_type = l_att_type.
    lt_objpack-obj_name = 'file name '.
    lt_objpack-obj_descr = 'file name '.
    APPEND lt_objpack.
Create receiver list
    lt_reclist-receiver = '[email protected]'.
    lt_reclist-rec_type = 'U'.
    APPEND lt_reclist.
Send Message
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
         EXPORTING
            document_data = ls_docdata
            put_in_outbox = 'X'
             commit_work = 'X '
*put_in_outbox = ''
        IMPORTING
            sent_to_all = sent_to_all
VALUE(NEW_OBJECT_ID) LIKE  SOFOLENTI1-OBJECT_ID
         TABLES
             packing_list = lt_objpack
             object_header = lt_objhead
             contents_bin = lt_objbin
             contents_txt = lt_objtxt
             receivers = lt_reclist
*COMMIT_WORK = X
         EXCEPTIONS
             too_many_receivers = 1
             document_not_sent = 2
             document_type_not_exist = 3
             operation_no_authorization = 4
             parameter_error = 5
             x_error = 6
             enqueue_error = 7
            OTHERS = 8.
Thanks,
Yuvaraj