SO_DOCUMENT_SEND_API1

[Former Member]

hai gurus i am using this function module to send the document throuhg email it is working fine but whne i give the sender address and sender address type it is giving dump , if i dotn import these paramters then it is taking the defualt system email and sending , i want to change the sender email and name

regards

afzal

[former_member194669]

Hi,

You can set the sender's address in this fm.

import parameter 'SENDER_ADDRESS_TYPE' must be 'SMTP'.

aRs

Points always welcome

[Former Member]

Hi

Try with this report. It will fire an msg 2days before due date

 *&---------------------------------------------------------------------*
*& Report  ZTESTMAIL                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZMATURITY                               .

tables: bseg.


parameters: p_email type somlreci1-receiver default
'@yahoo.com'.
parameters: p_email1 type somlreci1-receiver default
'@yahoo.com'.


data: it_message type standard table of solisti1 initial size 0
with header line.

data: it_message1 type standard table of solisti1 initial size 0
with header line.

data: it_attach type standard table of solisti1 initial size 0
with header line.

data: text(150).


data: t_packing_list like sopcklsti1 occurs 0 with header line,
      t_contents like solisti1 occurs 0 with header line,
      t_receivers like somlreci1 occurs 0 with header line,
      t_attachment like solisti1 occurs 0 with header line,
      t_object_header like solisti1 occurs 0 with header line,


      w_cnt type i,
      w_sent_all(1) type c,
      w_doc_data like sodocchgi1,
      gd_error type sy-subrc,
      gd_reciever type sy-subrc.



start-of-selection.
data: lv_date type sy-datum.
data: lv_date1 type sy-datum.

data: lv_formatdate(10) type c.
data: lv_formatdate1(10) type c.

data: var1(4) type c,

var2(2) type c,

var3(2) type c.





data: begin of int_bseg occurs 0,
    BELNR LIKE BSEG-BELNR,
    ZUONR LIKE BSEG-ZUONR,
    GJAHR LIKE BSEG-GJAHR,

end of int_bseg.

data: begin of int_bkpf occurs 0,
      BELNR LIKE BKPF-BELNR,
      BUKRS LIKE BKPF-BUKRS,
      GJAHR LIKE BKPF-GJAHR,
      BUDAT  LIKE BKPF-BUDAT,

end of int_BKPF.




data: 2days_out type sy-datum.
2days_out = sy-datum + 2.


lv_date = 2days_out.
var1 = lv_date+(4).
var2 = lv_date+4(2).
var3 = lv_date+6(2).

concatenate var3 var2 var1 into lv_formatdate separated by '.'.

data: var4(4) type c,

var5(2) type c,

var6(2) type c.




select zuonr belnr bukrs GJAHR from bseg into
corresponding fields of  table int_bseg
where bukrs = 'COMPANY CODE' and
      ZUONR = lv_formatdate.

*       loop at int_bseg.
*
*it_message =  int_bseg-belnr.
*ENDLOOP.


*endselect.

 select  BUDAT BUKRS BELNR GJAHR  from BKPF into
corresponding fields of table int_BKPF
where bukrs = 'COMPANY CODE'.<-- YOUR COMPANY CODE
*and      GJAHR = INT_BSEG-GJAHR.

append int_BKPF.


*lv_date1 = int_bkpf-budat.
*  var4 = lv_date1+(4).
*  var5 = lv_date1+4(2).
*  var6 = lv_date1+6(2).
*
*
*concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.


*endselect.





 perform populate_email_message_body.

** Send file by email as .xls speadsheet

  perform send_file_as_email_attachment
  tables it_message
  it_attach
  using p_email
  'Assignment Date after 2 days'
  'XLS'
  'filename'
  ' '
  ' '
  ' '
  changing gd_error
  gd_reciever.

* Instructs mail send program for SAPCONNECT to send email(rsconn01)
  perform initiate_mail_execute_program.



*endif.




end-of-selection.


*&---------------------------------------------------------------------
*
*& Form SEND_FILE_AS_EMAIL_ATTACHMENT
*&---------------------------------------------------------------------
*
* Send email
*----------------------------------------------------------------------
*
form send_file_as_email_attachment tables pit_message
pit_attach
using p_email
p_mtitle
p_format
p_filename
p_attdescription
p_sender_address
p_sender_addres_type
changing p_error
p_reciever.


  data: ld_error type sy-subrc,
  ld_reciever type sy-subrc,
  ld_mtitle like sodocchgi1-obj_descr,
  ld_email like somlreci1-receiver,
  ld_format type so_obj_tp ,
  ld_attdescription type so_obj_nam ,
  ld_attfilename type so_obj_des ,
  ld_sender_address like soextreci1-receiver,
  ld_sender_address_type like soextreci1-adr_typ,
  ld_receiver like sy-subrc.

  ld_email = p_email.
  ld_mtitle = p_mtitle.
  ld_format = p_format.
  ld_attdescription = p_attdescription.
  ld_attfilename = p_filename.
  ld_sender_address = p_sender_address.
  ld_sender_address_type = p_sender_addres_type.


* Fill the document data.
  w_doc_data-doc_size = 1.



* Populate the subject/generic message attributes
  w_doc_data-obj_langu = sy-langu.
  w_doc_data-obj_name = 'SAPRPT'.
  w_doc_data-obj_descr = ld_mtitle .
  w_doc_data-sensitivty = 'F'.




** Fill the document data and get size of attachment
  clear w_doc_data.
  read table it_attach index w_cnt.
  w_doc_data-doc_size =
  ( w_cnt - 1 ) * 255 + strlen( it_attach ).
  w_doc_data-obj_langu = sy-langu.
  w_doc_data-obj_name = 'SAPRPT'.
  w_doc_data-obj_descr = ld_mtitle.
  w_doc_data-sensitivty = 'F'.
  clear t_attachment.
  refresh t_attachment.
  t_attachment[] = pit_attach[].

* Describe the body of the message
  clear t_packing_list.
  refresh t_packing_list.
  t_packing_list-transf_bin = space.
  t_packing_list-head_start = 1.
  t_packing_list-head_num = 0.
  t_packing_list-body_start = 1.
  describe table it_message lines t_packing_list-body_num.
  t_packing_list-doc_type = 'RAW'.
  append t_packing_list.


* Add the recipients email address
  clear t_receivers.
  refresh t_receivers.
  t_receivers-receiver = ld_email.
  t_receivers-rec_type = 'U'.
  t_receivers-com_type = 'INT'.
  t_receivers-notif_del = 'X'.
  t_receivers-notif_ndel = 'X'.
  append t_receivers.

  call function 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = w_doc_data
      put_in_outbox              = 'X'
      sender_address             = ld_sender_address
      sender_address_type        = ld_sender_address_type
      commit_work                = 'X'
    IMPORTING
      sent_to_all                = w_sent_all
    TABLES
      object_header              = t_object_header
      packing_list               = t_packing_list
      contents_bin               = t_attachment
      contents_txt               = it_message
      receivers                  = t_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.

* Populate zerror return code
  ld_error = sy-subrc.

* Populate zreceiver return code
  loop at t_receivers.
    ld_receiver = t_receivers-retrn_code.
  endloop.
endform.                    "send_file_as_email_attachment



*&---------------------------------------------------------------------
*
*& Form INITIATE_MAIL_EXECUTE_PROGRAM
*&---------------------------------------------------------------------
*
* Instructs mail send program for SAPCONNECT to send email.
*----------------------------------------------------------------------
*

form initiate_mail_execute_program.
  wait up to 2 seconds.
  if gd_error eq 0.
    submit rsconn01 with mode = 'INT'
                  with output = 'X'
                  and return.
  endif.
endform.                    " INITIATE_MAIL_EXECUTE_PROGRAM



*&---------------------------------------------------------------------
*
*& Form POPULATE_EMAIL_MESSAGE_BODY
*&---------------------------------------------------------------------
*
* Populate message body text
*----------------------------------------------------------------------
*
form populate_email_message_body.

  refresh it_message.
  refresh it_message1.

* if int_bseg-belnr = int_bkpf-belnr.






  loop at int_BSEG.

read table int_bKPF WITH KEY BELNR = INT_BSEG-BELNR
        GJAHR = INT_BSEG-GJAHR.


lv_date1 = int_bkpf-budat.
  var4 = lv_date1+(4).
  var5 = lv_date1+4(2).
  var6 = lv_date1+6(2).


concatenate var6 var5 var4 into lv_formatdate1 separated by '.'.




it_message =  int_bseg-belnr.
it_message1 =  lv_formatdate1.

* it_message = 'Assignment Date is coming After 2 Days'.



concatenate 'Doc. No :   'it_message
            'Posting Date :  '  it_message1
   'Assignment Date is coming After 2Days'  into
it_message separated by space.


 append it_message.
 append it_message1.

  clear it_message.
  clear it_message1.





 endloop.


*endif.


endform. " POPULATE_EMAIL_MESSAGE_BODY

Reward all helpfull answers

Regards

Pavan