Converting SPool information into HTML Format

Question

Hi Friends,
How to Converting SPool information into HTML Format
and send this HTML INFORMATION INTO MAIL..
can anyone send program for this issue pls.
it is an urgent issue
regards,

Answer 1

Hi Rich,
once again thanks for your kindly reply.
but i am developing below Code.. that HTMAL AATCHMENTS ARE NOT COMING IN MAIL.
PLS can you you verify the below code.
                       DATA DECLARATIONS                             *
DATA: I_LIST   LIKE ABAPLIST OCCURS 0  WITH HEADER LINE,
      VARIANT  LIKE RSVAR-VARIANT,
      DOC_CHNG  LIKE SODOCCHGI1,
       RECLIST LIKE SOMLRECI1  OCCURS 5  WITH HEADER LINE,
data:  spoolid    type tsp01-rqident.
DATA IT_MAIL LIKE TSP01 OCCURS 0 WITH HEADER LINE.
data  report_html like W3HTML  OCCURS 0 WITH HEADER LINE.
DATA: G_ICONS(32) OCCURS 10 WITH HEADER LINE.
DATA LISTOBJECT LIKE ABAPLIST OCCURS 0 WITH HEADER LINE.
DATA  sent_to_all like sonv-flag.
data : RECEIVER(30),
      spoolid    type tsp01-rqident,
       it_buffer like SOLI occurs 10 with header line.
data: list type table of  abaplist with header line.
data: htmllines type table of w3html with header line.
data: maildata   like sodocchgi1.
data: mailtxt    like solisti1 occurs 10 with header line.
data: mailrec    like somlrec90 occurs 0  with header line.
                       TABLE DECLARATIONS                            *
TABLES : TSP01.
                           SELECTION-SCREEN                          *
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN: SKIP.
PARAMETERS : RQ2NAME LIKE TSP01-RQ2NAME .
            RQIDENT like TSP01-RQIDENT.
SELECT-OPTIONS :  S_RECVR FOR RECEIVER  NO INTERVALS.
SELECTION-SCREEN: SKIP.
SELECTION-SCREEN: END OF BLOCK B1.
                           START-OF-SELECTION                        *
START-OF-SELECTION.
PERFORM SEND_TO_SPOOL.
  PERFORM GET_SPOOL_ID.
  loop at it_mail.
    PERFORM CONVERT_SPOOL_TO_PDF.
    PERFORM SEND_MAIL.
  endloop.
Save the list
  call function 'SAVE_LIST'
       tables
            listobject         = list
       exceptions
            list_index_invalid = 1
            others             = 2.
*&      Form  GET_SPOOL_ID
      Getting the Latest Spool Request Number
FORM GET_SPOOL_ID.
  SELECT *
        FROM TSP01 INTO TABLE  IT_MAIL
       and   RQIDENT    = RQIDENT.
          WHERE  RQ2NAME   =  RQ2NAME .
ENDFORM.                    " GET_SPOOL_ID
*&      Form  CONVERT_SPOOL_TO_PDF
      Converting the Spool to PDF Document
FORM CONVERT_SPOOL_TO_PDF.
*--Assigning the Spool number
WRITE :/ IT_MAIL-RQIDENT.
spoolid = IT_MAIL-RQIDENT.
*--Converting the Spool to PDF
CALL FUNCTION 'RSPO_RETURN_ABAP_SPOOLJOB'
  EXPORTING
    RQIDENT                    =  spoolid
  FIRST_LINE                 = 1
  LAST_LINE                  =
  TABLES
    BUFFER                     = it_buffer
EXCEPTIONS
  NO_SUCH_JOB                = 1
  NOT_ABAP_LIST              = 2
  JOB_CONTAINS_NO_DATA       = 3
  SELECTION_EMPTY            = 4
  NO_PERMISSION              = 5
  CAN_NOT_ACCESS             = 6
  READ_ERROR                 = 7
  OTHERS                     = 8
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LISTOBJECT = IT_BUFFER.
CALL FUNCTION 'WWW_HTML_FROM_LISTOBJECT'
EXPORTING
  REPORT_NAME         =
   TEMPLATE_NAME       = 'WEBREPORTING_REPORT'
  TABLES
    HTML                = report_html
    LISTOBJECT          = LISTOBJECT
   LISTICONS           = G_ICONS.
ENDFORM.                    " CONVERT_SPOOL_TO_PDF
FORM SEND_MAIL.
call function 'WWW_LIST_TO_HTML'
       tables
            html = htmllines.
maildata-obj_name = 'TEST'.
  maildata-obj_descr = 'Test Subject'.
  loop at htmllines.
    mailtxt = htmllines.
    append mailtxt.
  endloop.
LOOP AT S_RECVR.
reclist-receiver = S_RECVR-LOW.
reclist-rec_type = 'U'.
append reclist.
call function 'SO_NEW_DOCUMENT_SEND_API1'
       exporting
            document_data              = maildata
            document_type              = 'HTM'
            put_in_outbox              = 'X'
       tables
            object_header              = report_html "mailtxt
            object_content             = mailtxt
            receivers                  = reclist "mailrec
       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.
  if sy-subrc = 0.
write 'mail sent'.
  endif.
ENDLOOP.
regards,
venu.