E-mail error occured

[Former Member]

Hi following is my coding

the scenario is like....i have created one form which contain 'SUBMIT' button when i will click that submit pushbutton...email should go to specific mail id

i have called function module. 'so_new_document_att_api1'

following is my coding...i am not able to send mail...please help me and tel me coding is right or not

PROGRAM ZFEEDBACK5.

TABLES:ZCUSTMR1,ZFDBCK.

DATA:BEGIN OF ST,

CUSTOMER TYPE ZCUSTMR1-CUSTOMER,

NAME TYPE ZCUSTMR1-NAME,

CITY TYPE ZCUSTMR1-CITY,

TELEPHONENO TYPE ZCUSTMR1-TELEPHONENO,

COUNTRY TYPE ZCUSTMR1-COUNTRY,

SERVICE_DATE TYPE ZFDBCK-SERVICE_DATE,

SERVICE TYPE ZFDBCK-SERVICE,

FEEDBACK TYPE ZFDBCK-FEEDBACK,

END OF ST.

DATA:SFCUSTOMER TYPE ZCUSTMR1-CUSTOMER,

SFNAME TYPE ZCUSTMR1-NAME,

SFCITY TYPE ZCUSTMR1-CITY,

SFTELEPHONENO TYPE ZCUSTMR1-TELEPHONENO,

SFCOUNTRY TYPE ZCUSTMR1-COUNTRY,

SFSERVICE_DATE TYPE ZFDBCK-SERVICE_DATE,

SFSERVICE TYPE ZFDBCK-SERVICE,

SFFEEDBACK TYPE ZFDBCK-FEEDBACK.

DATA:WA1 LIKE ZCUSTMR1 OCCURS 0 WITH HEADER LINE,

WA2 LIKE ZFDBCK OCCURS 0 WITH HEADER LINE.

DATA:CONFIRMATION.

&----

---

*& Module USER_COMMAND_0100 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0100 INPUT.

CASE SY-UCOMM.

• WHEN 'ZFEEDBACK'.

• MESSAGE i888(sabapdocu) WITH sdyn_conn-EXCELLENT.

• ENDCASE.

*ENDMODULE.

WHEN 'DISP'.

SELECT DISTINCT ZCUSTMR1~CUSTOMER ZCUSTMR1~NAME ZCUSTMR1~CITY ZCUSTMR1~TELEPHONENO zcustmr1~country

ZFDBCK~SERVICE_DATE ZFDBCK~SERVICE

INTO CORRESPONDING FIELDS OF ST FROM ZCUSTMR1

INNER JOIN ZFDBCK ON ZCUSTMR1~CUSTOMER = ZFDBCK~CUSTOMERNO

WHERE ZFDBCK~CUSTOMERNO = SFCUSTOMER.

ENDSELECT.

IF SY-SUBRC <> 0.

MESSAGE ID 'messege' type 'E000' NUMBER

'000' WITH ' NO RECORDS AVAILABLE'.

ELSE.

SFCUSTOMER = ST-CUSTOMER.

SFNAME = ST-NAME.

SFCITY = ST-CITY.

SFTELEPHONENO = ST-TELEPHONENO.

SFCOUNTRY = ST-COUNTRY.

SFSERVICE_DATE = ST-SERVICE_DATE.

SFSERVICE = ST-SERVICE.

SFFEEDBACK = ST-FEEDBACK.

MESSAGE ID '' TYPE 'I000' NUMBER

'001' WITH 'are you sure?'

'records will get inserted'.

ENDIF.

*

*WHEN 'SUBMIT'.

*CALL FUNCTION 'SO_OBJECT_SEND'.

WHEN 'INSR'.

CLEAR ST.

ST-CUSTOMER = SFCUSTOMER.

MOVE ST-CUSTOMER TO WA1-CUSTOMER.

ST-NAME = SFNAME.

MOVE ST-NAME TO WA1-NAME.

ST-CITY = SFCITY .

MOVE ST-CITY TO WA1-CITY.

ST-TELEPHONENO = SFTELEPHONENO.

MOVE ST-TELEPHONENO TO WA1-TELEPHONENO.

ST-COUNTRY = SFCOUNTRY.

MOVE ST-COUNTRY TO WA2.

ST-SERVICE_DATE = SFSERVICE_DATE.

MOVE ST-SERVICE_DATE TO WA2-SERVICE_DATE.

ST-SERVICE = SFSERVICE.

MOVE ST-SERVICE TO WA2-SERVICE.

INSERT INTO ZCUSTMR1 VALUES WA1.

INSERT INTO ZFDBCK VALUES WA2.

IF SY-SUBRC <> 0.

MESSAGE ID 'zmsgs' TYPE 'E000' NUMBER

'001' WITH ' RECORDS NOT INSERTED'.

ELSE.

MESSAGE ID 'zmsgs' TYPE 'I000' NUMBER

'002' WITH ' RECORDS INSERTED'.

ENDIF.

WHEN 'BACK'.

CALL FUNCTION 'COPO_POPUP_TO_GOON'

EXPORTING

TEXTLINE1 = 'Any modifications will be lost!'

TEXTLINE2 = 'Are you sure?'

TITEL = 'Exit The Program'

IMPORTING

ANSWER = CONFIRMATION.

IF CONFIRMATION = 'G'.

LEAVE PROGRAM.

ENDIF.

WHEN 'EXIT'.

LEAVE TO SCREEN 0.

DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.

DATA: OBJCONT LIKE SOLISTI1 OCCURS 5 WITH HEADER LINE.

DATA: DOC_CHNG LIKE SODOCCHGI1.

DATA: ENTRIES LIKE SY-TABIX,

CHECK LIKE SY-TABIX,

V_NO(3) TYPE C,

V_D(10) TYPE C.

CLEAR RECLIST.

RECLIST-REC_TYPE = 'U'. "Internet-adress

RECLIST-RECEIVER = 'EMAIL ADDRESS'.

RECLIST-EXPRESS = 'X'.

APPEND RECLIST.

WHEN 'SUBMIT'.

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'

EXPORTING

DOCUMENT_TYPE = 'RAW'

DOCUMENT_DATA = DOC_CHNG

PUT_IN_OUTBOX = 'X'

TABLES

OBJECT_CONTENT = OBJCONT

RECEIVERS = RECLIST

EXCEPTIONS

TOO_MANY_RECEIVERS = 1

DOCUMENT_NOT_SENT = 2

OPERATION_NO_AUTHORIZATION = 4

OTHERS = 99.

IF SY-SUBRC <> 0.

MESSAGE ID 'zmsgs' TYPE 'E000' NUMBER

'003' WITH ' messege NOT sent'.

ELSE.

MESSAGE ID 'zmsgs' TYPE 'I000' NUMBER

'004' WITH ' messege sent'.

endif.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

---

*& Module STATUS_0100 OUTPUT

&----

---

• text

----

---

MODULE status_0100 OUTPUT.

SET PF-STATUS 'ZFEEDBACK_100'.

SET TITLEBAR 'ZFEEDBACK_100'.

ENDMODULE. " STATUS_0100 OUTPUT

*

• TABLES: ZDROPDOWN.

*DATA ok_code TYPE sy-ucomm.

*

• Global data

*

*TYPES: BEGIN OF type_EXCELLENT,

• EXCELLENT TYPE ZDROPDOWN-EXCELLENT,

• GOOD TYPE ZDROPDOWN-GOOD,

• SATISFACTORY TYPE ZDROPDOWN-SATISFACTORY,

• AVERAGE TYPE ZDROPDOWN-AVERAGE,

• POOR TYPE ZDROPDOWN-POOR,

*

• END OF TYPE_EXCELLENT.

*

*DATA itab_carrid TYPE STANDARD TABLE OF type_EXCELLENT.

*

*

*&----

---

**& Processing Blocks called by the Runtime Environment *

*&----

---

*

• Event Block START-OF-SELECTION

*

*START-OF-SELECTION.

• CALL SCREEN 100.

*

• Dialog Module PBO

*

**MODULE status_0100 OUTPUT.

• SET PF-STATUS 'SCREEN_100'.

**ENDMODULE.

**

• Dialog Modules PAI

*

*MODULE cancel INPUT.

• LEAVE PROGRAM.

*ENDMODULE.

*

**

*

**MODULE user_command_0100 INPUT.

• CASE ok_code.

• WHEN 'ZFEEDBACK'.

• MESSAGE i888(sabapdocu) WITH sdyn_conn-EXCELLENT.

• ENDCASE.

**ENDMODULE.

*

• Dialog Module POV

*

*MODULE create_dropdown_box INPUT.

*

• SELECT EXCELLENT GOOD SATISFACTORY AVERAGE POOR

• FROM ZDROPDOWN

• INTO CORRESPONDING FIELDS OF TABLE zdropdown.

*

• CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

• EXPORTING

[kesavadas_thekkillath]

post this qn in ABAP General.......it will b solved....or make a forum search

[Former Member]

Hi rohan,

what message the system is giving you "messgage not sent " or its giving any dump.

IF SY-SUBRC 0.

MESSAGE ID 'zmsgs' TYPE 'E000' NUMBER

'003' WITH ' messege NOT sent'.

if sy-subrc 0 means success. after sending the document successfully you r displaying the message" message not Sent".

Regards,

Chinna