Problem sending pdf file

Question

Hi all,
I need to send a sapscript via email.
I convert the spool in pdf.
If I try to download the internal table with pdf content I'm able to create correctly the pdf file on my pc.
Insted, if  I send the contet of internal table with the pdf data via email, an error occured when I try to open the attached pdf file.
regards
enzo

Answer 1

Hi,
This below code may help you in case:
  DATA WA_OBJBIN LIKE SOLISTI1.
  DESCRIBE TABLE OBJTXT LINES PDFLINES.
*-- A funtion module to convert otf to pdf format
  CALL FUNCTION 'SX_OBJECT_CONVERT_OTF_PDF'
    EXPORTING
      FORMAT_SRC            = 'OTF'
      FORMAT_DST            = 'PDF'
      DEVTYPE               = 'PRINTER'
    FUNCPARA              =
      LEN_IN                = PDFLINES
   IMPORTING
     LEN_OUT                = PDFLINES
    TABLES
      CONTENT_IN            = OBJTXT
      CONTENT_OUT           = OBJBIN
   EXCEPTIONS
     ERR_CONV_FAILED       = 1
     OTHERS                = 2
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  DESCRIBE TABLE OBJBIN LINES PDFLINES.
  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
*-- a perform to do the email
*--   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'.
  OBJPACK-DOC_SIZE = TAB_LINES * 255.
  APPEND OBJPACK.
*-- creation of the entry for the attachment
  CLEAR OBJPACK.
  OBJPACK-TRANSF_BIN = 'X'.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM = 0.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM = PDFLINES.
     objpack-objname =
  OBJPACK-OBJ_DESCR = '%PDF-FILE.PDF'.
  OBJPACK-DOC_TYPE = 'PDF'.
  OBJPACK-DOC_SIZE = PDFLINES * 255.
  APPEND OBJPACK.
*-- populating the t_receivers with mail address
READ TABLE t_adr6 INDEX 1.
  IF NOT T_ADR6[] IS INITIAL.
    LOOP AT T_ADR6.
      T_RECEIVERS-RECEIVER = T_ADR6-SMTP_ADDR.
      T_RECEIVERS-REC_TYPE = 'U'.
      APPEND T_RECEIVERS.
      CLEAR T_RECEIVERS.
    ENDLOOP.
  ENDIF.
*-- Calling a function module to send an E-mail
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA                    = DOC_DATA
       PUT_IN_OUTBOX                    = 'X'
    IMPORTING
      SENT_TO_ALL                      =
      NEW_OBJECT_ID                    =
    TABLES
      PACKING_LIST                     = OBJPACK
     OBJECT_HEADER                     = OBJHEAD
     CONTENTS_BIN                      = OBJBIN
     CONTENTS_TXT                      = OBJTXT
    contents_hex                      = objbin
      OBJECT_PARA                      =
      OBJECT_PARB                      =
        RECEIVERS                        = T_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
  It may help you.
  try to rectify the mistake that you have in your program by checking this sample code....