Garbage in mail body when sending mail from abap code

Question

Hi abapers,
i am sending mail from my program and when the data reaches in mailbox it is as follows.
佐呓义⁇䅄䕔䌉乏啓䕍⁒低䌉乏啓䕍⁒䅎䕍䤉⁃䥔䭃⁔低म䍉吠䍉䕋⁔䕄䍓䤉⁃䥔䭃呅匠䅔啔॓
which is not proper.
I'm attaching the following part of code which i have used.Please let me know if i've made any mistake over here.
DOCDATA-OBJ_LANGU = SY-LANGU.
  DOCDATA-OBJ_NAME = 'Mail_Excel_File'.
  DOCDATA-OBJ_DESCR = 'Closed Customer Complaints'.      
  DOCDATA-SENSITIVTY = 'F'.
  OBJTXT =
  'Attached compensation request is pending for your approval as on '.
  APPEND OBJTXT. CLEAR OBJTXT.
  OBJTXT =
  'today. Please find the attached Field Investigation Report.'.
  APPEND OBJTXT. CLEAR OBJTXT.
  OBJTXT =
  'This is auto generated mail.Please do not reply to this mail.'.
  APPEND OBJTXT. CLEAR OBJTXT.
  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
  READ     TABLE OBJTXT INDEX TAB_LINES.
  DOCDATA-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
CLEAR OBJPACK-TRANSF_BIN.
  OBJPACK-TRANSF_BIN = 'X'.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM = 0.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM = TAB_LINES.
  OBJPACK-DOC_TYPE = 'RAW'.
  APPEND OBJPACK.
  DESCRIBE TABLE I_CONTENTS_HEX LINES TAB_LINES.
*  OBJPACK-DOC_SIZE = TAB_LINES * 255  + STRLEN( OBJTXT ).
  OBJPACK-DOC_SIZE = TAB_LINES * 255  .
  OBJPACK-TRANSF_BIN = 'X'.
*  OBJPACK-TRANSF_BIN = SPACE.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM = 1.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM = TAB_LINES.
  OBJPACK-DOC_TYPE = 'XLS'.
* DOCDATA-OBJ_NAME = 'Excel_File_Attachment1'.
*  OBJPACK-OBJ_DESCR = FILE_NAME.
  OBJPACK-OBJ_DESCR = P_FILE.
  APPEND OBJPACK.
  RECLIST-RECEIVER = RECIEVER.
  RECLIST-REC_TYPE = 'U'.
  RECLIST-EXPRESS = 'X'.
  APPEND RECLIST.
* FM called for sending the mail to the intended recipients
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA = DOCDATA
      PUT_IN_OUTBOX = 'X'
      COMMIT_WORK   = 'X'
    TABLES
      PACKING_LIST  = OBJPACK
      CONTENTS_HEX  = I_CONTENTS_HEX
      CONTENTS_TXT  = OBJTXT
      RECEIVERS     = RECLIST
   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.
what will be the problem..
please help out.
Regards,
Navin
Edited by: navin.c on Jul 10, 2009 8:08 AM

Answer 1

Hi Krishna,
I have attachment properly coming the problem is body of mail its is coming in some  unknown language
佐呓义⁇䅄䕔䌉乏啓䕍⁒低䌉乏啓䕍⁒䅎䕍䤉⁃䥔䭃⁔低म䍉吠䍉䕋⁔䕄䍓䤉⁃䥔䭃呅匠䅔啔॓剐䑏䌠䵏⁐低म剐䌠䵏⁐呓呁单䌉䵏⹐删充低म䅌呓䌠䅈䝎䑅䄠॔剐䑏䍕⁔䕄䅔䱉॓䡓䑁⁅䅎䕍匉䅈䕄䌠䑏ॅ䅂䕓丠䵁ॅ䅂䕓䌠䑏ॅ䅂䍔⁈啎䉍剅䴉乁䙕䝃䐠呁ॅ䅓偍䕌䄠䅖䱉䉁䱉呉ख़䉏䕓噒
what may be the problem?
I have used the same logic . im attaching my part of code for your reference .
DOCDATA-OBJ_LANGU = SY-LANGU.
  DOCDATA-OBJ_NAME = 'Mail_Excel_File'.
  DOCDATA-OBJ_DESCR = 'Closed Customer Complaints'.         "nsc070709+
  DOCDATA-SENSITIVTY = 'F'.
* Describe the body of the message
*********new additon of mail content
* CONCATENATE  'Dear'  L_FIRSTNAME ','
*  INTO OBJTXT SEPARATED BY SPACE.
*  APPEND OBJTXT. CLEAR OBJTXT.
  OBJTXT =
  'Attached compensation request is pending for your approval as on '.
  APPEND OBJTXT. CLEAR OBJTXT.
  OBJTXT =
  'today. Please find the attached Field Investigation Report.'.
  APPEND OBJTXT. CLEAR OBJTXT.
  OBJTXT =
  'This is auto generated mail.Please do not reply to this mail.'.
  APPEND OBJTXT. CLEAR OBJTXT.
  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
  READ     TABLE OBJTXT INDEX TAB_LINES.
  DOCDATA-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
*  OBJTXT = 'Attached is the FIR PENDING CASES'.
*  APPEND OBJTXT.
*  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
  CLEAR OBJPACK-TRANSF_BIN.
  OBJPACK-TRANSF_BIN = 'X'.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM = 0.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM = TAB_LINES.
  OBJPACK-DOC_TYPE = 'RAW'.
  APPEND OBJPACK.
  DESCRIBE TABLE I_CONTENTS_HEX LINES TAB_LINES.
*  OBJPACK-DOC_SIZE = TAB_LINES * 255  + STRLEN( OBJTXT ).
  OBJPACK-DOC_SIZE = TAB_LINES * 255  .
  OBJPACK-TRANSF_BIN = 'X'.
*  OBJPACK-TRANSF_BIN = SPACE.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM = 1.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM = TAB_LINES.
  OBJPACK-DOC_TYPE = 'XLS'.
* DOCDATA-OBJ_NAME = 'Excel_File_Attachment1'.
*  OBJPACK-OBJ_DESCR = FILE_NAME.
  OBJPACK-OBJ_DESCR = P_FILE.
  APPEND OBJPACK.
  RECLIST-RECEIVER = RECIEVER.
  RECLIST-REC_TYPE = 'U'.
  RECLIST-EXPRESS = 'X'.
  APPEND RECLIST.
* FM called for sending the mail to the intended recipients
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA              = DOCDATA
      PUT_IN_OUTBOX              = 'X'
      COMMIT_WORK                = 'X'
    TABLES
      PACKING_LIST               = OBJPACK
      CONTENTS_HEX               = I_CONTENTS_HEX
      CONTENTS_TXT               = OBJTXT
      RECEIVERS                  = RECLIST
    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.
  COMMIT WORK.
Can anybody help me out on this issue.
Its somewhat on priority.
Edited by: navin.c on Jul 10, 2009 12:58 PM