Internet mail with attachment

Question

Hi,
Is it possible to send the content of an internal table of a program as attachment of Internet mail .
In abapprogrammin?
is it possible to sent this in pdf format ?
Thanks for the help!
rgds,

Answer 1

before that use the function module  "CONVERT_OTF_2_PDF"
this program is used to send mails to the users internet mail addresses.
REPORT ZSRIM_PRG_MAIL1 .
DATA : L_TABLE_LINES LIKE SY-TABIX,                   " table index
         L_TAB TYPE X VALUE '09',                       " TAB value
         L_MANDT TYPE SY-MANDT.                         " Client
  DATA: X_DOC_CHNG LIKE SODOCCHGI1,              " document attributes
        IT_OBJPACK LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
                                                 " attachment table
        IT_OBJHEAD LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
                                                 " object header table
        IT_OBJBIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
                                                 " binary table
        IT_OBJTXT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        IT_RECLIST LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE.
  CLEAR IT_RECLIST.
  REFRESH IT_RECLIST.
*-popualate email ids
      IT_RECLIST-RECEIVER = <mail id of the receiver'.
      IT_RECLIST-REC_TYPE = 'U'.
*-append receiver table
      APPEND IT_RECLIST.
      CLEAR  IT_RECLIST.
*-populate document attributes
    CLEAR: X_DOC_CHNG.
    X_DOC_CHNG-OBJ_NAME = 'HEADING'.
    X_DOC_CHNG-OBJ_DESCR = 'SOME DESCRIPTION'.
*-populate body text
    IT_OBJTXT = 'heading --Report is attached'.
    APPEND IT_OBJTXT.
*-document size
    CLEAR : L_TABLE_LINES.
    DESCRIBE TABLE IT_OBJTXT LINES L_TABLE_LINES.
    READ TABLE IT_OBJTXT INDEX L_TABLE_LINES.
    X_DOC_CHNG-DOC_SIZE =
                 ( L_TABLE_LINES - 1 ) * 255 + STRLEN( IT_OBJTXT ).
*-populate packing list for body text
    CLEAR IT_OBJPACK-TRANSF_BIN.
    IT_OBJPACK-HEAD_START = 1.
    IT_OBJPACK-HEAD_NUM = 0.
    IT_OBJPACK-BODY_START = 1.
    IT_OBJPACK-BODY_NUM = L_TABLE_LINES.
    IT_OBJPACK-DOC_TYPE = 'RAW'.
    APPEND IT_OBJPACK.
    CLEAR IT_OBJPACK.
*-populate object header
    IT_OBJHEAD = 'Arcos Error Report'(057).
    APPEND IT_OBJHEAD.
    CLEAR  IT_OBJHEAD.
*--for attachment ---start
*-populate object bin table for attachment
*-column header
    CONCATENATE 'Document No.'
                'Year'
               'Item'
               'Material No.'
                'Error Text'
                INTO  IT_OBJBIN SEPARATED BY L_TAB.
    APPEND IT_OBJBIN.
    CLEAR  IT_OBJBIN.
*-error details
      CONCATENATE '1'
                  '1st record'
                  '1st record in attachment'
           INTO   IT_OBJBIN SEPARATED BY L_TAB.
      APPEND IT_OBJBIN.
      CLEAR  IT_OBJBIN.
      CONCATENATE '2'
                  '2st record'
                  '2st record in attachment'
           INTO   IT_OBJBIN SEPARATED BY L_TAB.
      APPEND IT_OBJBIN.
      CLEAR  IT_OBJBIN.
*-get total no.of lines of Object table(attachment)
    CLEAR : L_TABLE_LINES.
    DESCRIBE TABLE IT_OBJBIN LINES L_TABLE_LINES.
*-populate object header
    IT_OBJHEAD = 'Report'.
    APPEND IT_OBJHEAD.
    CLEAR  IT_OBJHEAD.
*-packing list for attachment
    IT_OBJPACK-TRANSF_BIN = 'X'.
    IT_OBJPACK-HEAD_START = 1.
    IT_OBJPACK-HEAD_NUM = 1.
    IT_OBJPACK-BODY_START = 1.
    IT_OBJPACK-BODY_NUM = L_TABLE_LINES .
    IT_OBJPACK-DOC_TYPE = 'RAW' .
    IT_OBJPACK-OBJ_NAME = 'ABCD'.
    IT_OBJPACK-OBJ_DESCR = 'ERROR REPORT'.
    IT_OBJPACK-DOC_SIZE = L_TABLE_LINES * 255.
    APPEND IT_OBJPACK.
    CLEAR  IT_OBJPACK.
*--code for attachment -- end
*-Sending the document
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
         EXPORTING
              DOCUMENT_DATA              = X_DOC_CHNG
             PUT_IN_OUTBOX              = 'X'
             COMMIT_WORK                = 'X'
   IMPORTING
        SENT_TO_ALL                =
        NEW_OBJECT_ID              =
         TABLES
              PACKING_LIST               = IT_OBJPACK
             OBJECT_HEADER              = IT_OBJHEAD
             CONTENTS_BIN               = IT_OBJBIN
             CONTENTS_TXT               = IT_OBJTXT
        CONTENTS_HEX               =
        OBJECT_PARA                =
        OBJECT_PARB                =
              RECEIVERS                  = IT_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.