ALV to PDF to Email

Question

Can someone tell me how we can convert an ALV report to PDF and send it as an attachment to the external emial.
Please help me.
Thanks,
Sneha Singh.

Answer 1

I wrote a program that you can pass an ALV report and a variant and it will send the results as a PDF or HTML attachment.  Here it is...
REPORT  ZEMAILREPORT.
DATA: BEGIN OF MAIL_TO OCCURS 0,
        SMTP_ADDR LIKE SOLI-LINE.
DATA: END OF MAIL_TO.
DATA: I_ABAPLIST  LIKE ABAPLIST OCCURS 0 WITH HEADER LINE.
DATA: I_CONTENT_BIN LIKE W3HTML OCCURS 0 WITH HEADER LINE.
DATA: W_DOC_DATA LIKE SODOCCHGI1.
DATA: W_SENT_TO_ALL LIKE SONV-FLAG.
DATA: W_LINE_SIZE TYPE I.
DATA: I_PACKING_LIST LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
      I_ATTACHMENT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
      I_RECEIVERS LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE.
DATA: W_PDF_BYTECOUNT TYPE I.
DATA: W_SPOOL_ID LIKE TSP01-RQIDENT.
DATA: W_BUFFER TYPE STRING.
*DATA: SPOOL PARAMETERS pri_params.
DATA: W_PRINT_PARAMETERS TYPE PRI_PARAMS,
      W_VALID_FLAG(1) TYPE C,
      W_LIST_TEXT LIKE PRI_PARAMS-PRTXT.
DATA: I_PDF LIKE TLINE OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002.
PARAMETERS: P_REPRT LIKE RS38M-PROGRAMM OBLIGATORY.
PARAMETERS: P_VARI LIKE RSVAR-VARIANT OBLIGATORY.
PARAMETERS: P_TITLE LIKE SODOCCHGI1-OBJ_DESCR OBLIGATORY.
PARAMETERS: P_FILNAM LIKE SODOCCHGI1-OBJ_DESCR OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
  S_EMAIL FOR MAIL_TO-SMTP_ADDR OBLIGATORY NO INTERVALS.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
PARAMETERS: P_HTML RADIOBUTTON GROUP GF DEFAULT 'X',
            P_PDF RADIOBUTTON GROUP GF.
SELECTION-SCREEN END OF BLOCK B3.
START-OF-SELECTION.
  IF P_HTML = 'X'.
    SUBMIT (P_REPRT) USING SELECTION-SET P_VARI
            EXPORTING LIST TO MEMORY AND RETURN.
    CALL FUNCTION 'LIST_FROM_MEMORY'
      TABLES
        LISTOBJECT = I_ABAPLIST
      EXCEPTIONS
        NOT_FOUND  = 1
        OTHERS     = 2.
    IF SY-SUBRC <> 0.
      MESSAGE I000(OO) WITH 'Output for report'
                            P_REPRT
                            'not found'.
      EXIT.
    ENDIF.
    CALL FUNCTION 'WWW_HTML_FROM_LISTOBJECT'
EXPORTING
  REPORT_NAME         =
  TEMPLATE_NAME       = 'WEBREPORTING_REPORT'
      TABLES
        HTML                = I_CONTENT_BIN
        LISTOBJECT          = I_ABAPLIST.
  ELSE.
    W_LIST_TEXT = P_TITLE.
    CALL FUNCTION 'GET_PRINT_PARAMETERS'
      EXPORTING
        ARCHIVE_MODE           = '1'
        NO_DIALOG              = 'X'
        DESTINATION            = SPACE
        IMMEDIATELY            = 'X'
        LIST_TEXT              = W_LIST_TEXT
      IMPORTING
        OUT_PARAMETERS         = W_PRINT_PARAMETERS
         OUT_ARCHIVE_PARAMETERS = W_ARCHI_PARAMETERS
        VALID                  = W_VALID_FLAG
      EXCEPTIONS
        INVALID_PRINT_PARAMS   = 2
        OTHERS                 = 4.
    PERFORM DETERMINE_SPOOL_NAME CHANGING W_PRINT_PARAMETERS-PLIST.
    IF SY-SUBRC <> 0.
      MESSAGE E000(OO) WITH 'Can not determine print'
                            'parameters needed for'
                            'PDF conversion'.
    ENDIF.
    SUBMIT (P_REPRT) USING SELECTION-SET P_VARI
            TO SAP-SPOOL
            SPOOL PARAMETERS W_PRINT_PARAMETERS
            WITHOUT SPOOL DYNPRO
           COVER TEXT P_TITLE
           IMMEDIATELY SPACE
           KEEP IN SPOOL ' '
            AND RETURN.
    COMMIT WORK AND WAIT.
    PERFORM GET_SPOOL_NUMBER USING W_PRINT_PARAMETERS-PLIST
                          CHANGING W_SPOOL_ID.
    IF W_SPOOL_ID IS INITIAL.
      MESSAGE I000(OO) WITH 'Output for report'
                            P_REPRT
                            'not found'.
      EXIT.
    ELSE.
      CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
        EXPORTING
          SRC_SPOOLID                    = W_SPOOL_ID
      NO_DIALOG                      =
      DST_DEVICE                     =
      PDF_DESTINATION                =
      IMPORTING
        PDF_BYTECOUNT                  = W_PDF_BYTECOUNT
      PDF_SPOOLID                    =
      LIST_PAGECOUNT                 =
      BTC_JOBNAME                    =
      BTC_JOBCOUNT                   =
       TABLES
         PDF                            = I_PDF
       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 ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ELSE.
*CALL FUNCTION 'SX_TABLE_LINE_WIDTH_CHANGE'
      EXPORTING
        line_width_src              = 134
        line_width_dst              = 255
      TABLES
        content_in                  = i_pdf
        content_out                 = l_attachment
      EXCEPTIONS
        err_line_width_src_too_long = 1
        err_line_width_dst_too_long = 2
        err_conv_failed             = 3
        OTHERS                      = 4.
    IF sy-subrc NE 0.
      MESSAGE s000(0k) WITH 'Conversion Failed'.
      EXIT.
    ENDIF.
Transfer the 132-long strings to 255-long strings
        LOOP AT I_PDF.
          TRANSLATE I_PDF USING ' ~'.
          CONCATENATE W_BUFFER I_PDF INTO W_BUFFER.
        ENDLOOP.
        TRANSLATE W_BUFFER USING '~ '.
        DO.
          I_CONTENT_BIN = W_BUFFER.
          APPEND I_CONTENT_BIN.
          SHIFT W_BUFFER LEFT BY 255 PLACES.
          IF W_BUFFER IS INITIAL.
            EXIT.
          ENDIF.
        ENDDO.
      ENDIF.
    ENDIF.
  ENDIF.
  W_DOC_DATA-OBJ_NAME = 'List'.
  W_DOC_DATA-OBJ_DESCR = P_TITLE.
  W_DOC_DATA-SENSITIVTY = 'O'.
  W_DOC_DATA-OBJ_LANGU = SY-LANGU.
Add the recipient(s) email address
  REFRESH I_RECEIVERS.
  LOOP AT S_EMAIL.
    CLEAR I_RECEIVERS.
    I_RECEIVERS-RECEIVER   = S_EMAIL-LOW.
    I_RECEIVERS-REC_TYPE   = 'U'.
    I_RECEIVERS-COM_TYPE   = 'INT'.
    I_RECEIVERS-NOTIF_DEL  = 'X'.
    I_RECEIVERS-NOTIF_NDEL = 'X'.
    APPEND I_RECEIVERS.
  ENDLOOP.
  CLEAR I_PACKING_LIST.
  REFRESH I_PACKING_LIST.
  I_PACKING_LIST-TRANSF_BIN = 'X'.
  I_PACKING_LIST-HEAD_START = 0.
  I_PACKING_LIST-HEAD_NUM = 0.
  I_PACKING_LIST-BODY_START = 0.
  I_PACKING_LIST-BODY_NUM = 0.
  I_PACKING_LIST-DOC_TYPE = 'RAW'.
  I_PACKING_LIST-OBJ_DESCR = P_FILNAM.
  APPEND I_PACKING_LIST.
  I_PACKING_LIST-TRANSF_BIN = 'X'.
  I_PACKING_LIST-HEAD_START = 0.
  I_PACKING_LIST-HEAD_NUM = 0.
  I_PACKING_LIST-BODY_START = 1.
  IF P_HTML = 'X'.
    I_PACKING_LIST-DOC_TYPE = 'HTM'.
  ELSE.
    I_PACKING_LIST-DOC_TYPE = 'PDF'.
  ENDIF.
  DESCRIBE TABLE I_CONTENT_BIN LINES I_PACKING_LIST-BODY_NUM.
  CLASS CL_ABAP_CHAR_UTILITIES DEFINITION LOAD.
  IF CL_ABAP_CHAR_UTILITIES=>CHARSIZE > 1. " system is Unicode
    W_LINE_SIZE = 510.
  ELSE.
    W_LINE_SIZE = 255.
  ENDIF.
  READ TABLE  I_CONTENT_BIN INDEX I_PACKING_LIST-BODY_NUM.
  IF P_HTML = 'X'.
    I_PACKING_LIST-DOC_SIZE = ( I_PACKING_LIST-BODY_NUM - 1 ) * W_LINE_SIZE
                     + STRLEN( I_CONTENT_BIN ).
  ELSE.
    I_PACKING_LIST-DOC_SIZE = W_PDF_BYTECOUNT.
  ENDIF.
  APPEND I_PACKING_LIST.
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
   EXPORTING
     DOCUMENT_DATA              = W_DOC_DATA
      PUT_IN_OUTBOX              = 'X'
     COMMIT_WORK                = 'X'
   IMPORTING
     SENT_TO_ALL                = W_SENT_TO_ALL
   TABLES
     PACKING_LIST               = I_PACKING_LIST
     CONTENTS_BIN               = I_CONTENT_BIN
     contents_txt               = i_attachment
     RECEIVERS                  = I_RECEIVERS
   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.
*&      Form  get_spool_number
      text
     -->P_REPID    text
     -->P_UNAME    text
     -->P_RQIDENT  text
FORM GET_SPOOL_NUMBER USING P_SPOOL_NAME
                CHANGING P_RQIDENT.
  DATA: W_TSP01 LIKE TSP01.
  CLEAR: P_RQIDENT.
  SELECT * INTO W_TSP01
         FROM TSP01 UP TO 1 ROWS
    WHERE  RQ2NAME = P_SPOOL_NAME
  ORDER BY RQCRETIME DESCENDING.
  ENDSELECT.
  IF SY-SUBRC = 0.
    P_RQIDENT = W_TSP01-RQIDENT.
  ENDIF.
ENDFORM." get_spool_number
*&      Form  DETERMINE_SPOOL_NAME
      text
     <--P_W_SPOOL_NAME  text
FORM DETERMINE_SPOOL_NAME  CHANGING P_SPOOL_NAME.
  CLEAR: P_SPOOL_NAME.
  CALL FUNCTION 'NUMBER_GET_NEXT'
    EXPORTING
      NR_RANGE_NR                   = '01'
      OBJECT                        = 'ZSPOOLNAME'
    QUANTITY                      = '1'
    SUBOBJECT                     = ' '
    TOYEAR                        = '0000'
    IGNORE_BUFFER                 = ' '
    IMPORTING
      NUMBER                        = P_SPOOL_NAME
    QUANTITY                      =
    RETURNCODE                    =
   EXCEPTIONS
     INTERVAL_NOT_FOUND            = 1
     NUMBER_RANGE_NOT_INTERN       = 2
     OBJECT_NOT_FOUND              = 3
     QUANTITY_IS_0                 = 4
     QUANTITY_IS_NOT_1             = 5
     INTERVAL_OVERFLOW             = 6
     BUFFER_OVERFLOW               = 7
     OTHERS                        = 8
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " DETERMINE_SPOOL_NAME
*Selection-texts
*P_FILNAM     Name of attachment
*P_HTML     Html
*P_PDF     PDF
*P_REPRT     Program Name
*P_TITLE     Email Subject
*P_VARI     Variant Name
*S_EMAIL     Email address
*Text symbols
*001     Email address to send report output
*002     Report parameters
*003     Format options