Change "SAPScript" email subject/body for External Send(5) for output type?

Question

Hello,
I'm emailing a SAPscript form (converted to PDF) generated via Transmission Medium 5 (External send) for output type (EK00) and need to change email's subject and body of email created by SAP code.  Any suggestions on how to change email's subject and body?
Thanks,
Billy

Answer 1

Also if u want to add a body to the mail.  See the below form (sub routine) which needs to be mentioned in NACE.  Either u can keep this routine in the driver program or u can put in separate report program.  All thing u need to is see the below code and mention the name of the program and form name in nace.  Double click on output type in nace. u will find a tab stripped screen in right.  In the screen u can see the first tab as 'General data'  and at the bottom a block with title 'Replacement of text symbols' can be seen.  There u need to pass this program name and form name.
Execute ur program and test the result.
FORM text_symbol_replace TABLES pt_lines  STRUCTURE tline
                          USING ps_thead  STRUCTURE thead
                                ps_nast   STRUCTURE nast.
  DATA:
    lv_kunnr LIKE vbak-kunnr,          " AN0465 Add AKKUMA1 02/19/07
    lv_new_cursor_column LIKE sy-tabix," Cursor column
    lv_new_cursor_line   LIKE sy-tabix," Cursor row
    lv_changed,                        " Indicator
    lv_matnr     LIKE vbap-matnr,
    lv_vkorg     LIKE vbak-vkorg,
    lv_vtweg     LIKE vbak-vtweg,
    lv_desc(20),
    lv_name      TYPE thead-tdname,    " Name
    lt_lines     LIKE tline OCCURS 0 WITH HEADER LINE,
    lv_currentprogram LIKE sy-repid.   " Program Name
  DATA :
    ps_lines LIKE tline.               " Structure
  CONSTANTS:
    lc_int TYPE nast-nacha VALUE '5',  " External Send
    lc_comma TYPE c VALUE ','.         " Comma Separater
  DATA: BEGIN OF ls_fname,
          dsnam TYPE nast-dsnam,       " Spool Name
          dsuf1 TYPE nast-dsuf1,       " Spool Suffix1
          dsuf2 TYPE nast-dsuf2,       " Spool Suffix 2
        END OF ls_fname.
  FIELD-SYMBOLS: <lfs_nast> TYPE vnast.
  IF ps_nast-kschl EQ gc_zj17.
Fetching vbak-kunnr.
    SELECT SINGLE kunnr                " Customer
                  vkorg
                  vtweg
             INTO (lv_kunnr,lv_vkorg,
                   lv_vtweg)
             FROM vbak
            WHERE vbeln EQ ps_nast-objky.
    IF sy-subrc EQ 0.
      SELECT SINGLE matnr INTO lv_matnr
       FROM vbap
         WHERE vbeln EQ ps_nast-objky.
    ELSE.
      IMPORT xvbak-kunnr TO lv_kunnr FROM MEMORY ID 'YSOLDTO'.
      IMPORT xvbak-vkorg TO lv_vkorg FROM MEMORY ID 'YSALESORG'.
      IMPORT xvbak-vtweg TO lv_vtweg FROM MEMORY ID 'YDISTCH'.
      IMPORT xvbap-matnr TO lv_matnr FROM MEMORY ID 'YMATERIAL'.
    ENDIF.
    IF sy-subrc EQ 0.
      CONCATENATE lv_matnr lv_vkorg lv_vtweg
       INTO lv_name.
      CALL FUNCTION 'READ_TEXT'
           EXPORTING
                id                      = '0001'
                language                = ps_nast-spras
                name                    = lv_name
                object                  = 'MVKE'
           TABLES
                lines                   = lt_lines
           EXCEPTIONS
                id                      = 1
                language                = 2
                name                    = 3
                not_found               = 4
                object                  = 5
                reference_check         = 6
                wrong_access_to_archive = 7
                OTHERS                  = 8.
      IF sy-subrc = 0.
        CLEAR lv_desc.
        LOOP AT lt_lines.
          CONCATENATE lv_desc lt_lines-tdline
                 INTO lv_desc
            SEPARATED BY space.
        ENDLOOP.                       " LOOP AT lt_desc
        CONDENSE lv_desc.
      ENDIF.
    ENDIF.                            " AN0465 Add AKKUMA1 02/26/07
Fetch Region.
    SELECT SINGLE name1 ort01               " City
      INTO (gv_name1, gv_ort01)
      FROM kna1
      WHERE kunnr EQ lv_kunnr.
    IF sy-subrc EQ 0.
      CONDENSE gv_ort01.
      CONCATENATE ':OC:'
                  gv_name1
                  gv_ort01
                  lv_desc
             INTO ps_lines-tdline SEPARATED BY space.
      LOOP AT pt_lines.
        pt_lines-tdline =  ps_lines-tdline.
        MODIFY pt_lines.
        CLEAR pt_lines.
      ENDLOOP.
    ENDIF.                             " IF ps_nast-kschl EQ gc_z..
  ENDIF.                               " AN0465 Add AKKUMA1 02/19/07
IF NO TEXT IS PROVIDED READ TEXT USING HEADER INFO
  IF pt_lines[] IS INITIAL AND NOT ps_thead IS INITIAL.
    CALL FUNCTION 'READ_TEXT'
         EXPORTING
              id       = ps_thead-tdid
              language = ps_thead-tdspras
              name     = ps_thead-tdname
              object   = ps_thead-tdobject
         TABLES
              lines    = pt_lines
         EXCEPTIONS
              OTHERS   = 1.
    IF sy-subrc NE 0.
    ENDIF.                             " IF sy-subrc NE 0.
  ENDIF.                               " IF pt_lines[] IS INITIAL
REPLACE VARIABLES USING DATA FROM PROGRAM   YVADOR01
  IF NOT pt_lines[] IS INITIAL.
    lv_currentprogram = 'SAPMV45A'.
    CALL FUNCTION 'TEXT_SYMBOL_REPLACE'
         EXPORTING
              endline = sy-tabix
              header  = ps_thead
              program = lv_currentprogram
         IMPORTING
              changed = lv_changed
         TABLES
              lines   = pt_lines.
Subrc Check not required.
    CALL FUNCTION 'FORMAT_TEXTLINES'
         IMPORTING
              new_cursor_column = lv_new_cursor_column
              new_cursor_line   = lv_new_cursor_line
         TABLES
              lines             = pt_lines
         EXCEPTIONS
              OTHERS            = 2.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.                             " IF sy-subrc NE 0.
  ENDIF.                               " IF NOT pt_lines[] IS INITIAL
SPLIT ORDER NUMBER AND PUT THEM INTO SPOOL REQUEST NAME & SUFFIX FIELD
SAP USES THESE FIELDS TO CONSTRUCT FILENAME
FOR THE PDF ATTACHMENT IN EMAIL
  IF ps_nast-nacha EQ lc_int OR ps_nast-nacha = '2'.
    IF ps_nast-dsnam IS INITIAL AND ps_nast-dsuf1 IS INITIAL.
      ls_fname = ps_lines-tdline.
      ps_nast-dsnam = ls_fname-dsnam.
      ps_nast-dsuf1 = ls_fname-dsuf1.
      ps_nast-dsuf2 = ls_fname-dsuf2.
    ENDIF.                             " IF ps_nast-dsnam IS INITIAL...
  ENDIF.                               " IF ps_nast-nacha EQ lc_int
ENDFORM.                               " TEXT_SYMBOL_REPLACE
Venkat.