cancel
Showing results for 
Search instead for 
Did you mean: 

re: sending email to user

Former Member
0 Kudos

how to send a mail to the user after creating sales order details in va01? explain with example?

Accepted Solutions (0)

Answers (3)

Answers (3)

Former Member
0 Kudos

Hi asha,

Do you want to send the forms by mail to user or do you want to send a mail to inform user that order is created.

In first case , by defining the support "Mail" to the message and after customize transaction SCOT that'll work fine without any developpement.

Tell me more on your problem .

Best regards.

Former Member
0 Kudos

Hi

Welcome to SDN forum..

You can send the mail using the medium 7 by using the same Driver program and script/smartform with the same output type that is used for the output of the application document

Configure the Mail id of the people to whom you wants to send the mail in SCOT and SOST tcodes

and send the mail using the output type and medium 7 (MAIL) and see

<b>

Reward points for useful Answers</b>

Regards

Anji

Former Member
0 Kudos

Hi Asha

I'll provide you a sample report. In which you have to replace the table and fields with the tables and fields you want

 *&---------------------------------------------------------------------*
*& 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