Searching for a possibility to send data of an itab vial email

Question

Hello,
i want to send data from an itab to an external emailadress. Does anybody know a FM or something other?
Thanks for your help

Answer 1

Below is the sample code for sending and email, just concatenate all the field line into one and pass that table to
CONTENTS_BIN as attachment.
DATA:
    L_DATE(10).
DATA:
  LI_RECLIST         LIKE SOMLRECI1  OCCURS 5  WITH HEADER LINE,
  LI_OBJTXT          LIKE SOLISTI1   OCCURS 10 WITH HEADER LINE,
  LI_OBJECT_CONT     LIKE SOLI       OCCURS 20 WITH HEADER LINE,
  LI_OBJPACK         LIKE SOPCKLSTI1 OCCURS 2  WITH HEADER LINE,
  LI_OBJHEAD         LIKE SOLISTI1   OCCURS 1  WITH HEADER LINE,
  LS_DOC_CHNG        LIKE SODOCCHGI1,
  LV_LINES           TYPE I,
  GI_OUTPUT          LIKE SOLISTI1   OCCURS 5  WITH HEADER LINE.
DO 10 TIMES.
  GI_OUTPUT-LINE = 'Answerthink'.
  APPEND GI_OUTPUT.
ENDDO.
WRITE SY-DATUM TO L_DATE.
LS_DOC_CHNG-OBJ_NAME  = 'ANGEBOT'.
CONCATENATE 'ZMBIBC_CCMS_LOAD Error Report u2013'
            L_DATE
       INTO LS_DOC_CHNG-OBJ_DESCR.
LI_OBJTXT = 'Please find the attached document'.
APPEND LI_OBJTXT.
CLEAR  LI_OBJTXT.
DESCRIBE TABLE LI_OBJTXT LINES LV_LINES.
READ TABLE LI_OBJTXT INDEX LV_LINES.
LS_DOC_CHNG-DOC_SIZE = ( LV_LINES - 1 ) * 255 + STRLEN( LI_OBJTXT ).
* Creation of the entry for the compressed document - body text
CLEAR LI_OBJPACK-TRANSF_BIN.
LI_OBJPACK-HEAD_START = 1.
LI_OBJPACK-HEAD_NUM   = 0.
LI_OBJPACK-BODY_START = 1.
LI_OBJPACK-BODY_NUM   = LV_LINES.
LI_OBJPACK-DOC_TYPE   = 'RAW'.
APPEND LI_OBJPACK.
DESCRIBE TABLE GI_OUTPUT LINES LV_LINES.
LI_OBJHEAD = 'OUTPUT'.
APPEND LI_OBJHEAD.
LI_OBJPACK-TRANSF_BIN = 'X'.
LI_OBJPACK-HEAD_START = 1.
LI_OBJPACK-HEAD_NUM   = 1.
LI_OBJPACK-BODY_START = 1.
LI_OBJPACK-BODY_NUM   = LV_LINES.
LI_OBJPACK-DOC_TYPE   = 'RAW'.
LI_OBJPACK-OBJ_NAME   = 'ANLAGE'.
LI_OBJPACK-OBJ_DESCR  = 'Output List'.
LI_OBJPACK-DOC_SIZE   = LV_LINES * 255.
APPEND LI_OBJPACK.
LI_RECLIST-RECEIVER = 'give email address.
LI_RECLIST-REC_TYPE = 'U'.
LI_RECLIST-EXPRESS  = 'X'.
APPEND LI_RECLIST.
CLEAR LI_RECLIST.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
  EXPORTING
    DOCUMENT_DATA              = LS_DOC_CHNG
    PUT_IN_OUTBOX              = 'X'
  TABLES
    PACKING_LIST               = LI_OBJPACK
    OBJECT_HEADER              = LI_OBJHEAD
    CONTENTS_BIN               = GI_OUTPUT
    CONTENTS_TXT               = LI_OBJTXT
    RECEIVERS                  = LI_RECLIST
  EXCEPTIONS
    TOO_MANY_RECEIVERS         = 1
    DOCUMENT_NOT_SENT          = 2
    OPERATION_NO_AUTHORIZATION = 4
    OTHERS                     = 99.
BREAK PANAKAPALLY.
SUBMIT RSCONN01 WITH MODE   EQ 'INT'
                WITH OUTPUT EQ SPACE
                 AND RETURN.
COMMIT WORK AND WAIT.
CASE SY-SUBRC.
  WHEN 0.
    LOOP AT LI_RECLIST.
      IF LI_RECLIST-RETRN_CODE = 0.
        MESSAGE S000(Z1) WITH 'The document was sent'.
      ELSE.
        MESSAGE S000(Z1) WITH 'The document could not be sent'.
      ENDIF.
    ENDLOOP.
  WHEN 1.
    MESSAGE S000(Z1) WITH 'No authorization for sending'
                          'to the specified number'
                         'of recipients'.
  WHEN 2.
    MESSAGE S000(Z1) WITH 'Document could not be'
                           'sent to any recipient'.
  WHEN 4.
    MESSAGE S000(Z1) WITH 'No send authorization'.
  WHEN OTHERS.
    MESSAGE S000(Z1) WITH 'Error occurred while sending'.
ENDCASE.