E-mail error occured

Question

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

Answer 1

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