Problem sending .pdf with email in ECC 6.0

Question

hi there,
we are upgrading from r/3 4.6.c to ECC 6.0.
i have the following problem: in many z-ababs we convert spool-files to pdf-files and send them with function SO_NEW_DOCUMENT_ATT_SEND_API1 via email.
well, this is working okay, BUT: the ending '.pdf' is missing in the filename:
in R/3 4.6.c it looks like the following:
zfl_reporting.pdf
Now it looks like this:
zfl_reporting
So the file is not recognized as pdf-file. You have to add a .pdf manually to open it.
We can't do this as we send the pdf-files thousands of times to our customers.
Any ideas ?
reg, Martin

Answer 1

hi
Posted below is the sample code..
find the bolded ones...
REPORT ZMAIL_PDF NO STANDARD PAGE HEADING.
Data for mailing purpose
DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
DATA: OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
DATA: OBJBIN  LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: OBJTXT  LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
DATA: DOC_CHNG  LIKE SODOCCHGI1.
DATA: TAB_LINES LIKE SY-TABIX.
Spool table
TABLES : TSP01.
Data required for creating spool
DATA: MSTR_PRINT_PARMS LIKE PRI_PARAMS VALUE 'LP01',
      MC_VALID(1),
      MI_BYTECOUNT TYPE I,
      MI_LENGTH    TYPE I,
      MI_RQIDENT   LIKE TSP01-RQIDENT,
      REP          LIKE PRI_PARAMS-PLIST.
Internal table for capturing data into PDF format
DATA: MTAB_PDF LIKE TLINE OCCURS 0 WITH HEADER LINE.
File name
DATA : MC_FILENAME LIKE RLGRAP-FILENAME.
SELECTION SCREEN
PARAMETERS : P_REPID LIKE SY-REPID,
             P_LINSZ LIKE SY-LINSZ DEFAULT 132,
             P_PAART LIKE SY-PAART DEFAULT 'X_65_132'.
START-OF-SELECTION.
<b>  CONCATENATE 'C:\'
               P_REPID
              '.PDF'
         INTO  MC_FILENAME.</b>
  MOVE SY-REPID TO REP.
Get print parameters
  PERFORM GET_PRINT_PARAMS.
Send output of the required program to Spool
  SUBMIT (P_REPID) TO SAP-SPOOL WITHOUT SPOOL DYNPRO
                      SPOOL PARAMETERS MSTR_PRINT_PARMS
                      VIA SELECTION-SCREEN AND RETURN.
Get the the spool number that is just created
  PERFORM GET_SPOOL_NUMBER USING    SY-REPID SY-UNAME
                           CHANGING MI_RQIDENT.
Convert Spool to PDF & download the same
  PERFORM SPOOL_2_PDF.
Upload downloaded PDF file for mailing
  PERFORM UPLOAD_PDF_FILE.
Send mail with PDF attachment
  PERFORM SEND_MAIL.
      FORM get_spool_number *
      Get the most recent spool created by user/report              *
form get_spool_number using    f_repid
                               f_uname
                      changing f_rqident.
  data:
    lc_rq2name like tsp01-rq2name.
  concatenate f_repid
              f_uname
         into lc_rq2name separated by '_'.
  select * from tsp01 where  rq2name = sy-repid
    order by rqcretime descending.
    f_rqident = tsp01-rqident.
    exit.
  endselect.
  if sy-subrc ne 0.
    clear f_rqident.
  endif.
endform." get_spool_number
*&      Form  send_mail
      text
-->  p1        text
<--  p2        text
form send_mail.
Creation of the document to be sent
  DOC_CHNG-OBJ_NAME = 'TEST'.
  DOC_CHNG-OBJ_DESCR = 'TEST MAIL WITH PDF ATTACHMENT'. "mail subject
  OBJTXT = 'Test mail with PDF attachment'.
  APPEND OBJTXT.
  CLEAR OBJTXT.
  APPEND OBJTXT.
  APPEND OBJTXT.
  OBJTXT = 'Please double click the attachment to verify'.
  APPEND OBJTXT.
  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
  READ TABLE OBJTXT INDEX TAB_LINES.
  DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
Creation of the entry for the compressed document
  CLEAR OBJPACK-TRANSF_BIN.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM   = 0.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM   = TAB_LINES.
  OBJPACK-DOC_TYPE   = 'RAW'.
  APPEND OBJPACK.
  DESCRIBE TABLE OBJBIN LINES TAB_LINES.
  OBJHEAD = 'Sample PDF attachement'. "
  APPEND OBJHEAD.
Creation of the entry for the compressed attachment
  OBJPACK-TRANSF_BIN = 'X'.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM   = 1.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM   = TAB_LINES.
<b>  OBJPACK-DOC_TYPE   = 'PDF'.</b>
  OBJPACK-OBJ_NAME   = 'TEST'.
  OBJPACK-OBJ_DESCR  = 'Test.PDF'.
  OBJPACK-DOC_SIZE   = TAB_LINES * 255.
  APPEND OBJPACK.
Completing the recipient list
For sending mail to Internet Address
  RECLIST-RECEIVER = '[email protected].
  RECLIST-REC_TYPE = 'U'.
  APPEND RECLIST.
Sending the document
       CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
            EXPORTING
                 DOCUMENT_DATA = DOC_CHNG
                 PUT_IN_OUTBOX = 'X'
            TABLES
                 PACKING_LIST  = OBJPACK
                 OBJECT_HEADER = OBJHEAD
                 CONTENTS_BIN  = OBJBIN
                 CONTENTS_TXT  = OBJTXT
                 RECEIVERS     = RECLIST
            EXCEPTIONS
                 TOO_MANY_RECEIVERS         = 1
                 DOCUMENT_NOT_SENT          = 2
                 OPERATION_NO_AUTHORIZATION = 4
                 OTHERS                     = 99.
      CASE SY-SUBRC.
        WHEN 0.
          WRITE  :/ 'MAIL SENT....'.
        WHEN 1.
          WRITE  :/ 'TOO MANY RECEIVERS'.
        WHEN 2.
          WRITE  :/ 'DOCUMENT NOT SENT'.
        WHEN 4.
          WRITE  :/ 'NO SEND AUTHORIZATION'.
        WHEN OTHERS.
          WRITE  :/ 'ERROR OCCURED WHILE SENDING MAIL'.
      ENDCASE.
endform.                    " send_mail
*&      Form  GET_PRINT_PARAMS
FORM GET_PRINT_PARAMS.
  call function 'GET_PRINT_PARAMETERS'
  exporting destination           = 'LP01'
            copies                = 1
            list_name             = rep
            list_text             = 'LIST ..... TO SAP-SPOOL'
            immediately           = 'X'
            release               = 'X'
            new_list_id           = 'X'
            expiration            = 1
            line_size             = 132
            line_count            = 65
            layout                = 'X_PAPER'
            sap_cover_page        = 'X'
            cover_page            = 'X'
            receiver              = sy-uname
            department            = 'System'
            no_dialog             = 'X'
  importing out_parameters        =  mstr_print_parms
            valid                 = mc_valid.
ENDFORM.                    " GET_PRINT_PARAMS
*&      Form  SPOOL_2_PDF
FORM SPOOL_2_PDF.
    call function 'CONVERT_ABAPSPOOLJOB_2_PDF'
    exporting
      src_spoolid      = mi_rqident
      no_dialog        = space
      dst_device       = mstr_print_parms-pdest
    importing
      pdf_bytecount    = mi_bytecount
    tables
      pdf              = mtab_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.
     call function 'WS_DOWNLOAD'
       exporting
         bin_filesize                  =  mi_bytecount
<b>        filename                      =  mc_filename</b>
         filetype                      = 'BIN'
       tables
         data_tab                      =  mtab_pdf
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
ENDFORM.                    " SPOOL_2_PDF
*&      Form  UPLOAD_PDF_FILE
FORM UPLOAD_PDF_FILE.
  call function 'WS_UPLOAD'
    exporting
<b>      filename                      = mc_filename</b>
      filetype                      = 'BIN'
    tables
      data_tab                      = OBJBIN
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
ENDFORM.                    " UPLOAD_PDF_FILE
**reward if helpful
regards,
madhumitha