Problem in sending online interactive form in email as PDF attachment

Question

Hi,
I am trying to send online intercative forms as PDF attachment once user fills it and click on send button. But this mail i am trying to send from SAP workflow. For this am using one function module which is accepting the pdfsource context attribute of binary type as Xstring. Once i run the webdynpro application i am getting mail in out look but when i open the attachment i am getting error file is damaged.
Can you pls help me in solving this, Or any other way for doing the same.
Here is the code i am using for triggering the RFC from WD
Zsend_Mail_Attachment_Sev_Input mail = new Zsend_Mail_Attachment_Sev_Input();     
          //to capture the outplacement level entered in the form
          mail.setI_Out_Place_Level(wdContext.currentVn_severancedetailsElement().getVa_outplacement_level().getBytes());
     mail.setI_Bin_Data(wdContext.currentContextElement().getPdfSource());
     wdContext.nodeZsend_Mail_Attachment_Sev_Input().bind(mail);
     try
          wdContext.currentZsend_Mail_Attachment_Sev_InputElement().modelObject().execute();
          wdComponentAPI.getMessageManager().reportSuccess("Notification Sent Successfully.");
     catch (WDDynamicRFCExecuteException e)
          // TODO Auto-generated catch block
          wdComponentAPI.getMessageManager().reportSuccess(" This is inside the mail exception!!"+e);
          e.printStackTrace();
Here is the function module code
FUNCTION ZSEND_MAIL_ATTACHMENT_SEV.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_OUT_PLACE_LEVEL) TYPE  XSTRING OPTIONAL
*"     VALUE(I_BIN_DATA) TYPE  XSTRING OPTIONAL
*"  TABLES
*"      T_V_BIN_DATA STRUCTURE  SOLISTI1
*"      IT_MESSAGE STRUCTURE  SOLISTI1
Data Declaration
  DATA: gd_cnt TYPE i,
        gd_sent_all(1) TYPE c,
        gd_error TYPE sy-subrc,
        tab_lines LIKE sy-tabix,
        v_subject(255) VALUE 'HI'.
Structure Declaration
  DATA : BEGIN OF it_file OCCURS 0,
          row(255),
         END OF it_file.
  DATA : BEGIN OF i_split OCCURS 0,
  row(50),
  END OF i_split.
DESCRIBE TABLE it_message LINES tab_lines.
READ TABLE it_message INDEX tab_lines.
Internal Table Declaration
  data : it_receivers like table of SOMLRECI1 with header line."occurs 0.
  DATA : objbin LIKE SOLIX OCCURS 0 WITH HEADER LINE.
  DATA : it_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE.
  data : wa_receiver like table of SOMLRECI1 with header line.
  data : it_receiver like table of SOMLRECI1 with header line.
  DATA :   gd_doc_data LIKE sodocchgi1 OCCURS 0 WITH HEADER LINE.
  REFRESH : objbin, it_packing_list, it_receivers, wa_receiver.
  CLEAR   : objbin, it_packing_list, wa_receiver, it_receivers.
gd_doc_data-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( it_message ).
gd_doc_data-obj_langu = sy-langu.
gd_doc_data-obj_name = 'SENDFILE'.
gd_doc_data-obj_descr = v_subject.
gd_doc_data-sensitivty = 'O'.
APPEND GD_DOC_DATA.
Appending The Internal Table it_packing_list
  it_packing_list-head_start = 1.
  it_packing_list-head_num = 0.
  it_packing_list-body_start = 1.
  it_packing_list-doc_type = 'RAW'.
  it_packing_list-body_num = tab_lines.
  APPEND it_packing_list.
  move i_bin_data to t_v_bin_data.
********Add By Anuj
  APPEND t_v_bin_data.
********End Add By Anuj
  LOOP AT t_v_bin_data.
    MOVE t_v_bin_data TO objbin-line.
    APPEND objbin.
  ENDLOOP.
  CLEAR it_packing_list.
  DESCRIBE TABLE objbin LINES tab_lines.
  it_packing_list-transf_bin = 'X'.
  it_packing_list-head_start = 1.
  it_packing_list-head_num = 1.
  it_packing_list-body_start = 1.
  it_packing_list-doc_type = 'PDF'.
  it_packing_list-body_num = tab_lines.
  it_packing_list-doc_size = tab_lines * 255.
  APPEND it_packing_list.
  wa_receiver-receiver = '[email protected]'.
  wa_receiver-rec_type = 'U'.
  wa_receiver-com_type = 'INT'.
  APPEND wa_receiver.
  move wa_receiver[] to it_receiver[].
  append it_receiver.
*Appending The Internal Table it_receivers
wa_receiver-receiver = '[email protected]'.
wa_receiver-rec_type = 'U'.
wa_receiver-com_type = 'INT'.
APPEND wa_receiver.
move wa_receiver[] to it_receiver[].
append it_receiver.
wa_receiver-receiver = '[email protected]'.
wa_receiver-rec_type = 'U'.
wa_receiver-com_type = 'INT'.
APPEND wa_receiver.
move wa_receiver[] to it_receiver[].
append it_receiver.
wa_receiver-receiver = '[email protected]'.
wa_receiver-rec_type = 'U'.
wa_receiver-com_type = 'INT'.
APPEND wa_receiver.
move wa_receiver[] to it_receiver[].
append it_receiver.
wa_receiver-receiver = '[email protected]'.
wa_receiver-rec_type = 'U'.
wa_receiver-com_type = 'INT'.
APPEND wa_receiver.
wa_receiver-receiver = '[email protected]'.
wa_receiver-rec_type = 'U'.
wa_receiver-com_type = 'INT'.
APPEND wa_receiver.
move wa_receiver to it_receiver.
append it_receiver.
  Move wa_receiver[] to it_receivers[].
Clear it_receivers.
  if i_OUT_PLACE_LEVEL NE 0.
loop at it_receivers into wa_receiver.
   loop at it_receivers into wa_receiver.
*Function Module To Post The Message To Externa Mail
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data              = gd_doc_data
        put_in_outbox              = 'X'
        commit_work                = 'X'
      TABLES
        packing_list               = it_packing_list
        contents_hex               = objbin
        receivers                  = it_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.
    clear wa_receiver.
   endloop.
  elseif i_OUT_PLACE_LEVEL eq 0.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data              = gd_doc_data
        put_in_outbox              = 'X'
        commit_work                = 'X'
      TABLES
        packing_list               = it_packing_list
        contents_hex               = objbin
        receivers                  = it_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.
    clear wa_receiver.
  endif.
ENDFUNCTION.
Regards
Ravindra

Answer 1

Hi,
I am trying to send online intercative forms as PDF attachment once user fills it and click on send button. But this mail i am trying to send from SAP workflow. For this am using one function module which is accepting the pdfsource context attribute of binary type as Xstring. Once i run the webdynpro application i am getting mail in out look but when i open the attachment i am getting error file is damaged.
Can you pls help me in solving this, Or any other way for doing the same.
Here is the code i am using for triggering the RFC from WD
Zsend_Mail_Attachment_Sev_Input mail = new Zsend_Mail_Attachment_Sev_Input();     
          //to capture the outplacement level entered in the form
          mail.setI_Out_Place_Level(wdContext.currentVn_severancedetailsElement().getVa_outplacement_level().getBytes());
     mail.setI_Bin_Data(wdContext.currentContextElement().getPdfSource());
     wdContext.nodeZsend_Mail_Attachment_Sev_Input().bind(mail);
     try
          wdContext.currentZsend_Mail_Attachment_Sev_InputElement().modelObject().execute();
          wdComponentAPI.getMessageManager().reportSuccess("Notification Sent Successfully.");
     catch (WDDynamicRFCExecuteException e)
          // TODO Auto-generated catch block
          wdComponentAPI.getMessageManager().reportSuccess(" This is inside the mail exception!!"+e);
          e.printStackTrace();
Here is the function module code
FUNCTION ZSEND_MAIL_ATTACHMENT_SEV.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_OUT_PLACE_LEVEL) TYPE  XSTRING OPTIONAL
*"     VALUE(I_BIN_DATA) TYPE  XSTRING OPTIONAL
*"  TABLES
*"      T_V_BIN_DATA STRUCTURE  SOLISTI1
*"      IT_MESSAGE STRUCTURE  SOLISTI1
Data Declaration
  DATA: gd_cnt TYPE i,
        gd_sent_all(1) TYPE c,
        gd_error TYPE sy-subrc,
        tab_lines LIKE sy-tabix,
        v_subject(255) VALUE 'HI'.
Structure Declaration
  DATA : BEGIN OF it_file OCCURS 0,
          row(255),
         END OF it_file.
  DATA : BEGIN OF i_split OCCURS 0,
  row(50),
  END OF i_split.
DESCRIBE TABLE it_message LINES tab_lines.
READ TABLE it_message INDEX tab_lines.
Internal Table Declaration
  data : it_receivers like table of SOMLRECI1 with header line."occurs 0.
  DATA : objbin LIKE SOLIX OCCURS 0 WITH HEADER LINE.
  DATA : it_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE.
  data : wa_receiver like table of SOMLRECI1 with header line.
  data : it_receiver like table of SOMLRECI1 with header line.
  DATA :   gd_doc_data LIKE sodocchgi1 OCCURS 0 WITH HEADER LINE.
  REFRESH : objbin, it_packing_list, it_receivers, wa_receiver.
  CLEAR   : objbin, it_packing_list, wa_receiver, it_receivers.
gd_doc_data-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( it_message ).
gd_doc_data-obj_langu = sy-langu.
gd_doc_data-obj_name = 'SENDFILE'.
gd_doc_data-obj_descr = v_subject.
gd_doc_data-sensitivty = 'O'.
APPEND GD_DOC_DATA.
Appending The Internal Table it_packing_list
  it_packing_list-head_start = 1.
  it_packing_list-head_num = 0.
  it_packing_list-body_start = 1.
  it_packing_list-doc_type = 'RAW'.
  it_packing_list-body_num = tab_lines.
  APPEND it_packing_list.
  move i_bin_data to t_v_bin_data.
********Add By Anuj
  APPEND t_v_bin_data.
********End Add By Anuj
  LOOP AT t_v_bin_data.
    MOVE t_v_bin_data TO objbin-line.
    APPEND objbin.
  ENDLOOP.
  CLEAR it_packing_list.
  DESCRIBE TABLE objbin LINES tab_lines.
  it_packing_list-transf_bin = 'X'.
  it_packing_list-head_start = 1.
  it_packing_list-head_num = 1.
  it_packing_list-body_start = 1.
  it_packing_list-doc_type = 'PDF'.
  it_packing_list-body_num = tab_lines.
  it_packing_list-doc_size = tab_lines * 255.
  APPEND it_packing_list.
  wa_receiver-receiver = '[email protected]'.
  wa_receiver-rec_type = 'U'.
  wa_receiver-com_type = 'INT'.
  APPEND wa_receiver.
  move wa_receiver[] to it_receiver[].
  append it_receiver.
*Appending The Internal Table it_receivers
wa_receiver-receiver = '[email protected]'.
wa_receiver-rec_type = 'U'.
wa_receiver-com_type = 'INT'.
APPEND wa_receiver.
move wa_receiver[] to it_receiver[].
append it_receiver.
wa_receiver-receiver = '[email protected]'.
wa_receiver-rec_type = 'U'.
wa_receiver-com_type = 'INT'.
APPEND wa_receiver.
move wa_receiver[] to it_receiver[].
append it_receiver.
wa_receiver-receiver = '[email protected]'.
wa_receiver-rec_type = 'U'.
wa_receiver-com_type = 'INT'.
APPEND wa_receiver.
move wa_receiver[] to it_receiver[].
append it_receiver.
wa_receiver-receiver = '[email protected]'.
wa_receiver-rec_type = 'U'.
wa_receiver-com_type = 'INT'.
APPEND wa_receiver.
wa_receiver-receiver = '[email protected]'.
wa_receiver-rec_type = 'U'.
wa_receiver-com_type = 'INT'.
APPEND wa_receiver.
move wa_receiver to it_receiver.
append it_receiver.
  Move wa_receiver[] to it_receivers[].
Clear it_receivers.
  if i_OUT_PLACE_LEVEL NE 0.
loop at it_receivers into wa_receiver.
   loop at it_receivers into wa_receiver.
*Function Module To Post The Message To Externa Mail
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data              = gd_doc_data
        put_in_outbox              = 'X'
        commit_work                = 'X'
      TABLES
        packing_list               = it_packing_list
        contents_hex               = objbin
        receivers                  = it_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.
    clear wa_receiver.
   endloop.
  elseif i_OUT_PLACE_LEVEL eq 0.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data              = gd_doc_data
        put_in_outbox              = 'X'
        commit_work                = 'X'
      TABLES
        packing_list               = it_packing_list
        contents_hex               = objbin
        receivers                  = it_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.
    clear wa_receiver.
  endif.
ENDFUNCTION.
Regards
Ravindra