Author: name as link to Business Card
Submitted: <date>
Related Links:

• <link>

<How to send Internal Table to E_Mail address>

<Place the tutorial link to content location on community network or actual tutorial here >SPAN

*&---------------------------------------------------------------------*
*& Report  YKC_E_MAIL
*&
*&---------------------------------------------------------------------*
*& This prog teaches how one can send intenal table data as CSV to
*& e_mail
*& Author: Krishna  Date creation 6 Nov 2008
*&---------------------------------------------------------------------*
REPORT  ykc_e_mail .
TABLES: mara.
DATA: BEGIN OF it_tab OCCURS 0,
      matnr LIKE mara-matnr,
      ersda LIKE mara-ersda,  "creation date
      ernam LIKE mara-ernam,  "person created
      pstat LIKE mara-pstat,  "maint stat
      lvorm LIKE mara-lvorm,  "flg for deletion
      mtart LIKE mara-mtart,  "mat type
      meins LIKE mara-meins,  "uom
      END OF it_tab.
DATA: w_matnr(19) TYPE c,
      w_ersda(15) TYPE c,
      w_ernam(15) TYPE c,
      w_pstat(20) TYPE c,
      w_lvorm(20) TYPE c,
      w_mtart(20) TYPE c,
      w_meins(20) TYPE c.
DATA: w_filename(27) TYPE c.

*---------------------------------------------------------------------*
* S E L E C T I O N - S C R E E N.
*---------------------------------------------------------------------*
*SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-bl1.
PARAMETERS: p_email(50) TYPE c.
PARAMETERS: p_bdoc(20) TYPE c OBLIGATORY.  "for name of file to send
*SELECTION-SCREEN END OF BLOCK bl1.

*---------------------------------------------------------------------*
* S T A R T - O F - S E L E C T I O N.
*---------------------------------------------------------------------*
START-OF-SELECTION.
  PERFORM get_data.
  PERFORM p_send_email.

*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
*       text : getting data into internal table
*----------------------------------------------------------------------*
FORM get_data .
  SELECT matnr ersda ernam pstat lvorm mtart meins
         INTO TABLE it_tab
         FROM mara
         WHERE lvorm = 'X'.
ENDFORM.                    " get_data

*&---------------------------------------------------------------------*
*&      Form  p_send_email
*&---------------------------------------------------------------------*
*       text  :sending internal table to e_mail address
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM p_send_email .
  FIELD-SYMBOLS: <field> TYPE ANY.

  DATA :

BEGIN OF i_dload OCCURS 0 ,
 dload(1000) ,
END OF i_dload ,

it_receivers LIKE somlreci1 OCCURS 1 WITH HEADER LINE,
w_object_content LIKE solisti1 OCCURS 1 WITH HEADER LINE,
w_doc_data LIKE sodocchgi1 OCCURS 0 WITH HEADER LINE,
w_rsnum(10),
w_bdmng(14),
w_meins(4),

*---for e_mail address
ws_email LIKE adr6-smtp_addr,

*--Internal table declaration
it_objpack   LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE,
it_objhead   LIKE solisti1 OCCURS 1 WITH HEADER LINE,
it_objbin    LIKE solisti1 OCCURS 10 WITH HEADER LINE,
it_objtxt    LIKE solisti1 OCCURS 10 WITH HEADER LINE,
it_reclist   LIKE somlreci1 OCCURS 5 WITH HEADER LINE,
doc_chng  LIKE sodocchgi1,
tab_lines LIKE sy-tabix,
w_longtext(255) TYPE c,
v_date(10) TYPE c,
text(200)  TYPE c,
w_text(50) TYPE c,

*---declaration for diaplaying msg in the body of mail.
w_msga(18) TYPE c,
w_msgb(22) TYPE c,
w_msgc(27) TYPE c.

*--Get receipient address
  CLEAR it_reclist.
  
*---passing e_mail address
  ws_email = p_email.
  
*---setting name of file for csv
  w_filename = p_bdoc.
  
  IF p_email IS NOT INITIAL.
* build body of message
    CONCATENATE 'Display Message' ' ' INTO it_objtxt
    SEPARATED BY space.
    APPEND it_objtxt.
    CLEAR it_objtxt.
    it_reclist-receiver = ws_email.
    it_reclist-rec_type = 'U'.
    it_reclist-express  = ' '.
    it_reclist-com_type = 'INT'.
    APPEND it_reclist.
*--Set title of object and email
    CLEAR: w_text.
    doc_chng-obj_descr = 'Testing Message display'.
    doc_chng-obj_name  = 'INBOUND'.
    DESCRIBE TABLE it_objtxt LINES tab_lines.
    READ TABLE it_objtxt INDEX tab_lines.
    doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( it_objtxt ).
*--Move the Report Name as the Heading line for email file
    CLEAR: w_longtext.
    w_longtext = 'name of report for testing'.
    it_objbin = w_longtext.
    APPEND it_objbin. CLEAR it_objbin.
*--Append Blank Lines
    APPEND it_objbin. CLEAR it_objbin.
    APPEND it_objbin. CLEAR it_objbin.
**--User name
    CLEAR text.
    MOVE: 'User:'  TO text,
          sy-uname TO text+6.
    it_objbin = text.
    APPEND it_objbin. CLEAR it_objbin.
* ---appending heading to Internal table of Email
    CLEAR: w_matnr, w_ersda ,   w_ernam,   w_pstat,
           w_lvorm,  w_mtart, w_meins.
    w_matnr = 'Mat No.'.
    w_ersda = 'Creation Dt'.
    w_ernam = 'Person Created'.
    w_pstat = 'Maint Stat'.
    w_lvorm = 'Flg for Del'.
    w_mtart = 'Mat Type'.
    w_meins = 'UOM'.
    CONCATENATE w_matnr w_ersda w_ernam w_pstat w_lvorm w_mtart w_meins
               INTO w_longtext SEPARATED BY ','.
    it_objbin = w_longtext.
    APPEND it_objbin. CLEAR it_objbin.
    LOOP AT it_tab.
      DO.
        ASSIGN COMPONENT sy-index OF STRUCTURE it_tab TO <field>.
        IF sy-subrc <> 0.
          EXIT.
        ENDIF.
* Look for Commas in the field value.  If it exists, put quotes around
* value so that the file opens correctly with all the columns aligned
* in Excel.
        SEARCH <field> FOR ',' IN CHARACTER MODE.
* If search for commas are successful.
        IF sy-subrc = 0.
          CONCATENATE '"' <field> '"' INTO <field> IN CHARACTER MODE.
        ENDIF.
        IF sy-index = 1.
          i_dload-dload = <field>.
          SHIFT: i_dload-dload  LEFT DELETING LEADING space.
        ELSE.
* Put Comma as a separator for values in IT_DLOAD internal table
          SHIFT: i_dload-dload  LEFT DELETING LEADING space.
          CONCATENATE i_dload-dload <field> INTO i_dload-dload
                      SEPARATED BY ',' IN CHARACTER MODE.
        ENDIF.
      ENDDO.
      it_objbin = i_dload-dload.
      APPEND it_objbin. CLEAR it_objbin.
    ENDLOOP.
  ENDIF.
*  ENDIF.

*Convert to correct format
  CALL FUNCTION 'SO_RAW_TO_RTF'
    TABLES
      objcont_old = it_objbin
      objcont_new = it_objbin.
  
* create the control table entry for the main email
  DESCRIBE TABLE it_objtxt LINES tab_lines.
  CLEAR it_objpack-transf_bin.
  it_objpack-head_start = 1.
  it_objpack-head_num   = 0.
  it_objpack-body_start = 1.
  it_objpack-body_num   = tab_lines.
  it_objpack-doc_type   = 'RAW'.
  APPEND it_objpack.
  
  DESCRIBE TABLE it_objbin LINES tab_lines.
  it_objpack-head_start = 1.
  it_objpack-head_num   = 0.
  it_objpack-body_start = 1.
  it_objpack-body_num   = tab_lines.
  it_objpack-transf_bin = 'X'."'C'.
  it_objpack-doc_type   = 'CSV'.
  it_objpack-obj_descr  = w_filename.
  it_objpack-obj_name   = 'BILLING'.
  it_objpack-doc_size   = tab_lines * 255.
  APPEND it_objpack.
  
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc_chng
*      PUT_IN_OUTBOX              = c_x
      commit_work                = 'X'
    TABLES
      packing_list               = it_objpack
*      object_header              = it_objhead
      contents_bin               = it_objbin
      contents_txt               = it_objtxt
      receivers                  = it_reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
  IF sy-subrc <> 0.
    WRITE: / 'failure in sending mail'.
  ELSE.
    WRITE: / 'Success in sending mail'.
  ENDIF.
ENDFORM.                    " p_send_email