Create a List of receivers for the FM SO_NEW_DOCUMENT_SEND_API1 on screen

Question

Hello everybody,
I user the FM SO_NEW_DOCUMENT_SEND_API1 to send mails from SAP. I send the mail to different types of receivers. SAP users, external receivers, ...
I have define this list of receivers with a distribiution list in the Business Workplace (SO23).
There you define for each row of the list which type is it.
Now I have a problem.
I want to implement a report which sends the output to n receivers. This receivers can be different types. I don't want to use a static distribution list in SO23.
I will send the mail to n dynamic receivers which should be defined in the selection screen.
The problem is that I don't know how I can define the receiver type for an receiver.
This means I need something like the table in SO23 on my screen where I can insert any receivers with the adress and the adapted type.
Do anybody of knows how I can solve this behaviour?
Regards and thank you
Christian
Edited by: Christian Swonke on Mar 4, 2008 9:58 AM

Answer 1

Hi
Try this,
Add the recipients email address
  CLEAR wa_receivers.
  REFRESH it_receivers.
  wa_receivers-receiver   = c_mailid_1.
  wa_receivers-rec_type   = c_u.
  wa_receivers-com_type   = c_int.
  wa_receivers-notif_del  = c_x.
  wa_receivers-notif_ndel = c_x.
  APPEND wa_receivers TO it_receivers.
Add the recipients email address
  CLEAR wa_receivers.
  REFRESH it_receivers.
  wa_receivers-receiver   = c_mailid_2.
  wa_receivers-rec_type   = c_u.
  wa_receivers-com_type   = c_int.
  wa_receivers-notif_del  = c_x.
  wa_receivers-notif_ndel = c_x.
  APPEND wa_receivers TO it_receivers.
Add the recipients email address
  CLEAR wa_receivers.
  REFRESH it_receivers.
  wa_receivers-receiver   = c_mailid_3.
  wa_receivers-rec_type   = c_u.
  wa_receivers-com_type   = c_int.
  wa_receivers-notif_del  = c_x.
  wa_receivers-notif_ndel = c_x.
  APPEND wa_receivers TO it_receivers.
Add the recipients email address
  CLEAR wa_receivers.
  REFRESH it_receivers.
  wa_receivers-receiver   = c_mailid_4.
  wa_receivers-rec_type   = c_u.
  wa_receivers-com_type   = c_int.
  wa_receivers-notif_del  = c_x.
  wa_receivers-notif_ndel = c_x.
  APPEND wa_receivers TO it_receivers.
Add the recipients email address
  CLEAR wa_receivers.
  REFRESH it_receivers.
  wa_receivers-receiver   = c_mailid_5.
  wa_receivers-rec_type   = c_u.
  wa_receivers-com_type   = c_int.
  wa_receivers-notif_del  = c_x.
  wa_receivers-notif_ndel = c_x.
  APPEND wa_receivers TO it_receivers.
Add the recipients email address
  CLEAR wa_receivers.
  REFRESH it_receivers.
  wa_receivers-receiver   = c_mailid_6.
  wa_receivers-rec_type   = c_u.
  wa_receivers-com_type   = c_int.
  wa_receivers-notif_del  = c_x.
  wa_receivers-notif_ndel = c_x.
  APPEND wa_receivers TO it_receivers.
Perform send_file_as_email_attachment.
*&      Form  send_file_as_email_attachment
Form for sending the data in an e-mail as an Excel attachment
FORM send_file_as_email_attachment.
Declaration of the local variables used for passing the values to the function module.
  DATA: ld_mtitle              TYPE  sodocchgi1-obj_descr,
        ld_email               TYPE  somlreci1-receiver,
        ld_format              TYPE  so_obj_tp ,
        ld_attdescription      TYPE  so_obj_nam ,
        ld_attfilename         TYPE  so_obj_des ,
        ld_sender_address      TYPE  soextreci1-receiver,
        ld_sender_address_type TYPE  soextreci1-adr_typ.
Passing the values to the local variables
  ld_mtitle              = text-001.                                   " Mail title.
  ld_format              = c_xls.                                      " Mail format.
  ld_attdescription      = text-012.                                   " Mail attachment description.
  ld_attfilename         = text-011.                                   " Filename.
  ld_sender_address      = ''.                                         " sender address.
  ld_sender_address_type = ''.                                         " sender addres type.
Fill the document data and get size of attachment
  CLEAR: wa_docdata, wa_attach.
  READ TABLE it_attach INTO wa_attach INDEX v_lines.
  wa_docdata-doc_size   = ( v_lines - c_1 ) * c_255 + STRLEN( wa_attach ).
  wa_docdata-obj_langu  = sy-langu.
  wa_docdata-obj_name   = c_saprpt.
  wa_docdata-obj_descr  = ld_mtitle.
  wa_docdata-sensitivty = c_f.
  CLEAR it_attachment.
  REFRESH it_attachment.
  it_attachment[] = it_attach[].
Describe the body of the message
  CLEAR wa_packing_list.
  REFRESH it_packing_list.
  wa_packing_list-transf_bin = space.
  wa_packing_list-head_start = c_1.
  wa_packing_list-head_num   = c_0.
  wa_packing_list-body_start = c_1.
  DESCRIBE TABLE it_message LINES wa_packing_list-body_num.
  wa_packing_list-doc_type = c_raw.
  APPEND wa_packing_list TO it_packing_list.
Create attachment notification
  wa_packing_list-transf_bin = c_x.
  wa_packing_list-head_start = c_1.
  wa_packing_list-head_num   = c_1.
  wa_packing_list-body_start = c_1.
  DESCRIBE TABLE it_attachment LINES wa_packing_list-body_num.
  wa_packing_list-doc_type   =  ld_format.
  wa_packing_list-obj_descr  =  ld_attdescription.
  wa_packing_list-obj_name   =  ld_attfilename.
  wa_packing_list-doc_size   =  wa_packing_list-body_num * c_255.
  APPEND wa_packing_list TO it_packing_list.
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = wa_docdata
      put_in_outbox              = c_x
      sender_address             = ld_sender_address
      sender_address_type        = ld_sender_address_type
      commit_work                = c_x
    IMPORTING
      sent_to_all                = wa_sent_all
    TABLES
      packing_list               = it_packing_list
      contents_bin               = it_attachment
      contents_txt               = it_message
      receivers                  = it_receivers
    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 s019(ztrack_toolmsg) WITH text-002.             " E-mails have been sent to the mentioned people.
   LEAVE LIST-PROCESSING.
  ELSE.
    MESSAGE s019(ztrack_toolmsg) WITH text-003.             " Message sending failed.
   LEAVE LIST-PROCESSING.
  ENDIF.
  REFRESH: it_packing_list,
           it_attachment,
           it_message,
           it_receivers.
ENDFORM.                    " send_file_as_email_attachment
Regards
Rohini.