How to send a mail as .txt attachment ?

Question

Hi all,
I got a requirement to write code for sending mail in oops.
i have written code for .xls which is working fine. But requirement is to send the mail in the format of txt.
i just only chnge the .xls to .txt where i can see the output properly in sap but problem is that i am unable to get the proper alignment. when i execute the report and see the output in sost i can see the attachment.i am downloading the attachment there only(Our server is not configured to get the mails directly) .So when i open the saved text file on my pc the output is appearing as follows...
pernr nachn vorna
        0001 L0001 F0001
            0002 L0002 F0002
               0003 L0003 F0003
                     0004 L0004 F0004...
Where it should come in straight line as follows in my o/p code..
pernr nachn vorna
0001 L0001 F0001
0002 L0002 F0002
0003 L0003 F0003
0004 L0004 F0004...
i am puttin g my code ..please correct me where i am wrong .....waiting for your valuabel inputs..
*& Report  ZGBTEST02
REPORT  YSAS_MAIL2.
*Changes done by sas
*PARAMETERS: P_MAIL TYPE AD_SMTPADR OBLIGATORY, " G C by sas
*P_MAIL1 TYPE AD_SMTPADR OBLIGATORY." G by sas
TABLES: ADR6.
SELECT-OPTIONS:P_EADDR FOR ADR6-SMTP_ADDR NO INTERVALS .
*end of changes by sas
DATA: I_GLT0 TYPE STANDARD TABLE OF GLT0.
*DATA: I_pernr  TYPE STANDARD TABLE OF pa0002.  " MARA Entries
DATA: BEGIN OF I_PERNR OCCURS 1 ,
PERNR TYPE PA0002-PERNR,
NACHN TYPE PA0002-NACHN,
VORNA TYPE PA0002-VORNA,
END OF I_PERNR..
*      I_MARC  TYPE STANDARD TABLE OF MARC.  " MARC Entries
DATA: L_TEXT  TYPE CHAR255.  " Text
DATA: L_LINES TYPE I,
      L_SIZE  TYPE SOOD-OBJLEN.
" Size of Attachment
* Mail related
DATA: I_CONTENT         TYPE   SOLI_TAB, " Mail content
      I_ATTACH          TYPE   SOLI_TAB, " Attachment
      I_ATTACH1         TYPE   SOLIX_TAB. " Attachment
DATA: L_SEND_REQUEST    TYPE REF TO    CL_BCS,
                                            " E-Mail Send Request
      L_DOCUMENT        TYPE REF TO    CL_DOCUMENT_BCS,
                                            " E-Mail Attachment
      L_RECIPIENT       TYPE REF TO    IF_RECIPIENT_BCS,
                                            " Distribution List
      L_SENDER          TYPE REF TO    IF_SENDER_BCS,
                                            " Address of Sender
      L_UNAME           TYPE           SALRTDRCPT,
                                            " Sender Name(SY-UNAME)
      L_BCS_EXCEPTION   TYPE REF TO    CX_DOCUMENT_BCS,
                                            " BCS Exception
      L_ADDR_EXCEPTION  TYPE REF TO    CX_ADDRESS_BCS,
                                            " Address Exception
      L_SEND_EXCEPTION  TYPE REF TO    CX_SEND_REQ_BCS.
" E-Mail sending Exception
*Constants------------------------------------------------------------*
CONSTANTS: C_TAB(1) TYPE C VALUE
           CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB,
                                     " Tab Character
           C_CR(1)  TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF,
                                     " Line Feed for End-Of_line
           C_EXT    TYPE SOODK-OBJTP VALUE 'TXT'. " XLS Extension
START-OF-SELECTION.
  SELECT PERNR NACHN VORNA  FROM PA0002 INTO CORRESPONDING FIELDS OF TABLE I_PERNR UP TO 20 ROWS.
*select * from glt0 into table i_glt0.
* Preparing body of the Mail
*  MOVE 'SAP Material Master Records' TO L_TEXT.
*  APPEND L_TEXT TO I_CONTENT.
*  CLEAR L_TEXT.
*  APPEND L_TEXT TO I_CONTENT.
*  MOVE 'Thanks,' TO L_TEXT.
*  APPEND L_TEXT TO I_CONTENT.
*  MOVE 'SAP MM' TO L_TEXT.
*  APPEND L_TEXT TO I_CONTENT.
  MOVE '<BR>Attached is your HRIS report(s) generated from the Firm''s' TO L_TEXT.
  APPEND L_TEXT TO I_CONTENT.
  MOVE ' Human Resources  Information System (SAP).' TO L_TEXT.
  APPEND L_TEXT TO I_CONTENT.
  MOVE '<BR>  ' TO L_TEXT.
  APPEND L_TEXT TO I_CONTENT.
  MOVE '<BR>This is an automated report.' TO L_TEXT.
  APPEND L_TEXT TO I_CONTENT.
*        MOVE '<BR>  ' TO l_text.
*        APPEND l_text TO i_content.
  MOVE '<BR>  ' TO L_TEXT.
  APPEND L_TEXT TO I_CONTENT.
*        MOVE '<BR>Please do not reply to this email' TO l_text.
*        APPEND l_text TO i_content.
*        MOVE '<BR>  ' TO l_text.
*        APPEND l_text TO i_content.
  MOVE '<BR>Thank you.' TO L_TEXT.
  APPEND L_TEXT TO I_CONTENT.
* Creates persistent send request
  TRY.
      L_SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).
* Creating Document
      L_DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(
                                    I_TYPE  = 'RAW'
                                    I_TEXT  = I_CONTENT[]
                                    I_SUBJECT = 'Automated HRIS (SAP) Report' ).
DATA: W_PERNR LIKE I_PERNR.
* Preparing contents of attachment with Change Log
      PERFORM PREPARE_ATTACHMENT.
      DATA: compressed like solisti1 occurs 10 with header line.
DATA: decompressed like solisti1 occurs 10 with header line.
      CALL FUNCTION 'TABLE_COMPRESS'
*   IMPORTING
*     COMPRESSED_SIZE       =
                    TABLES
*      in                    = eerec
                      in                    = i_attach
                      out                   = compressed.
      CALL FUNCTION 'TABLE_DECOMPRESS'
        TABLES
          in  = compressed
          out = decompressed.
      DESCRIBE TABLE decompressed LINES L_LINES.
* Size to multiplied by 2 for UNICODE enabled systems
      L_SIZE = L_LINES * 2 * 255.
* Adding Attachment
      CALL METHOD L_DOCUMENT->ADD_ATTACHMENT
        EXPORTING
          I_ATTACHMENT_TYPE    = C_EXT
          I_ATTACHMENT_SIZE    = L_SIZE
          I_ATTACHMENT_SUBJECT = 'Hr Details'
*          i_att_content_hex    = i_attach[].
          I_ATT_CONTENT_TEXT   = decompressed[].
*      DESCRIBE TABLE I_MARC LINES L_LINES.
* Size to multiplied by 2 for UNICODE enabled systems
*      L_SIZE = L_LINES * 2 * 255.
** Adding Attachment
*      CALL METHOD L_DOCUMENT->ADD_ATTACHMENT
*        EXPORTING
*          I_ATTACHMENT_TYPE    = C_EXT
*          I_ATTACHMENT_SIZE    = L_SIZE
*          I_ATTACHMENT_SUBJECT = 'MARC Details'
*          I_ATT_CONTENT_HEX    = I_ATTACH1[].
**          i_att_content_text   = i_attach1[].
* Add document to send request
      CALL METHOD L_SEND_REQUEST->SET_DOCUMENT( L_DOCUMENT ).
      DATA:LR_SENDER TYPE REF TO IF_SENDER_BCS,
           LR_SEND TYPE REF TO CL_BCS.
* Preparing the sender object
*      LR_SENDER = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( sy-uname ).
      DATA: L1_UNAME TYPE SY-UNAME.
      L1_UNAME = SY-UNAME.
      LR_SENDER = CL_SAPUSER_BCS=>CREATE( L1_UNAME ).
* Setting the sender
      CALL METHOD L_SEND_REQUEST->SET_SENDER
        EXPORTING
          I_SENDER = LR_SENDER.
* E-Mail
      LOOP AT P_EADDR.
        TRANSLATE P_EADDR-LOW TO LOWER CASE.
        L_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( P_EADDR-LOW ).
        CALL METHOD L_SEND_REQUEST->ADD_RECIPIENT
          EXPORTING
            I_RECIPIENT  = L_RECIPIENT
            I_EXPRESS    = 'U'
            I_COPY       = ' '
            I_BLIND_COPY = ' '
            I_NO_FORWARD = ' '.
        IF SY-SUBRC EQ 0.
          WRITE:/'** SUCCESS:  Email Sent to', P_EADDR-LOW COLOR COL_NORMAL.
        ELSE.
          WRITE:/'** ERROR: Failed to send Email to',P_EADDR-LOW COLOR COL_NEGATIVE .
        ENDIF.
      ENDLOOP.
*Trigger E-Mail immediately
      L_SEND_REQUEST->SET_SEND_IMMEDIATELY( ' ' ).
      CALL METHOD L_SEND_REQUEST->SEND( ).
      COMMIT WORK.
    CATCH CX_DOCUMENT_BCS INTO L_BCS_EXCEPTION.
    CATCH CX_SEND_REQ_BCS INTO L_SEND_EXCEPTION.
    CATCH CX_ADDRESS_BCS  INTO L_ADDR_EXCEPTION.
  ENDTRY.
*&      Form  PREPARE_ATTACHMENT
FORM PREPARE_ATTACHMENT .
  FIELD-SYMBOLS: <LFS_TABLE>,    " Internal table structure
                 <LFS_CON>.      " Field Content
  DATA: L_TEXT TYPE CHAR1024.     " Text content for mail attachment
  DATA: L_CON TYPE STRING. "(50) TYPE c.        " Field Content in character format
  DATA: L_STR TYPE STRING,
        L_STR1 TYPE STRING.
*data: w_pernr type TABLE OF I_PERNR.
  DATA: LS_SOLIX TYPE SOLIX.
*  CONCATENATE 'PERNR' 'FIRST NAME' 'Last Name' C_CR INTO L_TEXT SEPARATED BY '|'.
*  append l_text to i_attach.
*  clear l_text.
* Columns to be tab delimeted
  LOOP AT I_PERNR ASSIGNING <LFS_TABLE>.
    DO.
      ASSIGN COMPONENT SY-INDEX OF STRUCTURE <LFS_TABLE>
             TO <LFS_CON>.
      IF SY-SUBRC NE 0.
        CONCATENATE C_CR L_TEXT INTO L_TEXT.
*        CONCATENATE l_str c_cr l_text INTO l_str.
*        ls_solix-line = l_text.
*        APPEND ls_solix TO i_attach.
        APPEND L_TEXT TO I_ATTACH.
        EXIT.
      ELSE.
        CLEAR: L_CON.
        MOVE <LFS_CON> TO L_CON.
        CONDENSE L_CON.
        IF SY-INDEX = 1.
          CLEAR: L_TEXT.
          MOVE L_CON TO L_TEXT.
        ELSE.
          CONCATENATE L_TEXT L_CON INTO L_TEXT
             SEPARATED BY C_TAB.
        ENDIF.
      ENDIF.
    ENDDO.
  ENDLOOP.
*  i_attach1[] = i_attach[].
ENDFORM.                    " PREPARE_ATTACHMENT
Please if any one having 6.0 version please upload it and see..
Regards
Sas

Answer 1

Hi ,
Did you downloaded from  SOST  using the display icon and inside that 4th tab for attachment ....
and see?
Regards
sas
pS: THE FIRST page is not allowing the spaces in sdn...
i am getting o/p as
pernr vochn norna
.........0001 f0001 l0001
.................0002 F0002 L0002
.......................0003 F0003 L0003.....
Please remove dots and understand that is the o/p i am getting in my presenation file
i just expecting the o/p as told earlier..
Regards
sas