Mailing the sapscript thru pdf file

Question

Hi,
I want to send a sapscript thru pdf file, however, I have a problem with the parameters to set in my open_form when my DEVICE = 'MAIL' and I have to fetch the otf file in the close_form.
Can you help with the parameter I need to set up in the open form? What are the required parameters for this function?
Thanks a lot!
rgds,
Mark

Answer 1

Hi Mark Rennel Barrios  ,
        Here below is the Code for that Functionality :
REPORT ZGRESS1PRINT .
Tables: qmel,makt,qmfe.
parameters: input like QMEL-QMNUM.
    data var like makt-maktx.
DATA: BEGIN OF OPTIONS OCCURS 0.
        INCLUDE STRUCTURE ITCPO.
DATA: END OF OPTIONS.
DATA:  VAFILESIZE(10).
DATA: VAFILENAME(100) value 'test.pdf'.
DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE.
DATA: OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
DATA: OBJBIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.
DATA: OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: RECLIST LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE.
DATA: DOC_CHNG LIKE SODOCCHGI1.
DATA: TAB_LINES LIKE SY-TABIX.
DATA: IOTF LIKE ITCOO OCCURS 0 WITH HEADER LINE.
DATA: ILINES1 LIKE TLINE OCCURS 0 WITH HEADER LINE.
        OPTIONS-TDDEST = 'LP01'.
        OPTIONS-TDIMMED = 'X'.
        OPTIONS-TDNEWID = 'X'.
        OPTIONS-TDNOPREV = 'X'.
        OPTIONS-TDLIFETIME = 2.
        OPTIONS-TDGETOTF = 'X'.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
   DEVICE                            = 'PRINTER'
   DIALOG                            =  'X'
   FORM                              = 'ZGRESS1'
   OPTIONS                           =  OPTIONS
EXCEPTIONS
   CANCELED                          = 1
   DEVICE                            = 2
   FORM                              = 3
   OPTIONS                           = 4
   UNCLOSED                          = 5
   OTHERS                            = 11
IF SY-SUBRC <> 0.
Write:/ 'Error while open the form'.
ENDIF.
  CALL FUNCTION 'START_FORM'
       EXPORTING
            FORM   = 'ZGRESS1'
       EXCEPTIONS
            OTHERS = 1.
  IF SY-SUBRC <> 0.
    WRITE 'Error in start_form'.
    EXIT.
  ENDIF.
select * from qmel where qmnum = input.
select single maktx into (makt-maktx) from makt where matnr = qmel-matnr
and spras = 'EN'.
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT  = 'ITEM1'
            FUNCTION = 'SET'
            TYPE     = 'BODY'
            WINDOW   = 'MAIN'
       EXCEPTIONS
            OTHERS   = 1.
  IF SY-SUBRC <> 0.
    WRITE 'Error in write_form printing top element of main'.
    EXIT.
  ENDIF.
ENDSELECT.
select * from qmfe where qmnum = input.
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT  = 'ITEM2'
            FUNCTION = 'SET'
            TYPE     = 'BODY'
            WINDOW   = 'MAIN'
       EXCEPTIONS
            OTHERS   = 1.
  IF SY-SUBRC <> 0.
    WRITE 'Error in write_form printing top element of main'.
    EXIT.
  ENDIF.
ENDSELECT.
    CALL FUNCTION 'END_FORM'
       EXCEPTIONS
            OTHERS = 1.
  IF SY-SUBRC <> 0.
    WRITE 'Error in end_form'.
    EXIT.
  ENDIF.
  CALL FUNCTION 'CLOSE_FORM'
       TABLES
                  OTFDATA = IOTF
       EXCEPTIONS
            OTHERS = 1.
  IF SY-SUBRC <> 0.
    WRITE 'Error in close_form'.
    EXIT.
  ENDIF.
        CALL FUNCTION 'CONVERT_OTF'
            EXPORTING
                 FORMAT                = 'PDF'
            IMPORTING
                   BIN_FILESIZE          = VAFILESIZE
             TABLES
                  OTF                   = IOTF
                  LINES                 = ILINES1
            EXCEPTIONS
                 ERR_MAX_LINEWIDTH     = 1
                 ERR_FORMAT            = 2
                 ERR_CONV_NOT_POSSIBLE = 3
                 OTHERS                = 4
        IF SY-SUBRC <> 0.
        ENDIF.
        DOC_CHNG-OBJ_NAME = 'SAPSACRIPTMAIL'.
        DOC_CHNG-OBJ_DESCR = 'SAP_SACRIPT_MAIL.'.
        OBJTXT-LINE = 'This is a TestMail for Greetson'.
        APPEND OBJTXT.
        DESCRIBE TABLE OBJTXT LINES TAB_LINES.
        READ TABLE OBJTXT INDEX TAB_LINES.
        DOC_CHNG-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 = 'RAW'.
        APPEND OBJPACK.
        CALL FUNCTION 'QCE1_CONVERT'
             TABLES
                  T_SOURCE_TAB         = ILINES1
                  T_TARGET_TAB         = OBJBIN
             EXCEPTIONS
                  CONVERT_NOT_POSSIBLE = 1
                  OTHERS               = 2.
        IF SY-SUBRC <> 0.
        ENDIF.
        DESCRIBE TABLE OBJBIN LINES TAB_LINES.
        OBJPACK-TRANSF_BIN = 'X'.
        OBJPACK-HEAD_START = 1.
        OBJPACK-HEAD_NUM = 1.
        OBJPACK-BODY_START = 1.
        OBJPACK-BODY_NUM = TAB_LINES.
        OBJPACK-DOC_TYPE = 'PDF'.
        OBJPACK-OBJ_NAME = 'test'.
        OBJPACK-OBJ_DESCR = VAFILENAME.
        OBJPACK-DOC_SIZE = TAB_LINES * 255.
        APPEND OBJPACK.
        OBJHEAD = 'test.PDF'.
        APPEND OBJHEAD.
        CLEAR OBJHEAD.
      VAFILENAME = 'Greetson'.
Creating the recipient list(ERS).
          RECLIST-RECEIVER = '<e-mail address>'.
          RECLIST-REC_TYPE = 'U'.
          APPEND RECLIST.
          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.
         IF SY-SUBRC <> 0.
        ENDIF.
        REFRESH RECLIST.
Hope it helps.
Thanks,
Greetson