Paylisp in PDF Through Email

Question

HI All,
I have a requirement to send  payslip in PDF format  through Email ( PE51- HR FORM EDITOR)
Converted the Payslip into PDF by using  F.M BAPI_GET_PAYSLIP_PDF .
PDF got generated nd  for the same am sending  through Email by using the FM SO_DOCUMENT_SEND_API1.
Recieved an email but the format is not proper ..
Got hanged with this problem..
Please provide any  suggestion to move furthur ...
Regards ,
Dheeraj.

Answer 1

@ Sriram and all ..
Here is the link of the o/p :
http://i56.tinypic.com/2w3w96d.jpg 
   .. Have used the FM 'QCE1_CONVERT' ( i.e to make the PDF content in a compatible format) before making use of 'SO_NEW_DOCUMENT_ATT_SEND_API1' FM.
Still am facing the same probs  nd am also herewith posting the code ..
First have retrieved the latest payroll  result and made the below....
VARIABLES FOR SENDING EMAIL
DATA document_data TYPE STANDARD TABLE OF sodocchgi1
     WITH HEADER LINE .
DATA packing_list TYPE STANDARD TABLE OF sopcklsti1
     WITH HEADER LINE .
DATA object_header TYPE STANDARD TABLE OF  solisti1
     WITH HEADER LINE .
DATA contents_bin TYPE STANDARD TABLE OF  solisti1
     WITH HEADER LINE .
DATA contents_txt TYPE STANDARD TABLE OF  solisti1
     WITH HEADER LINE .
DATA receivers TYPE STANDARD TABLE OF  somlreci1
     WITH HEADER LINE .
DATA i_objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE .
DATA tab_lines_txt TYPE i .
DATA tab_lines  TYPE i .
DATA : successfully_sent TYPE c .
    CALL FUNCTION 'BAPI_GET_PAYSLIP_PDF'
      EXPORTING
        employeenumber = p0001-pernr
        sequencenumber = number
        payslipvariant = c_payslip_variant
      IMPORTING
        return         = return
        payslip        = pdf_content
        pdf_fsize      = pdf_fsize.
    IF pdf_content IS INITIAL.
      it_log-count = count.
      it_log-pernr = p0001-pernr.
      it_log-message_type = 'E'.
      it_log-message = return-message.
      APPEND it_log.
    ELSE.
      CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
        EXPORTING
          buffer     = pdf_content
        TABLES
          binary_tab = binary.
    ENDIF.
  ENDIF.
  BREAK-POINT.
  CALL FUNCTION 'QCE1_CONVERT'
    TABLES
      t_source_tab         = binary
      t_target_tab         = i_objbin
    EXCEPTIONS
      convert_not_possible = 1
      OTHERS               = 2.
  CONCATENATE 'PAYSLIP' '_' p0001-pernr '_'  INTO
gc_testing.
=================================================
NAME OF THE OBJECT TO BE SENT
=================================================
  BREAK-POINT.
  CLEAR document_data .
  document_data-obj_name  = gc_tst.
  document_data-obj_descr = gc_testing.
=================================================
CALCULATING THE SIZE OF THE TEXT IN THE MESSAGE
BODY AND UPDATING THE PACKING LIST
=================================================
  BREAK-POINT.
  DESCRIBE TABLE binary LINES   gv_tab_lines  .
  READ TABLE binary INDEX gv_tab_lines. .
  document_data-doc_size =
  ( gv_tab_lines - 1 ) * 255 + STRLEN( binary ).
  CLEAR packing_list.
  packing_list-head_start = 1.
  packing_list-head_num   = 0.
  packing_list-body_start = 1.
  packing_list-body_num   = gv_tab_lines.
  packing_list-doc_type   = 'RAW'.
  APPEND packing_list.
* =================================================
CALCULATING THE SIZE OF THE PDF ATTACHEMENT
AND UPDATING THE PACKING LIST
=================================================
  BREAK-POINT.
  DESCRIBE TABLE i_objbin  LINES tab_lines.
  CLEAR packing_list .
  packing_list-transf_bin = 'X'.
  packing_list-head_start = 1.
  packing_list-head_num   = 1.
  packing_list-body_start =  1 .
  packing_list-body_num   = tab_lines .
  packing_list-doc_type   = 'PDF'.
  packing_list-obj_name   = 'INFORMATION.PDF' .
  packing_list-obj_descr  = 'INFORMATION.PDF' .
  packing_list-doc_size   = tab_lines * 255.
  APPEND packing_list.
  =================================================
CREATING THE ATTACHMENT OF THE MESSAGE
=================================================
  FREE contents_bin .
  LOOP AT i_objbin .
    CLEAR contents_bin .
    contents_bin = i_objbin  .
    APPEND contents_bin .
  ENDLOOP .
* =================================================
LIST OF RECEPIENTS
=================================================
  FREE receivers.
  CLEAR receivers.
  receivers-receiver = 'email id'  .
  receivers-rec_type = 'U'.
  APPEND receivers.
=================================================
=================================================
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data                    =  document_data
      put_in_outbox                    = ' '
      commit_work                      = 'X'
  IMPORTING
    SENT_TO_ALL                      =
    NEW_OBJECT_ID                    =
    TABLES
      packing_list                     = packing_list
      object_header                    = object_header
      contents_bin                     = contents_bin
      contents_txt                     = contents_txt
    CONTENTS_HEX                     =
    OBJECT_PARA                      =
    OBJECT_PARB                      =
      receivers                        = receivers
   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 EQ 0 .
    successfully_sent = 'X' .
  ENDIF .
Please  suggest and let me know for furthur changes that need to be done for  the above coding  to resolve my problem..
Regards ,
Dheeraj