Email XML file as attachment in 4.6c

Question

Hi,
I have a requirement to generate an XML file and email it.
I am using Class CL_IXML to create the xml requirement.  The code is listed below
When I download the file to the PC, i am able to open the file and the XML format is ok, but when
I email the file using SO_NEW_DOCUMENT_ATT_SEND_API1, the attachment is still in the Binary format. Does anyone know how to send the file as an XML attachment.
We are using SAP R/3 ver 4.6c.
Load the class definition
  CLASS cl_ixml DEFINITION LOAD.
      Creating a ixml factory
  l_ixml = cl_ixml=>create( ).
      Creating the dom object model
  l_document = l_ixml->create_document( ).
Message
  l_element_message  = l_document->create_simple_element(
                name = 'Message'
              parent = l_document ).
Message Header
  l_element_message_hdr  = l_document->create_simple_element(
                    name = 'MessageHeader'
                  parent = l_element_message ).
Sender Id
  l_element_dummy = l_document->create_simple_element(
             name = 'SenderID'
            value = 'ABCDE'
           parent = l_element_message_hdr ).
Receipient Id
  l_element_dummy = l_document->create_simple_element(
             name = 'RecipientID'
            value = 'ZZZZZZZZZZZ'
           parent = l_element_message_hdr ).
Prepared
  l_element_dummy = l_document->create_simple_element(
             name = 'Prepared'
            value = '2009-03-31T14:30:00'
           parent = l_element_message_hdr ).
Msg ID
  l_element_dummy = l_document->create_simple_element(
             name = 'MessageID'
            value = '1234567896'
           parent = l_element_message_hdr ).
Msg type
  l_element_dummy = l_document->create_simple_element(
             name = 'MessageType'
            value = 'MANIFEST'
           parent = l_element_message_hdr ).
Msg ver
  l_element_dummy = l_document->create_simple_element(
             name = 'MessageVersion'
            value = '02'
           parent = l_element_message_hdr ).
  Creating a stream factory
  l_streamfactory = l_ixml->create_stream_factory( ).
  Connect internal XML table to stream factory
  l_ostream = l_streamfactory->create_ostream_itable( table = l_xml_table ).
  Rendering the document
  l_renderer = l_ixml->create_renderer( ostream  = l_ostream
                                                       document = l_document ).
  l_rc = l_renderer->render( ).
  Saving the XML document
  l_xml_size = l_ostream->get_num_written_raw( ).
Thanks
ND

Answer 1

Hi,
  I have one program conerts data to xml format.
TABLES:
  MAKT,                                "Mat description
  MARC,                                "Material / plant
  T001W,                               "plant name
  BHDGD.                               "Batch heading
Internal tables
DATA:
  BEGIN OF GT_MARC OCCURS 0,
    WERKS LIKE MARC-WERKS,
    MATNR LIKE MARC-MATNR,
  END OF GT_MARC,
Table to be downloaded as xml. Each line stores start and end tags
and the value
  BEGIN OF GT_XML OCCURS 0,
    LINE(120),
  END OF GT_XML,
  G_MAKTX(120).
User-input
SELECT-OPTIONS:
  S_WERKS FOR MARC-WERKS,
  S_MATNR FOR MARC-MATNR.
START-OF-SELECTION.
Extract all required data
  PERFORM MAIN_PROCESSING.
END-OF-SELECTION.
  SORT GT_MARC BY WERKS MATNR.
  LOOP AT GT_MARC.
    AT FIRST.                          "First tag must be root
      CLEAR GT_XML.
      GT_XML-LINE = ''.
    APPEND GT_XML.
    CLEAR GT_XML.
display data
    FORMAT COLOR 2 ON.
    WRITE :/ GT_MARC-MATNR, MAKT-MAKTX.
    FORMAT COLOR 2 OFF.
  ENDLOOP.
The last tag must be the root closing tag --*
  GT_XML-LINE = '</LOCATIONS>'.
  APPEND GT_XML.
  CLEAR GT_XML.
  CALL FUNCTION 'DOWNLOAD'
       EXPORTING
            FILENAME = 'C:PLANT1.XML'
            FILETYPE = 'ASC'
       TABLES
            DATA_TAB = GT_XML.
TOP-OF-PAGE.
  MOVE SY-TITLE TO BHDGD-LINE1.
  MOVE SY-REPID TO BHDGD-REPID.
  MOVE SY-UNAME TO BHDGD-UNAME.
  MOVE SY-DATUM TO BHDGD-DATUM.
  MOVE '0' TO BHDGD-INIFL.
  MOVE '132' TO BHDGD-LINES.
  FORMAT INTENSIFIED ON COLOR COL_HEADING.
  PERFORM BATCH-HEADING(RSBTCHH0).     "report header
Form READ_PLANT
FORM READ_PLANT.
Get plant name
  CLEAR T001W.
  SELECT SINGLE NAME1
    INTO T001W-NAME1
    FROM T001W
   WHERE WERKS EQ GT_MARC-WERKS.
ENDFORM.                               " READ_PLANT
Form MAIN_PROCESSING
FORM MAIN_PROCESSING.
Material and plant basic data
  SELECT WERKS MATNR
    INTO TABLE GT_MARC
    FROM MARC
   WHERE WERKS IN S_WERKS
     AND MATNR IN S_MATNR.
ENDFORM.                               " MAIN_PROCESSING
Form READ_DESCRIPTION
FORM READ_DESCRIPTION.
Material name
  CLEAR G_MAKTX.
  SELECT SINGLE MAKTX
    INTO G_MAKTX
    FROM MAKT
   WHERE MATNR EQ GT_MARC-MATNR
     AND SPRAS EQ 'E'.
Replace special character
  DO.
    REPLACE '&' WITH '*ù%;' INTO G_MAKTX.
    IF NOT SY-SUBRC IS INITIAL. EXIT.ENDIF.
  ENDDO.
  DO.
    REPLACE '*ù%;' WITH '&amp;' INTO G_MAKTX.
    IF NOT SY-SUBRC IS INITIAL. EXIT.ENDIF.
  ENDDO.
  DO.
    REPLACE '/' WITH '&#47;' INTO G_MAKTX.
    IF NOT SY-SUBRC IS INITIAL. EXIT.ENDIF.
  ENDDO.
ENDFORM.                               " READ_DESCRIPTION
END OF PROGRAM Z_DOWN_XML ************************
*******For sending data to mail check the following link*****
http://itknowledgeexchange.techtarget.com/itanswers/is-there-an-xml-function-module/
                                          (OR)
search in sdn.sap.com for mail data(xml)