Sending Body of letter Through mail along with PDF file.

Question

Dear friends,
      I want to write some text in the mail(Body) while sending the PDF file.
          Now I am sending PDF file , besides PDF file I have to write some text in the mail.
                 Please help me .
                                                                        Thanks ,
                                                                          Praveen.

Answer 1

here is sample code.... Check the perform set_up_email_body.....
FORM send_mail .
Set up the header,body ,file attachment of the message.
  PERFORM set_up_email_hdr.
  PERFORM set_up_email_body.
  PERFORM set_up_att_file.
  CLEAR: wa_objtxt.
  SORT t_fieldcat BY no_out col_pos.
Set up patcking list for attachment
  wa_objpack-body_start = w_tabln + 1.
Loop at report and separate by semi-colons
  CLEAR: w_tabln.
  SORT t_fieldcat BY no_out col_pos.
Loop at report and append header values
  LOOP AT t_fieldcat INTO fs_fieldcat WHERE no_out = space.
    IF wa_objtxt IS INITIAL.
      wa_objtxt = fs_fieldcat-seltext_l.
    ELSE.
      CONCATENATE wa_objtxt
                  fs_fieldcat-seltext_l
             INTO wa_objtxt
     SEPARATED BY c_comma.
    ENDIF.                             " IF WA_OBJTXT ...
    CONDENSE wa_objtxt NO-GAPS.
  ENDLOOP.                             " LOOP AT T_FIELDCAT ...
  IF sy-subrc EQ 0.
    APPEND wa_objtxt TO t_objtxt.
  ENDIF.                               " IF SY-SUBRC ...
Fill Email attachment
  PERFORM fill_email_report.
  DESCRIBE TABLE t_objtxt LINES w_tabln.
  CLEAR W_LINE.
  READ TABLE t_objtxt INTO w_line INDEX w_tabln.
  IF SY-SUBRC EQ 0.
    fs_docda-doc_size = ( w_tabln - c_1 ) * 255 + STRLEN( w_line ).
    wa_objpack-body_num = w_tabln.
    wa_objpack-doc_size = w_tabln * 255.
    APPEND wa_objpack TO t_objpack.
Add receipients to the mail.
    PERFORM add_recipients.
send the mail
    PERFORM call_send.
  ENDIF.                               " IF SY-SUBRC EQ 0.
ENDFORM.                               " SEND_MAIL
*&      Form  add_recipients
      This subroutine is used to add receipients to send mail.
      There are no parameters passed to this subroutine.
FORM add_recipients .
  IF p_user IS NOT INITIAL.
    wa_receiver-receiver = p_user.
    wa_receiver-rec_type = c_u.
    APPEND wa_receiver TO t_receiver.
  ELSE.
    wa_receiver-receiver = p_dlist.
    wa_receiver-rec_type = c_c.
    APPEND wa_receiver TO t_receiver.
  ENDIF.                               " IF P_USER ...
ENDFORM.                               " ADD_RECIPIENTS
*&      Form  call_send
      This subroutine is used to send the mail.
      There are no parameters passed to this subroutine.
FORM call_send .
  IF t_objtxt[] IS NOT INITIAL.
Send the mail.
    CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
      EXPORTING
        document_data              = fs_docda
        put_in_outbox              = c_x
        commit_work                = c_x
      TABLES
        packing_list               = t_objpack
        object_header              = t_objhead
        contents_txt               = t_objtxt
        receivers                  = t_receiver
      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.
    IF sy-subrc NE 0.
      MESSAGE s100(ra) WITH text-e05.
      STOP.
    ELSE.
      MESSAGE s100(ra) WITH text-026.
    ENDIF.                             " IF SY-SUBRC ...
  ELSE.
    MESSAGE s100(ra) WITH text-029.
    STOP.
  ENDIF.                               " IF T_OBJTXT[] ...
ENDFORM.                               " CALL_SEND
*&      Form  set_up_email_hdr
      This subroutine is used to Setup the attributes of the Document
      There are no interface parameters to this subroutine.
FORM set_up_email_hdr .
  MOVE text-i03 TO fs_docda-obj_name.
  IF sy-sysid+0(1) NE c_p.
    CONCATENATE text-i02 text-i03 INTO fs_docda-obj_descr.
  ELSE.
    MOVE text-i03 TO fs_docda-obj_descr.
  ENDIF.                               " IF SY-SYSID+0(1) ...
ENDFORM.                               " SET_UP_EMAIL_HDR
*&      Form  set_up_email_body
      This subroutine is used to set body of an email
      There are no interface parameters to this subroutine.
FORM set_up_email_body .
Setting the attributes of the document.
  IF P_ZCR3 EQ C_X.
    wa_objtxt-line = text-007.
  ELSEIF P_REL EQ C_X  AND P_CHECK NE C_X.
    wa_objtxt-line = text-008.
  ELSEIF P_REL EQ C_X AND P_CHECK EQ C_X.
    wa_objtxt-line = text-008.
  ELSE.
    wa_objtxt-line = text-009.
  ENDIF.                               " IF P_ZCR3 ...
  APPEND wa_objtxt TO t_objtxt.
  DESCRIBE TABLE t_objtxt LINES w_tabln.
  CLEAR W_LINE.
  READ TABLE t_objtxt INTO w_line INDEX w_tabln.
  IF SY-SUBRC EQ 0.
    fs_docda-doc_size = ( w_tabln - 1 ) * 255 + STRLEN( w_line ).
    wa_objpack-head_start = c_1.
    wa_objpack-head_num   = c_0.
    wa_objpack-body_start = c_1.
    wa_objpack-body_num   = w_tabln.
    wa_objpack-doc_type   = c_RAW.
    APPEND wa_objpack TO t_objpack.
  ENDIF.                               " IF SY-SUBRC EQ 0.
ENDFORM.                               " SET_UP_EMAIL_BODY
*&      Form  set_up_att_file
      This subroutine is used to set up an attachment file.
      There are no interface parameterst that need to be passed to
      this subroutine.
FORM set_up_att_file .
Attaching the file to the mail.
  wa_objhead-line = c_fname.
  APPEND wa_objhead TO t_objhead.
  wa_objpack-head_start = c_1.
  wa_objpack-head_num   = c_1.
  wa_objpack-body_start = w_tabln.
  wa_objpack-doc_type   = c_CSV.
  IF P_ZCR3 EQ C_X.
    wa_objpack-obj_name   = text-012.
    wa_objpack-obj_descr  = text-012.
  ELSEIF P_REL EQ C_X.
    wa_objpack-obj_name   = text-027.
    wa_objpack-obj_descr  = text-027.
  ELSE.
    wa_objpack-obj_name   = text-028.
    wa_objpack-obj_descr  = text-028.
  ENDIF.                               " IF P_ZCRE EQ....
ENDFORM.                               " SET_UP_ATT_FILE