Email from R/3 in the body instead of coming as attachment?

Question

Team,
I have defined a job via SM36:
program name : RM06BA00
send output to:Distribution List.
The email received in the MsOutlook inBox shows the message as an attachment. I want the contents of the message shown in the body of the email. Any ideas? (Emails are received in .HTM extension)
Thanks
PS. Gmail and Hotmail emails shows the message as attachment. Yahoo shows the contents of the message in the body of the email.

Answer 1

<b>The code is attaced below</b>
*& Report  ZSDN_SENDTXTVIAEMAIL                                        *
REPORT  ZSDN_SENDTXTVIAEMAIL                    .
*report zrich_0003 .
data: maildata like sodocchgi1.
data: mailtxt like solisti1 occurs 10 with header line.
data: mailrec like somlrec90 occurs 0 with header line.
data: list type table of abaplist with header line.
data: ascilines(1024) type c occurs 0 with header line.
data: htmllines type table of w3html with header line.
parameters: p_check.
start-of-selection.
Here you would submit the program with parameters
and export it to memory.
submit zrich_0004 exporting list to memory and return.
submit RM06BA00
USING SELECTION-SET 'OPEN REQ'              "a variant
    USING SELECTION-SETS OF PROGRAM 'RM06BA00'
exporting list to memory and return. "Disp REqs pgm
Get the list from memory
  call function 'LIST_FROM_MEMORY'
       tables
            listobject = list
       exceptions
            not_found  = 1
            others     = 2.
Format to HTML
  call function 'WWW_HTML_FROM_LISTOBJECT'
       tables
            html       = htmllines
            listobject = list.
  clear: maildata, mailtxt, mailrec.
  refresh: mailtxt, mailrec.
  maildata-obj_name = 'TEST'.
  maildata-obj_descr = 'Test Subject'.
Move the HTML lines into the body
of the email
  loop at htmllines.
    mailtxt = htmllines.
    append mailtxt.
  endloop.
  mailrec-receiver = '[email protected]'.
  mailrec-rec_type = 'U'.
  append mailrec.
  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.
Here you are forcing the system to send
the email right away.
  commit work.
  wait up to 2 seconds.
  submit rsconn01 with mode = 'INT'
               with output = 'X'
                          and return.