pb with table display in mail

Tue Sep 12 03:42:57 EDT 2006

Hi Workflow experts,
   I am using the fuction module [b]SO_NEW_DOCUMENT_SEND_API1[/b] for
sending mail when a PO is created.I need to display the line item details in
PO in a table format in the mail.so I am using the HTML tags in my program
as follows(this is a sample code) for drawing table.But it is not displaying
the data in table format in the mail.It is just displaying as

Dear user Test Mail...
TABLE CAPTION
Firstcell     Secondcell

So kindly clarify what I am missing or propose any other way of doing this.

Thanks in Advance...

[b]Source Code[/b]
REPORT ZTSS_MAIL .
DATA:  T_RECLIST LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE,
       T_OBJCONT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.
DATA:  S_DOC_CHNG LIKE SODOCCHGI1.

S_DOC_CHNG-SENSITIVTY = 'P'.
S_DOC_CHNG-OBJ_DESCR = 'Sample'.

      T_OBJCONT-LINE = 'Dear user'.
      APPEND T_OBJCONT.
      CLEAR  T_OBJCONT.

      T_OBJCONT-LINE = 'Test Mail...'.
      APPEND T_OBJCONT.
      CLEAR  T_OBJCONT.

T_OBJCONT-LINE = '<HTML>'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = '<TABLE>'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = '<CAPTION>'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = 'TABLE CAPTION'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = '</CAPTION>'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = '<TR>'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = '<TD>'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = 'Firstcell'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = '<TD>'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = 'Secondcell'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = '</TABLE>'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_OBJCONT-LINE = '</HTML>'.
APPEND T_OBJCONT.
CLEAR  T_OBJCONT.

T_RECLIST-RECEIVER = 'user at emailid.com'.
T_RECLIST-REC_TYPE = 'U'.
APPEND T_RECLIST.

    CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
     EXPORTING
          DOCUMENT_DATA              = S_DOC_CHNG
          DOCUMENT_TYPE              = 'HTM'
     TABLES
          OBJECT_CONTENT             = T_OBJCONT
          RECEIVERS                  = T_RECLIST
     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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mailman.mit.edu/pipermail/sap-wug/attachments/20060912/5ae082ac/attachment.htm