Sending attached pdf format via email

Question

Hi,
i got one requirement. i have one program. When i execute the program it has to send the
Employee1, Employee2,employee3 data to Manager1 email id via email. The employee1, employee2, employee3 data should be stored in one folder and send it via email. I can send it individually like employee1 data manager1,again employee2 data to manager1 and again employee3 data to manager1.
But what i want is i have to store all these three pdf data  in one folder and send at one time.
similarly i have manager2,manager3...under managers some employess are there?
is it possible? if yes, could you please help me in this regard? Thanks in advance.

Answer 1

HI,
Please find below sample code..it may help you..but you need to do bit modification
DATA : LS_DOCDATA LIKE SODOCCHGI1,
         LT_DOCDATA TYPE STANDARD TABLE OF SODOCCHGI1,        " Table for subject
         LS_CONTENTS_MSG LIKE SOLISTI1,
         LT_CONTENTS_MSG TYPE STANDARD TABLE OF SOLISTI1,     " table for attachement
         LS_PACKING_LIST LIKE SOPCKLSTI1,
         LT_PACKING_LIST TYPE STANDARD TABLE OF SOPCKLSTI1,   " Table for Document type and length
         LS_OBJECT_HEADER LIKE SOLISTI1,
         LT_OBJECT_HEADER TYPE STANDARD TABLE OF SOLISTI1,     " Table for Header
         LS_CONTENTS_TXT LIKE SOLISTI1,
         LT_CONTENTS_TXT TYPE STANDARD TABLE OF SOLISTI1,      " Table for mail contents
         LS_RECEIVERS LIKE SOMLRECI1,
         LT_RECEIVERS TYPE STANDARD TABLE OF SOMLRECI1,        " Table for receiver,
Subject line
  LS_DOCDATA-OBJ_LANGU = sy-langu.
  LS_DOCDATA-OBJ_NAME = text-002.
  LS_DOCDATA-OBJ_DESCR = 'bunu'.
  LS_CONTENTS_MSG-LINE = 'BUNOO' .
  APPEND LS_CONTENTS_MSG TO LT_CONTENTS_MSG.
LS_CONTENTS_TXT-LINE = text-009.
  APPEND LS_CONTENTS_TXT TO LT_CONTENTS_TXT.
  clear LS_CONTENTS_TXT.
BREAK-POINT.
Content structure
  LS_PACKING_LIST-TRANSF_BIN = space.
  LS_PACKING_LIST-HEAD_START = 1.
  LS_PACKING_LIST-HEAD_NUM = 0.
  LS_PACKING_LIST-BODY_START = 1.
  DESCRIBE TABLE LT_CONTENTS_TXT LINES LS_PACKING_LIST-BODY_NUM .
  LS_PACKING_LIST-DOC_TYPE = 'RAW'.
  append LS_PACKING_LIST to Lt_PACKING_LIST.
Create attachment notification
  LS_PACKING_LIST-TRANSF_BIN = 'X'.
  LS_PACKING_LIST-HEAD_START = 1.
  LS_PACKING_LIST-HEAD_NUM   = 1.
  LS_PACKING_LIST-BODY_START = 1.
  DESCRIBE TABLE LT_CONTENTS_MSG LINES LS_PACKING_LIST-BODY_NUM.
  LS_PACKING_LIST-DOC_TYPE   =  'PDF'.
  LS_PACKING_LIST-OBJ_DESCR  =  'PDF ATTACHEMENT'.
  LS_PACKING_LIST-OBJ_NAME   =  'DEMO'.
  LS_PACKING_LIST-DOC_SIZE   =  LS_PACKING_LIST-BODY_NUM * 255.
  APPEND LS_PACKING_LIST TO Lt_PACKING_LIST.
  LS_RECEIVERS-RECEIVER = 'WRITE THE MAIL ID HERE'.
  LS_RECEIVERS-REC_TYPE = 'U'.
  APPEND LS_RECEIVERS TO LT_RECEIVERS.
  LS_RECEIVERS-RECEIVER = 'WRITE THE MAIL ID HERE' TO SEND IN CC FIELD'  .
  LS_RECEIVERS-REC_TYPE = 'U'.
  LS_RECEIVERS-COPY = 'X'.
  APPEND LS_RECEIVERS TO LT_RECEIVERS.
Send mail
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA                    = LS_DOCDATA
     PUT_IN_OUTBOX                    = 'X'
     COMMIT_WORK                      = 'X'
IMPORTING
  SENT_TO_ALL                      =
  NEW_OBJECT_ID                    =
    TABLES
      PACKING_LIST                     = Lt_PACKING_LIST
  OBJECT_HEADER                    =
   CONTENTS_BIN                     = LT_CONTENTS_MSG
     CONTENTS_TXT                     = LT_CONTENTS_TXT
  CONTENTS_HEX                     =
  OBJECT_PARA                      =
  OBJECT_PARB                      =
      RECEIVERS                        = LT_RECEIVERS
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.
Regards
Ansumesh