*----------------------------------------------------------------------*
*       FORM send_basic_email
*----------------------------------------------------------------------*
* [+] Sends a regular email (ie. no attachments, only a message)
*----------------------------------------------------------------------*
FORM send_basic_email
  USING
    p_email   TYPE ad_smtpadr
    p_message TYPE STANDARD TABLE OF char255.

  DATA:
    lv_pack_list     TYPE sopcklsti1,
    li_pack_list     TYPE STANDARD TABLE OF sopcklsti1,
    lv_receivers     TYPE somlreci1,
    li_receivers     TYPE STANDARD TABLE OF somlreci1,
    lv_email_details TYPE sodocchgi1.

  CLEAR:
    lv_pack_list,
    li_pack_list,
    lv_receivers,
    li_receivers,
    lv_email_details.

  REFRESH:
    li_pack_list,
    li_receivers.


* Setup the email details
  lv_email_details-obj_name  = 'My Email'.
  lv_email_details-obj_descr = 'My really cool email'.
  lv_email_details-obj_langu = 'E'.

* Describe the email contents
  DESCRIBE TABLE p_message LINES lv_pack_list-body_num.

  lv_pack_list-head_start = 1.
  lv_pack_list-head_num   = 0.
  lv_pack_list-body_start = 1.
  lv_pack_list-doc_type   = 'RAW'.
  APPEND lv_pack_list TO li_pack_list.

* Create receiver list
  lv_receivers-receiver = p_email.
  lv_receivers-rec_type = 'U'.
  lv_receivers-com_type = 'INT'.
  APPEND lv_receivers TO li_receivers.


* Send the email
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = lv_email_details
      put_in_outbox              = 'X'
    TABLES
      packing_list               = li_pack_list
      contents_txt               = p_message
      receivers                  = li_receivers
    EXCEPTIONS
      OTHERS                     = 99.

  IF sy-subrc <> 0.
    EXIT.
  ENDIF.

ENDFORM.