Send mail by attaching a pdf fetching data from tables.

Question

Dear Team,
I have a requirement to send a mail by attaching a pdf.
Step1 : Getting the data fron tables based on some logic into internal tables. [DONE]
Step2 : Using this internal and making a pdf  [At present I am making an excel sheet, But client requires non editable well formatted pdf]
Step3 : Attach this PDF and send it as a mail. [At present I am sending the attched excel but want to send pdf]
Sample code used is
**  Body of the mail
WA_TEXT-LINE = 'Note : This is an autogenerated mail. Please do not reply to this mail.'.
      APPEND WA_TEXT TO TEXT.
      CLEAR WA_TEXT.
*     create document from internal table with text
      DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(
                      I_TYPE    = 'RAW'
                      I_TEXT    = TEXT
                      I_LENGTH  = '12'
                      I_SUBJECT = I_SUBJECT1 ).
**  Excel Attachemnt
***  Preparing the xcel
CONCATENATE 'SNO' 'Request' 'Data1' INTO WA_TEXT-LINE SEPARATED BY CON_TAB.
            CONCATENATE CON_CRET WA_TEXT-LINE  INTO WA_TEXT-LINE.
            APPEND WA_TEXT TO TEXT.
            CLEAR WA_TEXT.
CONCATENATE WA_SNO WA_REQUEST WA_DATA1 INTO WA_TEXT-LINE SEPARATED BY CON_TAB.
              CONCATENATE CON_CRET WA_TEXT-LINE  INTO WA_TEXT.
              APPEND WA_TEXT TO TEXT.
              CLEAR : WA_TEXT, TEMP_TYPE .
*** Attaching the excel
DATA : COUNTER TYPE I.
      DESCRIBE TABLE TEXT LINES COUNTER.
      LOOP AT TEXT INTO WA_TEXT.
        SIZE =  255 + STRLEN( WA_TEXT-LINE ) + SIZE .
      ENDLOOP.
      CALL METHOD DOCUMENT->ADD_ATTACHMENT
        EXPORTING
          I_ATTACHMENT_TYPE    = 'XLS'
          I_ATTACHMENT_SUBJECT = I_SUBJECT
          I_ATTACHMENT_SIZE    = SIZE
          I_ATT_CONTENT_TEXT   = TEXT.
** Semding Mail
   CALL METHOD SEND_REQUEST->SET_DOCUMENT( DOCUMENT ).
IF REQUESTER_MAIL IS NOT INITIAL.
*       create recipient for cc
        RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS(
          I_ADDRESS_STRING = REQUESTER_MAIL ).
*       add recipient with its respective attributes to send request
        CALL METHOD SEND_REQUEST->ADD_RECIPIENT
          EXPORTING
            I_RECIPIENT = RECIPIENT
            I_COPY      = 'X'
            I_EXPRESS   = 'X'.
      ENDIF.
SEND_REQUEST->SET_SEND_IMMEDIATELY('X').
*     ---------- send document ---------------------------------------
      CALL METHOD SEND_REQUEST->SEND(
        EXPORTING
          I_WITH_ERROR_SCREEN = 'X'
        RECEIVING
          RESULT              = SENT_TO_ALL ).
      IF SENT_TO_ALL = 'X'.
        WRITE TEXT-003.
      ENDIF.
      COMMIT WORK.
Please help me in this regard.
Thanks in advance.
Sai

Answer 1

Hi,
You can convert the data into spool and then pdf,
please go through this link in this data from an internal
table of an script or an smartform is converted into spool
and then sended into mail,
https://wiki.sdn.sap.com/wiki/display/sandbox/ConversionofSpoolRequestDataintoPDFandExcelFormatandSenditintoMail
Hope it helps
Regards
Mansi