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 = ''.
append mailtxt.
mailtxt = ''.
append mailtxt.
mailtxt = 'Holla'.
append mailtxt.
mailtxt = ''.
append mailtxt.
mailtxt = ''.
append mailtxt.
mailtxt = ''.
append mailtxt.
mailtxt = '