Send an SAP object (BUS****) as attachment with SAP Mail

Question

Hi all,
I'd like to send a internal SAP(express)-mail
with a purchase order as business object (BO) attached. (here BO = BUS2012).
It's the same thing you can do with generic object services, GOS, to send a SAP business object as mail notification
attachment.
Can I use the function 'SO_DOCUMENT_SEND_API1' or
do I have to use the BCS-functions?
All the reports BCS_EXAMPLE* don't send a
business object.
Thanks in advance,
Markus

Answer 1

Hi Markus,
Seems as if FM 'SO_DYNP_DOCUMENT_TRANSFER_API1' may popup a window. Below is a working program. Have fun!!
Cheers,
Ramki.
REPORT  zramki_send_mail_bor                    .
*& Report  ZRAMKI_SEND_MAIL_BOR
*&  Send document with BOR Object as attachment
DATA: docdata    LIKE sodocchgi1,
      objpack    LIKE sopcklsti1 OCCURS 10 WITH HEADER LINE,
      objhead    LIKE solisti1   OCCURS 10 WITH HEADER LINE,
      objtxt     LIKE solisti1   OCCURS 10 WITH HEADER LINE,
      objbin     LIKE solisti1   OCCURS 10 WITH HEADER LINE,
      objhex     LIKE solix      OCCURS 10 WITH HEADER LINE,
      reclist    LIKE somlreci1  OCCURS  1 WITH HEADER LINE.
DATA: tab_lines  TYPE i,
      doc_size   TYPE i,
      objdes(100).
* For the BOR attachment
CONSTANTS:
  c_object_describe LIKE swotobjid-describe VALUE '*<OBJECT>*'.
DATA:
  l_object      TYPE swotobjid,
  l_objheader   LIKE soxobj.
PARAMETERS:
  p_objtyp TYPE swo_objtyp OBLIGATORY,
  p_objkey TYPE swo_typeid OBLIGATORY.
* Create Message Body
*   Main Text
objtxt = 'Test Document.'.
APPEND objtxt.
objtxt = 'You will find a BOR object attachment in message.'.
APPEND objtxt.
objtxt = 'Have a nice day.'.
APPEND objtxt.
*   Title and Description
DESCRIBE TABLE objtxt LINES tab_lines.
READ     TABLE objtxt INDEX tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
docdata-obj_name  = 'BOR Object'.
Concatenate p_objtyp '-' p_objkey into objdes.
Concatenate 'BOR Object' objdes 'as Attachment'
       into docdata-obj_descr separated by space.
condense docdata-obj_descr.
*   Write Packing List (Main)
CLEAR objpack-transf_bin.
objpack-head_start = 0.
objpack-head_num   = 0.
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = 'RAW'.
APPEND objpack.
* Create OBJ attachment
l_object-describe = c_object_describe.
l_object-objtype  = p_objtyp.
l_object-objkey   = p_objkey.
CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
  IMPORTING
    own_logical_system             = l_object-logsys
  EXCEPTIONS
    own_logical_system_not_defined = 1
    OTHERS                         = 2.
IF sy-subrc <> 0.
  MESSAGE e398(00) WITH 'No Log Sys Found'.
ENDIF.
MOVE-CORRESPONDING l_object TO l_objheader.
APPEND l_objheader TO objhead.
*   Write Packing List (Attachment)
CLEAR objpack.
objpack-head_start = 1.
objpack-head_num   = 1.
objpack-body_start = 0.
objpack-body_num   = 0.
objpack-doc_type   = 'OBJ'.
objpack-obj_name   = p_objtyp.
objpack-obj_descr  = Objdes.
APPEND objpack.
* Create receiver list
reclist-receiver = sy-uname.
reclist-rec_type = 'B'.
APPEND reclist.
* Send Message
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
  EXPORTING
    document_data              = docdata
    put_in_outbox              = 'X'
    commit_work                = 'X'   
  TABLES
    packing_list               = objpack
    object_header              = objhead
    contents_bin               = objbin
    contents_txt               = objtxt
    receivers                  = reclist
  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.
IF sy-subrc <> 0.
  MESSAGE ID 'SO' TYPE 'S' NUMBER '023'
          WITH docdata-obj_name.
ENDIF.
WRITE: / 'End of Program'.