How to add body text to smartform email?

Question

Hi,
In release 620, how can you add text to the mail message that is generated from e-mailing a smartform.  I need to add a small message to the body of the message in addition to the attachment.
i.e. Please find attached your invoice. [attachement.pdf]
Thanks,
Guy

Answer 1

I don't know SmartForm so there may be another way to do it but the following approach was fine for Sapscript.
Basically have a look at the SAP sample programs bcs_example_* where * = 1 thru 5. I think bcs_example_5 is the one to focus on. This creates a simple email and then adds an attachemnt to it. In your case you want the attachment to be your SmartForm's output.
For the SapScript I was able to call the form from abap, receive the output into a table whose contents I could then attach to the email.
The attachment code needs to be changed to set type to OTF:
i_attachment_type = 'OTF'
I'll speak in SAPscript and hope there are equivalent terms in SmartForm. I created the following abap form to run the SAPscript and get it's output into a table:
     Form  GET_OTF_CODE
FORM  get_otf_code
USING us_work       TYPE zsd_fet_signup_confirm
CHANGING ch_otf_out TYPE solix_tab.
  DATA: BEGIN OF otf OCCURS 0.
          INCLUDE STRUCTURE itcoo .
  DATA: END OF otf.
  DATA: itcpo LIKE itcpo.
  DATA: itcpp LIKE itcpp.
  CLEAR itcpo.
  itcpo-tdgetotf = 'X'.
Start writing OTF code
  CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      form     = 'ZSD_FET_COVERFAX'
      language = sy-langu
      OPTIONS  = itcpo
      dialog   = ' '
    EXCEPTIONS
      OTHERS   = 1.
  CALL FUNCTION 'START_FORM'
    EXCEPTIONS
      error_message = 01
      OTHERS        = 02.
  CASE us_work-recipient_type.
    WHEN c_agent_recipient.
      w_recipient_name = us_work-agent.
    WHEN c_asm_recipient.
      w_recipient_name = us_work-asm.
    WHEN OTHERS.
      w_recipient_name = 'IPL Agent/ASM'.
  ENDCASE.
  CALL FUNCTION 'WRITE_FORM'
    EXPORTING
      window        = 'MAIN'
      element       = 'HEADER'
    EXCEPTIONS
      error_message = 01
      OTHERS        = 02.
  CALL FUNCTION 'WRITE_FORM'
    EXPORTING
      window        = 'MAIN'
      element       = 'TEXT'
    EXCEPTIONS
      error_message = 01
      OTHERS        = 02.
Close up Form and get OTF code
  CALL FUNCTION 'END_FORM'
    EXCEPTIONS
      error_message = 01
      OTHERS        = 02.
  MOVE-CORRESPONDING itcpo TO itcpp.
  CALL FUNCTION 'CLOSE_FORM'
    IMPORTING
      RESULT  = itcpp
    TABLES
      otfdata = otf
    EXCEPTIONS
      OTHERS  = 1.
Move OTF code to output structure
  REFRESH ch_otf_out.
  LOOP AT otf.
    APPEND otf TO ch_otf_out.
  ENDLOOP.
ENDFORM.                    "GET_OTF_CODE