Sapscript and OPEN_FORM

Question

Hallo,
i use the FM OPEN_FORM to send some Sapscriptformular
per email. This works correct. The Formular is an Attachment in PDF. This is also correct.
Now i want to change the email-Header and the email-Text
to give the Receiver some Information.
Is there any Parameter in OPEN_FORM to do this, or
is there a special FM?
I hope anyone has an Idea.
Regards,
Dieter

Answer 1

Hallo,
i solve it.
Thanks for all help.
Regards Dieter
Here my Code-Extract:
REPORT ZTEST.
DATA: BEGIN OF DR_PARAM.
        INCLUDE STRUCTURE ITCPO.
DATA: END   OF DR_PARAM.
DATA: OTFDATA      LIKE SOLI     OCCURS 0 WITH HEADER LINE.
DATA: PDFDATA      LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.
DATA: PDF_FILESIZE LIKE SOOD-OBJLEN.
DATA: OBJ_PACK LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
      OBJ_HEAD LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE,
      OBJ_BIN  LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE,
      OBJ_TXT  LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE,
      REC_LIST LIKE SOMLRECI1  OCCURS 0 WITH HEADER LINE,
      DOC_DATA LIKE SODOCCHGI1.
DR_PARAM-TDDEST    = 'LOCAL'.        "Ausgabegerät
DR_PARAM-TDIMMED   = ' '.            "Sofort ausgeben
DR_PARAM-TDPREVIEW = 'X'.            "Druckvoschau
DR_PARAM-TDGETOTF  = 'X'.            "Ausgabe in  Tabelle
CALL FUNCTION 'OPEN_FORM'
     EXPORTING
          DEVICE   = 'PRINTER'
          DIALOG   = ' '
          OPTIONS  = DR_PARAM
          FORM     = 'ZTEST'
          LANGUAGE = SY-LANGU
     EXCEPTIONS
          CANCELED = 01
          DEVICE   = 02
          OTHERS   = 03.
IF SY-SUBRC <> 0. WRITE: / SY-SUBRC. EXIT. ENDIF.
CALL FUNCTION 'WRITE_FORM'
     EXPORTING
          WINDOW = 'ADDRESS'
     EXCEPTIONS
          WINDOW = 1.
IF SY-SUBRC <> 0. WRITE: / SY-SUBRC. EXIT. ENDIF.
CALL FUNCTION 'WRITE_FORM'
     EXPORTING
          WINDOW  = 'MAIN'
          ELEMENT = 'ANSCHREIBEN_ANFANG'
     EXCEPTIONS
          WINDOW  = 1.
IF SY-SUBRC <> 0. WRITE: / SY-SUBRC. EXIT. ENDIF.
.... Here are more 'WRITE_FORM'
CALL FUNCTION 'CLOSE_FORM'
     TABLES
          OTFDATA                  = OTFDATA.
exit.
CALL FUNCTION 'SX_OBJECT_CONVERT_OTF_PDF'
     EXPORTING
          FORMAT_SRC  = 'OTF'
          FORMAT_DST  = 'PDF'
          DEVTYPE     = ''
          LEN_IN      = ''
     IMPORTING
          LEN_OUT     = PDF_FILESIZE
     TABLES
          CONTENT_IN  = OTFDATA
          CONTENT_OUT = PDFDATA.
prepare email (example)
DOC_DATA-OBJ_NAME  = 'Report: ZTEST'.
CONCATENATE SY-SYSID '/' SY-MANDT ':'
            'Übertragung von Testdaten'
            INTO DOC_DATA-OBJ_DESCR SEPARATED BY SPACE.
email-User (U)
CLEAR REC_LIST.
CLEAR REC_LIST.
REC_LIST-RECEIVER = '[email protected]'.
REC_LIST-REC_TYPE = 'U'.
APPEND REC_LIST.
PACKING_LIST
CLEAR OBJ_PACK.
OBJ_PACK-TRANSF_BIN = ' '.
OBJ_PACK-BODY_START = 01.
OBJ_PACK-BODY_NUM   = 02.
OBJ_PACK-DOC_TYPE   = 'RAW'.
APPEND OBJ_PACK.
CLEAR OBJ_PACK.
OBJ_PACK-TRANSF_BIN = 'X'.
OBJ_PACK-BODY_START = 01.
DESCRIBE TABLE PDFDATA LINES OBJ_PACK-BODY_NUM.
OBJ_PACK-DOC_TYPE   = 'PDF'.
OBJ_PACK-DOC_SIZE   = PDF_FILESIZE.
OBJ_PACK-OBJ_NAME   = 'Attachment'.
OBJ_PACK-OBJ_DESCR  = 'Test'.
APPEND OBJ_PACK.
OBJ_TXT-LINE = '1. Line of email'.
APPEND OBJ_TXT.
OBJ_TXT-LINE = '2. Line of email'.
APPEND OBJ_TXT.
LOOP AT PDFDATA.
  OBJ_BIN-LINE = PDFDATA-LINE.
  APPEND OBJ_BIN.
ENDLOOP.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
     EXPORTING
          DOCUMENT_DATA              = DOC_DATA
          PUT_IN_OUTBOX              = 'X'
          COMMIT_WORK                = 'X'
     TABLES
          PACKING_LIST               = OBJ_PACK
          CONTENTS_TXT               = OBJ_TXT
          CONTENTS_BIN               = OBJ_BIN
          RECEIVERS                  = REC_LIST
     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.
CASE SY-SUBRC.
ENDCASE.
Programmende
Message was edited by: Dieter Gröhn