email attachment

[Former Member]

i have to creat a report that will fetch data from a table and create a csv file with this data.

a batch input job is run daily to check for new entries in this file.for any new entries in this file a email is sent to a particular address with this text file as attachment1'

how do we do this

[Former Member]

Hello,

Please read these:

[/people/thomas.jung3/blog/2004/09/08/sending-e-mail-from-abap--version-610-and-higher--bcs-interface]

[/people/thomas.jung3/blog/2004/09/09/receiving-e-mail-and-processing-it-with-abap--version-610-and-higher]

Regards.

[Former Member]

Check this fm:

FUNCTION Z_SEND_MAIL_FOR_SPOOLLIST.

*"----

---

""Local interface:

*" IMPORTING

*" REFERENCE(SPOOLNUMBER) LIKE SY-SPONO DEFAULT SY-SPONO

*" REFERENCE(MAILNAME) LIKE SOOD1-OBJNAM DEFAULT 'NOTE'

*" REFERENCE(SUBJECT) LIKE SOOD1-OBJDES

*" REFERENCE(RECEPIENT) LIKE SY-UNAME DEFAULT SY-UNAME

*" REFERENCE(DLI) LIKE SOOS1-DLINAM OPTIONAL

*" TABLES

*" TEXT STRUCTURE SOLI

*" EXCEPTIONS

*" ERROR

*"----

---

DATA: OBJECT_HD_CHANGE LIKE SOOD1 OCCURS 0 WITH HEADER LINE,

OBJPARA LIKE SELC OCCURS 0 WITH HEADER LINE,

RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE.

OBJECT_HD_CHANGE-OBJLA = SY-LANGU.

OBJECT_HD_CHANGE-OBJNAM = MAILNAME.

OBJECT_HD_CHANGE-OBJDES = SUBJECT.

OBJECT_HD_CHANGE-OBJSNS = 'F'.

OBJECT_HD_CHANGE-VMTYP = 'T'.

OBJECT_HD_CHANGE-SKIPS = 'X'.

OBJECT_HD_CHANGE-ACNAM = 'SP01'.

OBJECT_HD_CHANGE-OBJCP = 'X'.

OBJECT_HD_CHANGE-OBJPRI = '1'.

*OBJECT_HD_CHANGE-ACOUT = 'X'.

RECEIVERS-RCDAT = SY-DATUM.

RECEIVERS-RCTIM = SY-UZEIT.

IF DLI IS INITIAL.

RECEIVERS-RECNAM = RECEPIENT.

RECEIVERS-RTUNAM = RECEPIENT.

ELSE.

RECEIVERS-RECNAM = DLI.

RECEIVERS-ADR_NAME = DLI.

RECEIVERS-RECESC = 'C'.

ENDIF.

RECEIVERS-SNDEX = 'X'. " Express-Mail

*RECEIVERS-SNDPRI = 'X'.

move 'B' TO RECEIVERS-RECESC.

move '1' TO RECEIVERS-ACONE.

RECEIVERS-DELIVER = 'X'.

*RECEIVERS-NOT_DELI = 'X'.

RECEIVERS-READ = 'X'.

RECEIVERS-MAILSTATUS = 'E'.

APPEND RECEIVERS.

OBJPARA-NAME = 'SPI'.

OBJPARA-LOW = SPOOLNUMBER.

APPEND OBJPARA.

CALL FUNCTION 'SO_OBJECT_SEND'

EXPORTING

OBJECT_HD_CHANGE = OBJECT_HD_CHANGE

OBJECT_TYPE = 'RAW'

OWNER = SY-UNAME

TABLES

OBJCONT = TEXT

OBJPARA = OBJPARA

RECEIVERS = RECEIVERS

EXCEPTIONS

OTHERS = 01.

IF SY-SUBRC NE 0.

• RAISE ERROR.

ENDIF.

COMMIT WORK.

CALL FUNCTION 'SO_DEQUEUE_UPDATE_LOCKS'.

ENDFUNCTION.