How to send adobe form output in mail as a attachment

Question

i am get the adobe form output
how to attach in a mail ....
Regards
Anbu B

Answer 1

my program is like this.............
  CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
    EXPORTING
      i_name                     = 'YHRIN_WELCOME'
   IMPORTING
     e_funcname                 =  lv_funcname
  gs_output-nodialog = 'X'.
  gs_output-preview = 'X'.
gs_output-getpdl = 'X'.
   gs_output-getpdf = 'X'.
   gs_output-dest = 'LP01'.
  CALL FUNCTION 'FP_JOB_OPEN'
    CHANGING
      ie_outputparams       = gs_output
  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.
DATA : gs_outputpara TYPE sfpdocparams.
DATA : ls_return TYPE fpformoutput .
gs_outputpara-langu = 'E'.
gs_outputpara-country = 'IN'.
  CALL FUNCTION lv_funcname
  EXPORTING
    /1bcdwb/docparams = gs_outputpara
    wa_data = wa_mail
    IMPORTING
      /1bcdwb/formoutput = ls_return
    EXCEPTIONS
      OTHERS = 1.
DATA lv_output TYPE sdokcntbins WITH HEADER LINE.
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = ls_return-pdf            "PDF file from function module
TABLES
binary_tab = lv_output  .
*DATA : result TYPE sfpjoboutput WITH HEADER LINE .
  CALL FUNCTION 'FP_JOB_CLOSE'
  IMPORTING
    e_result = result
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
DATA : iv_len_in LIKE sood-objlen,
       it_tline TYPE TABLE OF tline WITH HEADER LINE.
PERFORM pdf_file.
DATA:   lt_imessage TYPE STANDARD TABLE OF solisti1 WITH HEADER LINE,
        lt_iattach TYPE STANDARD TABLE OF solisti1 WITH HEADER LINE,
        lt_ipacking_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
        lt_ireceivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
        lt_iattachment LIKE solisti1 OCCURS 0 WITH HEADER LINE.
DATA  : lt_record LIKE solisti1 OCCURS 0 WITH HEADER LINE.
DATA : it_otf TYPE itcoo OCCURS 0 WITH HEADER LINE.
DATA: lv_email   TYPE somlreci1-receiver
                      VALUE 'anbu.'.
PERFORM build_xls_data .
APPEND lt_iattach.
Populate message body text
  CLEAR lt_imessage.   REFRESH lt_imessage.
  lt_imessage = 'Please find attached PDF file'.
  APPEND lt_imessage.
Send file by email as .xls speadsheet
  PERFORM send_email_with_xls TABLES lt_imessage
                                      lt_iattach
                                USING lv_email
                                      'PDF Attachment of an Employee'
                                      'PDF'
                                      'TestFileName'
                                      'Employee Detail'.
     Form  BUILD_XLS_DATA
FORM build_xls_data .
DATA :lv_buffer TYPE string.
Convert PDF from 132 to 255.
  LOOP AT it_tline.
Replacing space by ~
    TRANSLATE it_tline USING ' ~'.
    CONCATENATE lv_buffer it_tline INTO lv_buffer.
  ENDLOOP.
   replacing ~ by space
  TRANSLATE lv_buffer USING '~'.
  DO.
    lt_record = lv_buffer.
Appending 255 characters as a record
    APPEND lt_record.
    SHIFT lv_buffer LEFT BY 255 PLACES.
    IF lv_buffer IS INITIAL.
      EXIT.
    ENDIF.
  ENDDO.
  lt_iattach[] = lt_record[].
ENDFORM.
     Form  SEND_EMAIL_WITH_XLS
FORM send_email_with_xls TABLES pit_message
                                          pit_attach
                                    USING p_email
                                          p_mtitle
                                          p_format
                                          p_filename
                                          p_attdescription.
  DATA: es_xdocdata LIKE sodocchgi1,
        lv_xcnt TYPE i.
Fill the document data.
  es_xdocdata-doc_size = 1.
Populate the subject/generic message attributes
  es_xdocdata-obj_langu = sy-langu .
  es_xdocdata-obj_name  = 'SAPRPT' .
  es_xdocdata-obj_descr = p_mtitle .
Fill the document data and get size of attachment
  CLEAR es_xdocdata.
  READ TABLE lt_iattach INDEX lv_xcnt.
  es_xdocdata-doc_size =
     ( lv_xcnt - 1 ) * 255 + STRLEN( lt_iattach ).
  es_xdocdata-obj_langu  = sy-langu.
  es_xdocdata-obj_name   = 'SAPRPT'.
  es_xdocdata-obj_descr  = p_mtitle.
  CLEAR lt_iattachment.  REFRESH lt_iattachment.
  lt_iattachment[] = pit_attach[].
Describe the body of the message
  CLEAR lt_ipacking_list.  REFRESH lt_ipacking_list.
  lt_ipacking_list-transf_bin = space.
  lt_ipacking_list-head_start = 1.
  lt_ipacking_list-head_num = 0.
  lt_ipacking_list-body_start = 1.
  DESCRIBE TABLE lt_imessage LINES lt_ipacking_list-body_num.
  lt_ipacking_list-doc_type = 'RAW'.
  APPEND lt_ipacking_list.
Create attachment notification
  lt_ipacking_list-transf_bin = 'X'.
  lt_ipacking_list-head_start = 1.
  lt_ipacking_list-head_num   = 1.
  lt_ipacking_list-body_start = 1.
  DESCRIBE TABLE lt_iattachment LINES lt_ipacking_list-body_num.
  lt_ipacking_list-doc_type   =  p_format.
  lt_ipacking_list-obj_descr  =  p_attdescription.
  lt_ipacking_list-obj_name   =  p_filename.
  lt_ipacking_list-doc_size   =  lt_ipacking_list-body_num * 255.
  APPEND lt_ipacking_list.
Add the recipients email address
  CLEAR lt_ireceivers.  REFRESH lt_ireceivers.
  lt_ireceivers-receiver = p_email.
  lt_ireceivers-rec_type = 'U'.
  lt_ireceivers-com_type = 'INT'.
  lt_ireceivers-notif_del = 'X'.
  lt_ireceivers-notif_ndel = 'X'.
   APPEND lt_ireceivers.
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
       EXPORTING
            document_data              = es_xdocdata
            put_in_outbox              = 'X'
            commit_work                = 'X'
       TABLES
            packing_list               = lt_ipacking_list
           contents_bin               = lt_iattachment
             CONTENTS_HEX              = lv_output
            contents_txt               = lt_imessage
            receivers                  = lt_ireceivers
       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.
      SUBMIT rsconn01 WITH mode = 'INT'
              WITH output = '' AND RETURN.
ENDFORM.