Solution needed for PO details

Question

Hi Experts,
  While saving the purchase order in SAP, i want to send PO data to a web address (Internet mail address like yahoo or gmail). For this I have coded like this Inside of Method in Business ADD-ins.  But mail is not going to the recipient’s address. Please help me.
DATA : W_DOCUMENT TYPE SODOCCHGI1,
           LW_MARA    TYPE MARA,
           LW_MAKT    TYPE MAKT,
           IT_USER    TYPE TABLE OF  SOMLRECI1,
           IT_YUSER LIKE LINE OF IT_USER.
  DATA: W_SENT_ALL(1) TYPE C,
        GD_ERROR TYPE SY-SUBRC,
        LD_RECEIVER LIKE SY-SUBRC.
  DATA : LT_TXT     TYPE TABLE OF SOLISTI1,
         LW_TXT     LIKE LINE OF LT_TXT.
  DATA : LT_PACK    TYPE TABLE OF SOPCKLSTI1,
         LW_PACK    LIKE LINE OF LT_PACK.
  DATA : LW_EKPO LIKE LINE OF IM_EKPO.
  LOOP AT IM_EKPO INTO LW_EKPO.
    SELECT SINGLE * FROM MARA INTO LW_MARA
     WHERE MATNR = LW_EKPO-MATNR.
    IF SY-SUBRC IS INITIAL.
      SELECT SINGLE * FROM MAKT INTO LW_MAKT
       WHERE MATNR = LW_EKPO-MATNR
         AND SPRAS = SY-LANGU.
      CONCATENATE LW_EKPO-MATNR '-' LW_MAKT-MAKTX
             INTO LW_TXT
        SEPARATED BY SPACE.
      APPEND LW_TXT TO LT_TXT.
    ENDIF.
ENDLOOP.
    IF LT_TXT IS INITIAL. RETURN. ENDIF.
    CONCATENATE 'The Purchase Order No.'
                IM_EKKO-EBELN
                'for the following'
                'materials has been posted:'
           INTO LW_TXT
      SEPARATED BY SPACE.
    INSERT LW_TXT INTO LT_TXT INDEX 1.
    INSERT SPACE  INTO LT_TXT INDEX 2.
    CONCATENATE 'P.O. No.' IM_EKKO-EBELN 'Posted'
           INTO W_DOCUMENT-OBJ_DESCR
      SEPARATED BY SPACE.
    W_DOCUMENT-OBJ_DESCR = 'Hi'.
    W_DOCUMENT-SENSITIVTY = 'F'.
    W_DOCUMENT-OBJ_LANGU  = SY-LANGU.
    LW_PACK-HEAD_START = 1.
    LW_PACK-HEAD_NUM   = 0.
    LW_PACK-BODY_START = 1.
    LW_PACK-BODY_NUM   = LINES( LT_TXT ).
    LW_PACK-DOC_TYPE   = 'RAW'.
    APPEND LW_PACK TO LT_PACK.
    IT_YUSER-RECEIVER = *bold*‘some web email address yahooor gmail’*bold*
    IT_YUSER-REC_TYPE = 'U'.
    IT_YUSER-COM_TYPE = 'INT'.
    IT_YUSER-NOTIF_DEL = 'X'.
    IT_YUSER-NOTIF_NDEL = 'X'.
    APPEND  IT_YUSER TO IT_USER.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        DOCUMENT_DATA              = W_DOCUMENT
        PUT_IN_OUTBOX              = 'X'
        COMMIT_WORK                = 'X'
      IMPORTING
        SENT_TO_ALL                = W_SENT_ALL
      TABLES
        PACKING_LIST               = LT_PACK
        CONTENTS_TXT               = LT_TXT
        RECEIVERS                  = IT_USER
      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 I303(ME) WITH 'Mail has been Successfully Sent.'.
      ELSE.
        WAIT UP TO 2 SECONDS.
        SUBMIT RSCONN01 WITH MODE = 'INT'
         WITH OUTPUT = 'X'
         AND RETURN.
      ENDIF.
      LOOP AT IT_USER  INTO IT_YUSER .
        LD_RECEIVER = IT_YUSER-RETRN_CODE.
      ENDLOOP.

Answer 1

hi,
Theres a functionality in the material master...MRP view were u cld deifne theplant spcfc material status were u cld define the status and even u cld fnd it in Sales organisation data were u cld block for the particular functionality...
PLS check that and define as per u r reqmnt.. and try
Hope this helps u out
Regards,
sravanthi
Edited by: Sravanthi683 on Jun 22, 2009 1:45 PM