Formating the output using SO_NEW_DOCUMENT_SEND_API1

Question

Hi ,
I am using the FM 'SO_NEW_DOCUMENT_SEND_API1' for sending data in an internal table as an email . I am wondering whether it will be possible to to send it in the table format with the field names intact. Currently i am able to send the mail but without the table field names . Please help
Regards,
Tashi

Answer 1

hello gurus,
please check this below program.
TABLES : ADR6.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : SPOOLNO TYPE TSP01-RQIDENT OBLIGATORY.
SELECT-OPTIONS :  MAILS FOR ADR6-SMTP_ADDR DEFAULT 'xyz.com' OBLIGATORY NO INTERVALS.
SELECTION-SCREEN END OF BLOCK B1.
DATA SEND_REQUEST  TYPE REF TO CL_BCS.
DATA DOCUMENT      TYPE REF TO CL_DOCUMENT_BCS.
DATA RECIPIENT     TYPE REF TO IF_RECIPIENT_BCS.
DATA BCS_EXCEPTION TYPE REF TO CX_BCS.
DATA SENT_TO_ALL   TYPE OS_BOOLEAN.
DATA PDF_SIZE      TYPE SO_OBJ_LEN.
DATA PDF_CONTENT   TYPE SOLIX_TAB.
DATA PDF_XSTRING   TYPE XSTRING.
DATA MAILTO TYPE AD_SMTPADR.
START-OF-SELECTION.
  PERFORM CREATE_PDF.
  PERFORM SEND.
*&      Form  send
FORM SEND.
  TRY.
    -------- create persistent send request ------------------------
      SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).
    -------- create and set document -------------------------------
      PDF_CONTENT = CL_DOCUMENT_BCS=>XSTRING_TO_SOLIX( PDF_XSTRING ).
      DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(
            I_TYPE    = 'PDF'
            I_HEX     = PDF_CONTENT
            I_LENGTH  = PDF_SIZE
            I_SUBJECT = 'sending pdf as email' ).           "#EC NOTEXT
    add document object to send request
      SEND_REQUEST->SET_DOCUMENT( DOCUMENT ).
    LOOP AT MAILS. " for sending multiple mails we can use this logic
        MAILTO = MAILS-LOW.
    --------- add recipient (e-mail address) -----------------------
    create recipient object
        RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( MAILTO ).
    add recipient object to send request
      SEND_REQUEST->ADD_RECIPIENT( RECIPIENT ).
  ENDLOOP.
    ---------- send document ---------------------------------------
      SENT_TO_ALL = SEND_REQUEST->SEND( I_WITH_ERROR_SCREEN = 'X' ).
      COMMIT WORK.
      IF SENT_TO_ALL IS INITIAL.
        MESSAGE I500(SBCOMS) WITH MAILTO.
      ELSE.
        MESSAGE S022(SO).
      ENDIF.
  ------------ exception handling ----------------------------------
  replace this rudimentary exception handling with your own one !!!
    CATCH CX_BCS INTO BCS_EXCEPTION.
      MESSAGE I865(SO) WITH BCS_EXCEPTION->ERROR_TYPE.
  ENDTRY.
ENDFORM.                    "send
*&      Form  create_pdf
Create PDF Content
1) get attributes of spool request
2) convert spool request to PDF dependent on document type
FORM CREATE_PDF.
  DATA RQ       TYPE TSP01.
  DATA BIN_SIZE TYPE I.
  DATA DUMMY    TYPE TABLE OF RSPOATTR.
  ------------ get attributes of spool request ---------------------
  CALL FUNCTION 'RSPO_GET_ATTRIBUTES_SPOOLJOB'
    EXPORTING
      RQIDENT     = SPOOLNO
    IMPORTING
      RQ          = RQ
    TABLES
      ATTRIBUTES  = DUMMY
    EXCEPTIONS
      NO_SUCH_JOB = 1
      OTHERS      = 2.
  IF SY-SUBRC <> 0.
    MESSAGE E126(PO) WITH SPOOLNO.
  ENDIF.
  --- convert spool request into PDF, dependent on document type ---
  IF RQ-RQDOCTYPE = 'OTF' OR RQ-RQDOCTYPE = 'SMART'.
    CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
      EXPORTING
        SRC_SPOOLID              = SPOOLNO
        NO_DIALOG                = 'X'
        PDF_DESTINATION          = 'X'
        NO_BACKGROUND            = 'X'
      IMPORTING
        PDF_BYTECOUNT            = BIN_SIZE
        BIN_FILE                 = PDF_XSTRING
      EXCEPTIONS
        ERR_NO_OTF_SPOOLJOB      = 1
        ERR_NO_SPOOLJOB          = 2
        ERR_NO_PERMISSION        = 3
        ERR_CONV_NOT_POSSIBLE    = 4
        ERR_BAD_DSTDEVICE        = 5
        USER_CANCELLED           = 6
        ERR_SPOOLERROR           = 7
        ERR_TEMSEERROR           = 8
        ERR_BTCJOB_OPEN_FAILED   = 9
        ERR_BTCJOB_SUBMIT_FAILED = 10
        ERR_BTCJOB_CLOSE_FAILED  = 11
        OTHERS                   = 12.
    IF SY-SUBRC <> 0.
      MESSAGE E712(PO) WITH SY-SUBRC 'CONVERT_OTFSPOOLJOB_2_PDF'.
    ENDIF.
  ELSEIF RQ-RQDOCTYPE = 'LIST'.
    CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
      EXPORTING
        SRC_SPOOLID              = SPOOLNO
        NO_DIALOG                = 'X'
        PDF_DESTINATION          = 'X'
        NO_BACKGROUND            = 'X'
      IMPORTING
        PDF_BYTECOUNT            = BIN_SIZE
        BIN_FILE                 = PDF_XSTRING
      EXCEPTIONS
        ERR_NO_ABAP_SPOOLJOB     = 1
        ERR_NO_SPOOLJOB          = 2
        ERR_NO_PERMISSION        = 3
        ERR_CONV_NOT_POSSIBLE    = 4
        ERR_BAD_DESTDEVICE       = 5
        USER_CANCELLED           = 6
        ERR_SPOOLERROR           = 7
        ERR_TEMSEERROR           = 8
        ERR_BTCJOB_OPEN_FAILED   = 9
        ERR_BTCJOB_SUBMIT_FAILED = 10
        ERR_BTCJOB_CLOSE_FAILED  = 11
        OTHERS                   = 12.
    IF SY-SUBRC <> 0.
      MESSAGE E712(PO) WITH SY-SUBRC 'CONVERT_ABAPSPOOLJOB_2_PDF'.
    ENDIF.
  ELSE.
    MESSAGE E789(PO) WITH RQ-RQDOCTYPE.
  ENDIF.
  PDF_SIZE = BIN_SIZE.
ENDFORM.                    "create_pdf