Attachment of a PDF through Adobe Offline Form

Question

Hi Experts!!!
How can we mail a pdf file via mail as an attachment?

Answer 1

Hi,
Check this code.
REPORT  zsa_adob.
DATA: form TYPE fpwbformname,
          fm_name TYPE rs38l_fnam,
          interface_type TYPE fpinterfacetype.
DATA: fp_outputparams TYPE sfpoutputparams.
DATA : fp_docparams TYPE sfpdocparams,
           fp_result TYPE fpformoutput,
           wa_fpformoutput TYPE fpformoutput,
           pdf               TYPE fpformoutput-pdf,
           pdf_data          TYPE solix_tab,
           attachment  TYPE solix_tab,
           lv_email TYPE adr6-smtp_addr.
DATA : bcs_exception TYPE REF TO cx_bcs.
DATA : bookings  TYPE TABLE OF sbook  .
SELECT * FROM sbook INTO TABLE bookings  UP TO 5 ROWS  WHERE
             carrid  = 'LH'  .
ZSATEST is the adobe form designed in SFP tcode
CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
  EXPORTING
    i_name           = 'ZSATEST'
  IMPORTING
    e_funcname       = fm_name
    e_interface_type = interface_type.
CALL FUNCTION 'FP_JOB_OPEN'
  CHANGING
    ie_outputparams = fp_outputparams
  EXCEPTIONS
    cancel          = 1
    usage_error     = 2
    system_error    = 3
    internal_error  = 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.
fp_docparams-langu = 'E'.
CALL FUNCTION fm_name
EXPORTING
   /1bcdwb/docparams =  fp_docparams
   booking                   =  bookings
IMPORTING
   /1bcdwb/formoutput   =  fp_result
EXCEPTIONS
   USAGE_ERROR       = 1
   SYSTEM_ERROR     = 2
   INTERNAL_ERROR   = 3
   OTHERS                   = 4
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
    /1bcdwb/docparams  = fp_docparams
    par1                         = 'SR'
  IMPORTING
    /1bcdwb/formoutput = fp_result
  EXCEPTIONS
    usage_error        = 1
    system_error      = 2
    internal_error      = 3
    OTHERS            = 4.
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 'FP_JOB_CLOSE'
IMPORTING
  E_RESULT             =
EXCEPTIONS
  USAGE_ERROR          = 1
  SYSTEM_ERROR         = 2
  INTERNAL_ERROR       = 3
  OTHERS               = 4
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
pdf = wa_fpformoutput-pdf.
pdf_data = cl_document_bcs=>xstring_to_solix( ip_xstring = pdf ).
attachment = pdf_data.
TRY.
    DATA : l_subject TYPE so_obj_des,
               l_mail_text TYPE bcsy_text,
               l_mail_text_row TYPE soli.
    l_subject = 'RFQ'.
    CONCATENATE 'Please check the'  ' Attached file'  INTO l_mail_text_row.
    APPEND l_mail_text_row TO l_mail_text.
    DATA : document TYPE REF TO cl_document_bcs,
               num_rows TYPE i,
               text_length TYPE so_obj_len.
    DESCRIBE TABLE l_mail_text LINES num_rows.
    num_rows = num_rows * 255.
    MOVE num_rows TO text_length.
    TRY.
        CALL METHOD cl_document_bcs=>create_document
          EXPORTING
            i_type        = 'RAW'
            i_subject     = l_subject
            i_length      = text_length
   I_LANGUAGE    = SPACE
   I_IMPORTANCE  =
   I_SENSITIVITY =
            i_text        = l_mail_text
   I_HEX         =
   I_HEADER      =
   I_SENDER      =
          RECEIVING
            result        = document
      CATCH cx_document_bcs .
    ENDTRY.
    DATA : attcdoctype TYPE soodk-objtp,
          atttitle TYPE sood-objdes,
          attsize TYPE sood-objlen,
          pdftab TYPE solix_tab.
    attcdoctype = 'pdf'.
    atttitle = 'RFQ Details'.
   attsize = XSTRLEN( pdf ).
   pdftab = cl_document_bcs=>xstring_to_solix( ip_xstring = pdf ).
    document->add_attachment( EXPORTING i_attachment_type = attcdoctype
                                        i_attachment_subject = atttitle
                                        i_attachment_size = attsize
                                        i_attachment_language = sy-langu
                                        i_att_content_hex = attachment ).
    DATA : send_request TYPE REF TO cl_bcs.
    send_request = cl_bcs=>create_persistent( ).
    send_request->set_document( document ).
    DATA : sender TYPE REF TO cl_sapuser_bcs.
    sender = cl_sapuser_bcs=>create( 'SUSER' ).
    TRY.
        CALL METHOD send_request->set_sender
          EXPORTING
            i_sender = sender.
      CATCH cx_send_req_bcs .
    ENDTRY.
    DATA : recipent TYPE REF TO if_recipient_bcs.
    recipent = cl_cam_address_bcs=>create_internet_address( lv_email ).
    send_request->add_recipient( EXPORTING i_recipient = recipent ).
    send_request->set_send_immediately( 'X' ).
    send_request->send( ).
     COMMIT WORK.
     WRITE : 'Email containing has been sent successfully'
  CATCH cx_bcs INTO bcs_exception.
ENDTRY.