FUNCTION Z_PYC_CREATE_MAIL_WITH_DISP_PO .
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(PO) TYPE  EKKO-EBELN
*"     REFERENCE(RECIPIENT) TYPE  SO_REC_NAM
*"----------------------------------------------------------------------

* data for call of so_object_send
  DATA: OBJ_TYPE    LIKE SOOD-OBJTP VALUE 'RAW'.
  DATA: BEGIN OF RECEIVERS OCCURS 1.
          INCLUDE STRUCTURE SOOS1.
  DATA: END OF RECEIVERS.
  DATA: BEGIN OF OBJHEAD OCCURS 1.
          INCLUDE STRUCTURE SOLI.
  DATA: END OF OBJHEAD.
  DATA: BEGIN OF OBJCONT OCCURS 10.
          INCLUDE STRUCTURE SOLI.
  DATA: END OF OBJCONT.
  DATA: BEGIN OF OBJECT_ID_NEW.
          INCLUDE STRUCTURE SOODK.
  DATA: END OF OBJECT_ID_NEW.
  DATA: BEGIN OF OBJPARB OCCURS 1.
          INCLUDE STRUCTURE SOOP1.
  DATA: END OF OBJPARB.
  DATA: BEGIN OF OBJECT_HD_CHANGE.
          INCLUDE STRUCTURE SOOD1.
  DATA: END OF OBJECT_HD_CHANGE.

* fill mail header.
  CLEAR OBJECT_HD_CHANGE.
  OBJECT_HD_CHANGE-OBJLA    = SY-LANGU.
  OBJECT_HD_CHANGE-OBJNAM   = 'PO_MAIL'.
  OBJECT_HD_CHANGE-OBJSNS   = 'F'.     "functional mail
  OBJECT_HD_CHANGE-VMTYP    = 'F'.     "execution via fm SWW_WI_DISPLAY
  OBJECT_HD_CHANGE-ACNAM    = 'Z_PYC_MAIL_EXEC_PO_DISPLAY'.

* create the message title
  CONCATENATE 'Mail with link to PO' PO INTO OBJECT_HD_CHANGE-OBJDES
      SEPARATED BY SPACE.

* create the message body
  APPEND 'This is an executable mail linked to a PO!' TO OBJCONT.
  APPEND 'With the mail open, choose "Document > Execute".' TO OBJCONT.

* set parameters for PO Display
  CLEAR OBJPARB. REFRESH OBJPARB.
  OBJPARB-NAME = 'PO'.
  OBJPARB-VALUE = PO.
  APPEND OBJPARB.

* set the recipients
  MOVE RECIPIENT TO RECEIVERS-RECNAM.
  MOVE 'B' TO RECEIVERS-RECESC.
  APPEND RECEIVERS.

* Call to Create the Office Mail
  CALL FUNCTION 'SO_OBJECT_SEND'
       EXPORTING
            OBJECT_HD_CHANGE = OBJECT_HD_CHANGE
            OBJECT_TYPE      = OBJ_TYPE
       TABLES
            OBJCONT          = OBJCONT
            OBJHEAD          = OBJHEAD
            OBJPARB          = OBJPARB
            RECEIVERS        = RECEIVERS
       EXCEPTIONS
            OTHERS           = 1.

ENDFUNCTION.