Scribd
Upload
13 views2 pages

Report Zrich - 0002.

The document describes building a test text message, adding receivers, and sending an email without a dialog in SAP. Forms are used to construct an HTML body, add a single test receiver, and send the email without user interaction.

Uploaded by

VAMSI ABAP
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
13 views2 pages

Report Zrich - 0002.

The document describes building a test text message, adding receivers, and sending an email without a dialog in SAP. Forms are used to construct an HTML body, add a single test receiver, and send the email without user interaction.

Uploaded by

VAMSI ABAP
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

report zrich_0002.

data: maildata like sodocchgi1.


data: mailtxt like solisti1 occurs 10 with header line.
data: mailrec like somlrec90 occurs 0 with header line.

start-of-selection.

clear: maildata, mailtxt, mailrec.


refresh: mailtxt, mailrec.

perform build_text_message.
perform build_receivers.
perform send_mail_nodialog..

************************************************************************
* Form BUILD_TEXT_MESSAGE
************************************************************************
form build_text_message.

maildata-obj_name = 'TEST'.
maildata-obj_descr = 'Test Subject'.

mailtxt = '<html>'.
append mailtxt.
mailtxt = '<head>'.
append mailtxt.
mailtxt = '<title>Untitled Document</title>'.
append mailtxt.
mailtxt = '<meta http-equiv="Content-Type" content="text/html;'.
append mailtxt.
mailtxt = 'charset=iso-8859-1">'.
append mailtxt.
mailtxt = '</head>'.
append mailtxt.
mailtxt = '<body>'.
append mailtxt.
mailtxt = '<div align="center"><em><font' .
append mailtxt.
mailtxt = 'color="#0000FF" size="+7" face="Arial,'.
append mailtxt.
mailtxt = 'Helvetica, sans-serif">THIS'.
append mailtxt.
mailtxt = ' IS A TEST </font></em><font' .
append mailtxt.
mailtxt = 'color="#0000FF" size="+7" face="Arial,'.
append mailtxt.
mailtxt = 'Helvetica, sans-serif"></font>'.
append mailtxt.
mailtxt = '</div>'.
append mailtxt.
mailtxt = '</body>'.
append mailtxt.
mailtxt = '</html>'.
append mailtxt.

endform.
************************************************************************
* Form BUILD_RECEIVERS
************************************************************************
form build_receivers.

* mailrec-receiver = '[email protected]'.
mailrec-rec_type = 'U'.
append mailrec.

endform.

************************************************************************
* Form SEND_MAIL_NODIALOG
************************************************************************
form send_mail_nodialog.

call function 'SO_NEW_DOCUMENT_SEND_API1'


exporting
document_data = maildata
document_type = 'HTM'
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.

endform.

You might also like