topic Re: code for generating email in Application Development and Automation Discussions

code for generating email

Former Member — Wed, 28 Nov 2007 10:25:04 GMT

can anyone pls provide me some study material and code for generating e mail which is to be send to some particular user(if code will be simple i will be thankful to u ).

Re: code for generating email

former_member188829 — Wed, 28 Nov 2007 10:27:34 GMT

Hi,

Check this link..

http://www.sapdevelopment.co.uk/reporting/rep_spooltopdf2.htm

Re: code for generating email

Former Member — Wed, 28 Nov 2007 10:28:23 GMT

If you want to send just an email without attachment you can use EFG_GEN_SEND_EMAIL.

~ Ranganath

PS : Reward points for all useful answers !

Re: code for generating email

Former Member — Wed, 28 Nov 2007 10:29:14 GMT

check this

report zrich_0003 .

For API

data: maildata type sodocchgi1.

data: mailtxt type table of solisti1 with header line.

data: mailrec type table of somlrec90 with header line.

start-of-selection.

clear: maildata, mailtxt, mailrec.

refresh: mailtxt, mailrec.

maildata-obj_name = 'TEST'.

maildata-obj_descr = 'Test'.

maildata-obj_langu = sy-langu.

mailtxt-line = 'This is a test'.

append mailtxt.

mailrec-receiver = sy-uname.

mailrec-rec_type = 'B'.

append mailrec.

call function 'SO_NEW_DOCUMENT_SEND_API1'

exporting

document_data = maildata

document_type = 'RAW'

put_in_outbox = 'X'

tables

object_header = mailtxt

object_content = mailtxt

receivers = mailrec

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 SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

**************************************

email with attachment...then...

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = e_document_data

put_in_outbox = 'X'

commit_work = 'X'

TABLES

packing_list = t_packing_list

contents_bin = t_xml

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.

IF sy-subrc <> 0.

vg_erro = c_flag.

ELSE.

MESSAGE s007 WITH text-010.

ENDIF.

Regards

Vasu

Re: code for generating email

Former Member — Wed, 28 Nov 2007 10:32:44 GMT

You can use this FM :SO_NEW_DOCUMENT_SEND_API1 in ABAP to send email to external emails.

See the below sample code


  email_data-obj_name = 'MESSAGE'.
  email_data-obj_descr = title.
  email_data-obj_langu = 'E'.
  email_data-sensitivty = 'P'.
  email_data-obj_prio = '1'.
  email_data-no_change = 'X'.
  email_data-priority = '1'.
 
  loop at username.
    email_send-receiver = username-id.
    email_send-rec_type = ' '.   " Sap user.
    email_send-express  = 'X'.   " Pop up SAP dialogue
*  email_send-to_answer = 'X'.
    append email_send.
  endloop.
 
  loop at message.
    data_tab-line = message-text.
    append data_tab.
  endloop.
 
  call function 'SO_NEW_DOCUMENT_SEND_API1'
    exporting
      document_data = email_data
      document_type = 'RAW'
      put_in_outbox = 'X'
    tables
      object_content = data_tab
      receivers   = email_send
    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.
    write: / 'Error in sending mail to ', username.
  endif.

<b>Reward if usefull</b>

Re: code for generating email

Former Member — Wed, 28 Nov 2007 12:05:59 GMT

Hi prasad,

see the following code.

&----

*& Report ZSENDEMAIL *

*& *

&----

*& Example of sending external email via SAPCONNECT *

*& *

&----

REPORT zsendemail .

PARAMETERS: psubject(40) type c default 'Hello',

p_email(40) type c default 'test@sapdev.co.uk' .

data: it_packing_list like sopcklsti1 occurs 0 with header line,

it_contents like solisti1 occurs 0 with header line,

it_receivers like somlreci1 occurs 0 with header line,

it_attachment like solisti1 occurs 0 with header line,

gd_cnt type i,

gd_sent_all(1) type c,

gd_doc_data like sodocchgi1,

gd_error type sy-subrc.

data: it_message type standard table of SOLISTI1 initial size 0

with header line.

***********************************************************************

*START-OF-SELECTION.

START-OF-SELECTION.

Perform populate_message_table.

*Send email message, although is not sent from SAP until mail send

*program has been executed(rsconn01)

PERFORM send_email_message.

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

perform initiate_mail_execute_program.

&----

*& Form POPULATE_MESSAGE_TABLE

&----

Adds text to email text table

----

form populate_message_table.

Append 'Email line 1' to it_message.

Append 'Email line 2' to it_message.

Append 'Email line 3' to it_message.

Append 'Email line 4' to it_message.

endform. " POPULATE_MESSAGE_TABLE

&----

*& Form SEND_EMAIL_MESSAGE

&----

Send email message

----

form send_email_message.

Fill the document data.

gd_doc_data-doc_size = 1.

Populate the subject/generic message attributes

gd_doc_data-obj_langu = sy-langu.

gd_doc_data-obj_name = 'SAPRPT'.

gd_doc_data-obj_descr = psubject.

gd_doc_data-sensitivty = 'F'.

Describe the body of the message

clear it_packing_list.

refresh it_packing_list.

it_packing_list-transf_bin = space.

it_packing_list-head_start = 1.

it_packing_list-head_num = 0.

it_packing_list-body_start = 1.

describe table it_message lines it_packing_list-body_num.

it_packing_list-doc_type = 'RAW'.

append it_packing_list.

Add the recipients email address

clear it_receivers.

refresh it_receivers.

it_receivers-receiver = p_email.

it_receivers-rec_type = 'U'.

it_receivers-com_type = 'INT'.

it_receivers-notif_del = 'X'.

it_receivers-notif_ndel = 'X'.

append it_receivers.

Call the FM to post the message to SAPMAIL

call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'

exporting

document_data = gd_doc_data

put_in_outbox = 'X'

importing

sent_to_all = gd_sent_all

tables

packing_list = it_packing_list

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.

Store function module return code

gd_error = sy-subrc.

Get it_receivers return code

loop at it_receivers.

endloop.

endform. " SEND_EMAIL_MESSAGE

&----

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

Thanks,

Narasimha