Sending Mail

[rahul2000]

Dear all,

I want to send a an ALV report as a mail.I have given a popup asking whether the report should be displayed or mail should be sent.If the user selects YES...then we have to call the screen which is called by selecting the path LIST-SEND TO-MAIL RECEPIENT and for NO ALV report should be displayed which is working fine.

How can this be done?

[Former Member]

HI,

FORM mail_versand.

if not imail is initial.

document_data-obj_name = "Name".

document_data-obj_descr = '"Description"'.

document_data-obj_langu = 'EN'.

CONCATENATE 'System:'

sy-sysid

'Datum:'

sy-datum

INTO obj_co-line

SEPARATED BY space.

append obj_co.

loop at imail.

concatenate 'Text: '

imail-matnr

' in langue: '

imail-spras

'('

imail-text

') okay

INTO obj_co-line.

append obj_co.

endloop.

append obj_co.

loop at dreceiv.

MOVE dreceiv-low TO receivers-receiver.

receivers-rec_type = 'U'.

APPEND receivers.

endloop.

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'

EXPORTING

document_data = document_data

document_type = 'RAW'

TABLES

object_content = obj_co

receivers = 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 NE 0.

MESSAGE e918 WITH 'Error'.

ELSE.

MESSAGE s918 WITH 'OK'.

receivers-receiver.

ENDIF.

endif.

ENDFORM. " mail_versand

Regards

Nicole

[rahul2000]

hi nicole...

can u plz tell me what is u r type of u r table obj_co

[Former Member]

data: begin of imail occurs 0,

matnr like mara-matnr,

spras like thead-tdspras,

text like BAPIRET2-MESSAGE,

end of imail.

DATA: document_data LIKE sodocchgi1,

gv_prozent TYPE i,

receivers LIKE somlreci1 OCCURS 1 WITH HEADER LINE,

obj_co LIKE solisti1 OCCURS 1 WITH HEADER LINE.

Reward points if helfull

Nicole

[Former Member]

use this fm.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

DOCUMENT_DATA = WA_DOC_CHNG

PUT_IN_OUTBOX = 'X'

COMMIT_WORK = 'X'

TABLES

PACKING_LIST = I_OBJPACK

OBJECT_HEADER = WA_OBJHEAD

CONTENTS_BIN = I_OBJBIN

CONTENTS_TXT = I_OBJTXT

RECEIVERS = I_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.

but before u have to take the email address from the user with a popup window as u said.

I used it to send a pdf document.

hope it will help.

[Former Member]

go through this..

REPORT ZSAP_EMAIL MESSAGE-ID Z001.

*TABLES: rlgrap, btcxpm." zlookup.

DATA:

V_ZCODE(3) TYPE C,

*svrname LIKE zlookup-zdesc,

WA_ERROR(80) TYPE C,

GLOBAL_FILEMASK_ALL(80).

DATA: T_SOUD LIKE SOUD.

DATA: P_INFOLDER LIKE SOFDK.

DATA: P_OUTFOLDER LIKE SOFDK.

DATA: OBJECT_HD_DISPLAY LIKE SOOD2.

DATA: OBJECT_ID LIKE SOODK.

DATA: DOCUMENT LIKE SOOD4.

DATA: HEADER_DATA LIKE SOOD2.

DATA: LINK_FOLDER_ID LIKE SOODK.

DATA: FOLDER_SELECTIONS LIKE SOFDS.

DATA: FOLDER_LIST LIKE SOXLI OCCURS 0 WITH HEADER LINE.

DATA: RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE.

DATA: OBJCONT LIKE SOLI OCCURS 0 WITH HEADER LINE.

DATA: OBJHEAD LIKE SOLI OCCURS 0 WITH HEADER LINE.

DATA: OBJECT_CONTENT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.

DATA: OBJECT_HD_CHANGE LIKE SOOD1.

DATA: BEGIN OF FILES OCCURS 0,

LINE(200) TYPE C,

END OF FILES.

DATA: LISTOBJECT LIKE ABAPLIST OCCURS 1 WITH HEADER LINE.

*Email to addresses

SELECTION-SCREEN: BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1.

PARAMETERS: P_MAILTO(240) TYPE C.

*PARAMETERS:P_MAILTO TYPE SOLI-LINE.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN COMMENT 10(2) TEXT-001.

*Use zlookup-ztype as group to define multiple email to addresses

*SELECT-OPTIONS: s_mailto FOR zlookup-ztype.

SELECTION-SCREEN: END OF BLOCK BL1.

*Subject

SELECTION-SCREEN: BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-BL2.

PARAMETERS: P_SUBJ LIKE DOCUMENT-OBJDES.

SELECTION-SCREEN: END OF BLOCK BL2.

*Body

SELECTION-SCREEN: BEGIN OF BLOCK BL3 WITH FRAME TITLE TEXT-BL3.

PARAMETERS: P_BODY1 LIKE SOLISTI1-LINE LOWER CASE.

PARAMETERS: P_BODY2 LIKE SOLISTI1-LINE LOWER CASE.

PARAMETERS: P_BODY3 LIKE SOLISTI1-LINE LOWER CASE.

PARAMETERS: P_BODY4 LIKE SOLISTI1-LINE LOWER CASE.

PARAMETERS: P_BODY5 LIKE SOLISTI1-LINE LOWER CASE.

PARAMETERS: P_BODY6 LIKE SOLISTI1-LINE LOWER CASE.

SELECTION-SCREEN: END OF BLOCK BL3.

*Attachments

SELECTION-SCREEN: BEGIN OF BLOCK BL4 WITH FRAME TITLE TEXT-BL4.

PARAMETERS: P_FNAME1 LIKE FILES-LINE.

PARAMETERS: P_FNAME2 LIKE FILES-LINE.

PARAMETERS: P_FNAME3 LIKE FILES-LINE.

PARAMETERS: P_FNAME4 LIKE FILES-LINE.

PARAMETERS: P_FNAME5 LIKE FILES-LINE.

PARAMETERS: P_FNAME6 LIKE FILES-LINE.

SELECTION-SCREEN: END OF BLOCK BL4.

AT SELECTION-SCREEN.

PERFORM CHK_SELECTION.

IF NOT WA_ERROR IS INITIAL.

MESSAGE E001 WITH WA_ERROR.

ENDIF.

START-OF-SELECTION.

END-OF-SELECTION.

PERFORM SEND_EMAIL.

*----

---

FORM chk_selection

*----

---

........

*----

---

FORM CHK_SELECTION.

CLEAR WA_ERROR.

*Loop only once ???

*If more checkings to be done.

*Think about it and if not clear.

*Let it sink in for a couple of minutes.

*Still doesn't make sence? Go home and sleep on it.

DO 1 TIMES.

*Check Email to

IF P_MAILTO IS INITIAL .

*AND s_mailto IS INITIAL.

WA_ERROR = 'Invalid or no EMAIL TO selection'.

EXIT.

ENDIF.

ENDDO.

ENDFORM. "chk_selection

*&----

---

*& Form send_email

*&----

---

*text

*----

---

*

*--> p1 text

*<-- p2 text

*----

---

FORM SEND_EMAIL.

PERFORM GET_FOLDER_INFO.

PERFORM FILL_BODY.

PERFORM INS_NEW_OBJECT.

PERFORM CRT_ATTACHMENTS.

PERFORM FILL_RECEIVERS_INFO.

PERFORM SND_EMAIL.

ENDFORM. " send_email

*--

---

+--

---

*FORM Get_folder_info

*----

---

........

*----

---

FORM GET_FOLDER_INFO.

CLEAR T_SOUD.

*Small so should be quick.

SELECT * FROM SOUD

INTO T_SOUD

WHERE SAPNAM = SY-UNAME.

P_INFOLDER-FOLTP = 'FOL'.

P_INFOLDER-FOLYR = T_SOUD-INBYR. "inbox

P_INFOLDER-FOLNO = T_SOUD-INBNO.

P_OUTFOLDER-FOLTP = 'FOL'.

P_OUTFOLDER-FOLYR = T_SOUD-OUTYR. "outbox

P_OUTFOLDER-FOLNO = T_SOUD-OUTNO.

ENDSELECT.

ENDFORM. "get_folder_info

*----

---

*

*FORM fill_body *

*----

---

*........ *

*----

---

FORM FILL_BODY.

OBJECT_CONTENT-LINE = P_BODY1.

APPEND OBJECT_CONTENT.

OBJECT_CONTENT-LINE = P_BODY2.

APPEND OBJECT_CONTENT.

OBJECT_CONTENT-LINE = P_BODY3.

APPEND OBJECT_CONTENT.

OBJECT_CONTENT-LINE = P_BODY4.

APPEND OBJECT_CONTENT.

OBJECT_CONTENT-LINE = P_BODY5.

APPEND OBJECT_CONTENT.

OBJECT_CONTENT-LINE = P_BODY6.

APPEND OBJECT_CONTENT.

ENDFORM. "fill_body

*----

---

*FORM ins_new_object *

*----

---

*

*........ *

*----

---

FORM INS_NEW_OBJECT.

OBJECT_HD_CHANGE-OBJNAM = 'Notes'.

OBJECT_HD_CHANGE-OBJDES = P_SUBJ.

CALL FUNCTION 'SO_OBJECT_INSERT'

EXPORTING

FOLDER_ID = P_OUTFOLDER

OBJECT_HD_CHANGE = OBJECT_HD_CHANGE

OBJECT_TYPE = 'RAW'

OWNER = SY-UNAME

IMPORTING

OBJECT_HD_DISPLAY = OBJECT_HD_DISPLAY

OBJECT_ID = OBJECT_ID

TABLES

OBJCONT = OBJECT_CONTENT

OBJHEAD = OBJHEAD

EXCEPTIONS

ACTIVE_USER_NOT_EXIST = 1

COMMUNICATION_FAILURE = 2

COMPONENT_NOT_AVAILABLE = 3

DL_NAME_EXIST = 4

FOLDER_NOT_EXIST = 5

FOLDER_NO_AUTHORIZATION = 6

OBJECT_TYPE_NOT_EXIST = 7

OPERATION_NO_AUTHORIZATION = 8

OWNER_NOT_EXIST = 9

PARAMETER_ERROR = 10

SUBSTITUTE_NOT_ACTIVE = 11

SUBSTITUTE_NOT_DEFINED = 12

SYSTEM_FAILURE = 13

X_ERROR = 14

OTHERS = 15.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. "ins_new_object

*----

---

*FORM crt_attachments *

*----

---

*........ *

*----

---

*--> P_SUBJ *

*----

---

FORM CRT_ATTACHMENTS.

DOCUMENT-FOLTP = P_OUTFOLDER-FOLTP.

DOCUMENT-FOLYR = P_OUTFOLDER-FOLYR.

DOCUMENT-FOLNO = P_OUTFOLDER-FOLNO.

DOCUMENT-OBJTP = OBJECT_ID-OBJTP.

DOCUMENT-OBJYR = OBJECT_ID-OBJYR.

DOCUMENT-OBJNO = OBJECT_ID-OBJNO.

DOCUMENT-OBJNAM = 'Notes'.

DOCUMENT-OBJDES = P_SUBJ.

DOCUMENT-OKCODE = 'CHNG'.

DOCUMENT-FILE_EXT = 'TXT'.

LINK_FOLDER_ID = OBJECT_ID.

HEADER_DATA-OBJLA = 'EN'.

HEADER_DATA-OBJNAM = DOCUMENT-OBJNAM.

HEADER_DATA-OBJDES = DOCUMENT-OBJDES.

HEADER_DATA-OBJPRI = '5'.

HEADER_DATA-OBJSNS = 'O'.

HEADER_DATA-FILE_EXT = 'TXT'.

REFRESH FILES.

CLEAR FILES.

IF NOT P_FNAME1 IS INITIAL.

FILES-LINE = P_FNAME1.

APPEND FILES.

ENDIF.

IF NOT P_FNAME2 IS INITIAL.

FILES-LINE = P_FNAME2.

APPEND FILES.

ENDIF.

IF NOT P_FNAME3 IS INITIAL.

FILES-LINE = P_FNAME3.

APPEND FILES.

ENDIF.

IF NOT P_FNAME4 IS INITIAL.

FILES-LINE = P_FNAME4.

APPEND FILES.

ENDIF.

IF NOT P_FNAME5 IS INITIAL.

FILES-LINE = P_FNAME5.

APPEND FILES.

ENDIF.

IF NOT P_FNAME6 IS INITIAL.

FILES-LINE = P_FNAME6.

APPEND FILES.

ENDIF.

IF NOT FILES[] IS INITIAL.

CALL FUNCTION 'SO_DOCUMENT_REPOSITORY_MANAGER'

EXPORTING

METHOD = 'ATTCREATEFROMPC'

TABLES

FILES = FILES

CHANGING

DOCUMENT = DOCUMENT

HEADER_DATA = HEADER_DATA.

IF SY-SUBRC = 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDIF.

ENDFORM. "crt_attachments

*----

---

*FORM fill_receivers_info *

*----

---

*........ *

*----

---

FORM FILL_RECEIVERS_INFO.

DATA: BEGIN OF RECLIST OCCURS 0,

REC LIKE RECEIVERS-RECEXTNAM,

END OF RECLIST.

*Build reclist

REFRESH RECLIST.

IF NOT P_MAILTO IS INITIAL.

RECLIST-REC = P_MAILTO.

APPEND RECLIST.

ENDIF.

*IF NOT s_mailto IS INITIAL.

*SELECT zdesc

*INTO reclist-rec

*FROM zlookup

*WHERE ztype IN s_mailto.

*APPEND reclist.

*ENDSELECT.

*ENDIF.

REFRESH RECEIVERS.

LOOP AT RECLIST.

FOLDER_SELECTIONS-FOLNAM = 'INBOX'.

CALL FUNCTION 'SO_FOLDER_LIST_READ'

EXPORTING

FOLDER_SELECTIONS = FOLDER_SELECTIONS

OWNER = SY-UNAME

REGION = 'P'

TABLES

FOLDER_LIST = FOLDER_LIST

EXCEPTIONS

COMPONENT_NOT_AVAILABLE = 1

OPERATION_NO_AUTHORIZATION = 2

OWNER_NOT_EXIST = 3

PARAMETER_ERROR = 4

X_ERROR = 5

OTHERS = 6.

IF SY-SUBRC = 0.

CLEAR RECEIVERS.

MOVE: SY-DATUM TO RECEIVERS-RCDAT,

SY-UZEIT TO RECEIVERS-RCTIM,

' ' TO RECEIVERS-RECESC,

P_MAILTO TO RECEIVERS-RECNAM,

'X' TO RECEIVERS-SNDEX.

APPEND RECEIVERS.

• RECEIVERS-RCDAT = SY-DATUM.

• RECEIVERS-RCTIM = SY-UZEIT.

• RECEIVERS-RECNAM = RECLIST-REC.

• RECEIVERS-RECNO = FOLDER_LIST-PARNO.

• RECEIVERS-RECTP = FOLDER_LIST-PARTP.

• RECEIVERS-RECYR = FOLDER_LIST-PARYR.

• RECEIVERS-SNDTP = FOLDER_LIST-PARTP.

• RECEIVERS-SNDYR = FOLDER_LIST-PARYR.

• RECEIVERS-SNDNO = FOLDER_LIST-PARNO.

• RECEIVERS-SNDNAM = SY-UNAME.

• RECEIVERS-SNDPRI = '1'.

• RECEIVERS-MSGID = 'SO'.

• RECEIVERS-MSGNO = '619'.

• RECEIVERS-DELIVER = 'X'.

• RECEIVERS-NOT_DELI = 'X'.

• RECEIVERS-READ = 'X'.

• RECEIVERS-MAILSTATUS = 'E'.

**receivers-ADR_NAME

• RECEIVERS-RESEND = ' '.

• RECEIVERS-SORTFIELD = ' '. "'USER WF_BATCH INDIGO BATCH'.

• RECEIVERS-SORTCLASS = '5'.

• APPEND RECEIVERS.

ELSE.

CLEAR RECEIVERS.

RECEIVERS-SEL = 'X'.

RECEIVERS-RECESC = 'U'.

RECEIVERS-RECNAM = 'U-'.

RECEIVERS-RECEXTNAM = RECLIST-REC.

RECEIVERS-DELIVER = 'X'.

RECEIVERS-NOT_DELI = 'X'.

RECEIVERS-READ = 'X'.

RECEIVERS-MAILSTATUS = 'E'.

RECEIVERS-ADR_NAME = RECLIST-REC.

RECEIVERS-SORTFIELD = RECLIST-REC.

RECEIVERS-SORTCLASS = '5'.

APPEND RECEIVERS.

ENDIF.

ENDLOOP.

ENDFORM. "fill_receivers_info

*----

---

*FORM snd_email *

*----

---

*........ *

*----

---

FORM SND_EMAIL.

CALL FUNCTION 'SO_OBJECT_SEND'

EXPORTING

FOLDER_ID = P_OUTFOLDER

OBJECT_ID = OBJECT_ID

OUTBOX_FLAG = 'X'

OWNER = SY-UNAME

CHECK_SEND_AUTHORITY = 'X'

ORIGINATOR_TYPE = 'J'

LINK_FOLDER_ID = LINK_FOLDER_ID

TABLES

OBJCONT = OBJECT_CONTENT

RECEIVERS = RECEIVERS

EXCEPTIONS

ACTIVE_USER_NOT_EXIST = 1

COMMUNICATION_FAILURE = 2

COMPONENT_NOT_AVAILABLE = 3

FOLDER_NOT_EXIST = 4

FOLDER_NO_AUTHORIZATION = 5

FORWARDER_NOT_EXIST = 6

NOTE_NOT_EXIST = 7

OBJECT_NOT_EXIST = 8

OBJECT_NOT_SENT = 9

OBJECT_NO_AUTHORIZATION = 10

OBJECT_TYPE_NOT_EXIST = 11

OPERATION_NO_AUTHORIZATION = 12

OWNER_NOT_EXIST = 13

PARAMETER_ERROR = 14

SUBSTITUTE_NOT_ACTIVE = 15

SUBSTITUTE_NOT_DEFINED = 16

SYSTEM_FAILURE = 17

TOO_MUCH_RECEIVERS = 18

USER_NOT_EXIST = 19

ORIGINATOR_NOT_EXIST = 20

X_ERROR = 21

OTHERS = 22.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. "snd_email

Thanks