Reg: HRforms converted to PDF and send email to individual employee

Question

Hi Experts,
The requirement is convert the HR form output to pdf and send email to respective employee in standard transaction. I copied RPCEDTX0 to  ZRPCEDTX0 and include RPCEDS09 to ZRPCEDS09, the changes need to be done for individual PERNR, I have modified the include as shown below.
   CALL FUNCTION 'HRPY_PROCESS_SET_PERNR_STATUS' after this, i have written my code
* start of changes ARAFIQUE
  DATA: formname TYPE tdsfname VALUE 'HR_ESS_PAYSLIP_TO_PDF',
        fm_name TYPE rs38l_fnam,
        pinfo LIKE pc407 OCCURS 0 WITH HEADER LINE,
        pform type tt_pc408,
        pform_l like pc408 OCCURS 0 WITH HEADER LINE.
  IF xform[] IS NOT INITIAL.
    pform_l = xform.
    APPEND pform_1 TO pform.
    pinfo-molga = '99'.
    pinfo-forml = 'ZACC'.
    APPEND pinfo.
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname                 = formname
*       VARIANT                  = ' '
*       DIRECT_CALL              = ' '
     IMPORTING
       fm_name                  = fm_name
     EXCEPTIONS
       no_form                  = 1
       no_function_module       = 2
       OTHERS                   = 3
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    CALL FUNCTION fm_name
      EXPORTING
        pinfo                      =
        pform                      = xform[]
EXCEPTIONS
   FORMATTING_ERROR           = 1
   INTERNAL_ERROR             = 2
   SEND_ERROR                 = 3
   USER_CANCELED              = 4
   OTHERS                     = 5
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.
* end of changes ARAFIQUE
I found out in internet that the smartform 'HR_ESS_PAYSLIP_TO_PDF' will convert to PDF and then i can send email to PERNRS.

Answer 1

Hi Experts,
I have written the below code, the payslip is getting converted to PDF and it is getting saved in presentation server. I need to pick this file and mail, I created a customized function module for sending mail. I'm not able to send email to external addresses.
Please find my code below. I will post the function module later.
* start of changes ARAFIQUE
  DATA: "formname TYPE tdsfname VALUE 'HR_ESS_PAYSLIP_TO_PDF',
        "fm_name TYPE rs38l_fnam,
        p_info LIKE pc407 OCCURS 0 WITH HEADER LINE,
        "pform type tt_pc408,
        p_form LIKE pc408 OCCURS 0 WITH HEADER LINE,
        pdf_content TYPE xstring,
        pdf_fsize TYPE i,
        lv_output_length TYPE i,
        lt_binary_data TYPE STANDARD TABLE OF sdokcntbin,
        it_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
        it_message LIKE solisti1 OCCURS 0 WITH HEADER LINE.
  IF xform[] IS NOT INITIAL.
    p_form[] = xform[].
    p_info-molga = '99'.
    p_info-forml = 'ZACC'.
    p_info-pcols = 1.
    p_info-psize = 1.
    APPEND p_info.
    CALL FUNCTION 'CONVERT_PAYSLIP_TO_PDF'
      EXPORTING
        p_info      = p_info
      IMPORTING
        pdf_content = pdf_content
        pdf_fsize   = pdf_fsize
      TABLES
        p_form      = p_form[]
      EXCEPTIONS
        empty_form  = 1
        OTHERS      = 2.
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
      EXPORTING
        buffer        = pdf_content
      IMPORTING
        output_length = lv_output_length
      TABLES
        binary_tab    = lt_binary_data.
    CALL FUNCTION 'GUI_DOWNLOAD'
        EXPORTING
          filename                        = 'C:\Test\Testing.pdf'
          filetype                        = 'BIN'
        TABLES
          data_tab                        = lt_binary_data
*     FIELDNAMES                      =
       EXCEPTIONS
         file_write_error                = 1
         no_batch                        = 2
         gui_refuse_filetransfer         = 3
         invalid_type                    = 4
         no_authority                    = 5
         unknown_error                   = 6
         header_not_allowed              = 7
         separator_not_allowed           = 8
         filesize_not_allowed            = 9
         header_too_long                 = 10
         dp_error_create                 = 11
         dp_error_send                   = 12
         dp_error_write                  = 13
         unknown_dp_error                = 14
         access_denied                   = 15
         dp_out_of_memory                = 16
         disk_full                       = 17
         dp_timeout                      = 18
         file_not_found                  = 19
         dataprovider_exception          = 20
         control_flush_error             = 21
         OTHERS                          = 22
    it_receivers-receiver = 'gmailid'.
    it_receivers-rec_type = 'U'.
    it_receivers-com_type = 'INT'.
    APPEND it_receivers .
    it_message-line = 'Test for sending email'.
    APPEND it_message.
    CALL FUNCTION 'ZSEND_MAIL_ATTACHMENT'
      EXPORTING
        v_file_path  = 'C:\Test\Testing.pdf'
        v_subject    = 'Test Mail'
      TABLES
        it_receivers = it_receivers[]
        it_message   = it_message[].
    IF sy-subrc EQ 0.
      COMMIT WORK.
*   Push mail out from SAP outbox
      SUBMIT rsconn01 WITH mode = 'INT' AND RETURN.
    ENDIF.