Making spool, convert it into PDF and send that PDf throgh EMAIl

Question

Hi,
In my making ALV report. In that i want to make the spool  and then convert it into the pdf and send mail to the recepient.
Atul

Answer 1

Hi,
please try the following code. It works for me.
DATA : itab LIKE tline OCCURS 0 WITH HEADER LINE.
DATA : file_name TYPE string.
DATA : path LIKE pcfile-path.
DATA : extension(5) TYPE c.
DATA : name(100) TYPE c.
DATA:receiver TYPE somlreci1-receiver  ,
     p_file   LIKE rlgrap-filename.
declarations for PDF convertion
DATA:  path1       TYPE string ,
       fullpath    TYPE string.
DATA :textlines LIKE tline OCCURS 100 WITH HEADER LINE.
DATA otf LIKE itcoo OCCURS 1000 WITH HEADER LINE.
DATA it_lines LIKE tline OCCURS 100 WITH HEADER LINE.
DATA options LIKE itcpo.
DATA header LIKE thead.
DATA result     LIKE     itcpp.
DATA: bin_filesize TYPE i.
    fullpath type string.
DATA: docdata LIKE sodocchgi1,
objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,
objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,
objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objhex LIKE solix OCCURS 10 WITH HEADER LINE,
reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
DATA: tab_lines TYPE i,
doc_size TYPE i,
att_type LIKE soodk-objtp.
DATA: listobject LIKE abaplist OCCURS 1 WITH HEADER LINE.
DATA: filesize TYPE i,
      convcount TYPE i,
      cancel(1).
textlines-tdformat = '*'.
textlines-tdline    = 'Hello Hao'.
APPEND textlines.
options-tdgetotf = 'X'.
options-tdnoprev = 'X'.
CALL FUNCTION 'PRINT_TEXT'
  EXPORTING
  APPLICATION                    = 'TX'
  ARCHIVE_INDEX                  = ' '
  ARCHIVE_PARAMS                 = ' '
  DEVICE                         = 'PRINTER'
   dialog                         = ' '
    header                         = header
   OPTIONS                        = options
IMPORTING
  NEW_ARCHIVE_PARAMS             =
   RESULT                         = RESULT
  tables
    lines                          =  textlines
   otfdata                        = otf
EXCEPTIONS
  CANCELED                       = 1
  DEVICE                         = 2
  FORM                           = 3
  OPTIONS                        = 4
  UNCLOSED                       = 5
  UNKNOWN                        = 6
  FORMAT                         = 7
  TEXTFORMAT                     = 8
  COMMUNICATION                  = 9
  BAD_PAGEFORMAT_FOR_PRINT       = 10
  OTHERS                         = 11
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'CONVERT_OTF'
     EXPORTING
          format            = 'PDF'
     IMPORTING
          bin_filesize      = filesize
     TABLES
          otf               = otf
          lines             = it_lines
     EXCEPTIONS
          err_conv_not_possible = 1
          err_bad_otf           = 2.
fullpath = 'C:/foldername/test.pdf'.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    bin_filesize                  = bin_filesize
    filename                      = fullpath
    filetype                      = 'BIN'
  APPEND                        = ' '
  CODEPAGE                      = ' '
  NO_BYTEORDER_MARK             = ' '
IMPORTING
   FILELENGTH                    = c
  TABLES
    data_tab                      = it_lines
  FORMAT_TAB                    =
  EXCEPTIONS
    file_write_error              = 1
    no_batch                      = 2
    gui_refuse_filetransfer       = 3
    invalid_type                  = 4
    no_authority                  = 5
    unknown_error                 = 6.
*filename = fullpath.
CLEAR docdata.
REFRESH objpack.
CLEAR objpack.
REFRESH objhead.
REFRESH objtxt.
CLEAR objtxt.
REFRESH objbin.
CLEAR objbin.
REFRESH objhex.
CLEAR objhex.
REFRESH reclist.
CLEAR reclist.
REFRESH listobject.
CLEAR listobject.
CLEAR tab_lines.
CLEAR doc_size.
CLEAR att_type.
Set Variables
docdata-obj_name = 'Tst'.
docdata-obj_descr = 'Testing'.
reclist-receiver = give the mail id.
reclist-rec_type = 'U'.
APPEND reclist.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = fullpath
      filetype                = 'BIN'
    TABLES
      data_tab                = itab
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      OTHERS                  = 17.
  path = fullpath.
  CALL FUNCTION 'PC_SPLIT_COMPLETE_FILENAME'
  EXPORTING
  complete_filename = path
CHECK_DOS_FORMAT =
  IMPORTING
DRIVE =
  extension = extension
  name = name
NAME_WITH_EXT =
PATH =
  EXCEPTIONS
  invalid_drive = 1
  invalid_extension = 2
  invalid_name = 3
  invalid_path = 4
  OTHERS = 5
DATA : pos TYPE i.
DATA : len TYPE i.
Loop And Put Data
LOOP AT itab.
pos = 255 - len.
IF pos > 134.                         "length of pdf_table
pos = 134.
ENDIF.
objbin+len = itab(pos).
len = len + pos.
IF len = 255.                         "length of out (contents_bin)
APPEND objbin.
CLEAR: objbin, len.
IF pos < 134.
objbin = itab+pos.
len = 134 - pos.
ENDIF.
ENDIF.
ENDLOOP.
IF len > 0.
APPEND objbin.
ENDIF.
Packing Info For Text Data
DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'TXT'.
APPEND objpack.
Packing Info Attachment
name = extension.
DESCRIBE TABLE objbin LINES tab_lines.
READ TABLE objbin INDEX tab_lines.
objpack-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objbin ).
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = name.
objpack-obj_name = 'ATTACHMENT'.
objpack-obj_descr = name.
APPEND objpack.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = docdata
put_in_outbox = 'X'
commit_work = 'X' "used from rel. 6.10
TABLES
packing_list = objpack
object_header = objhead
contents_bin = objbin
contents_txt = objtxt
receivers = reclist
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.
MESSAGE ID 'SO' TYPE 'S' NUMBER '023'
WITH docdata-obj_name.
ENDIF.
Keerthi