Sending mail to internet ID

Question

Hi All,
I am trying to send a mail to an external id from SAP.
I am using the code given below. After executing the code i am getting mail in my sap mail box but not in external mail id.  Also I am not able to see the sent mail in tcode <b>SOST</b> .
At the same time, if i am sending mail from <b>SO01</b> it is coming to <b>SOST</b> . From <b>SOST</b> if i am doing "start send process" (ie Ctrl+F7 ), I am able to get mail in external ID. How can I do it directly from the program? Please help me.
DATA: WA_DOCUMENT_DATA  TYPE SODOCCHGI1.
DATA: IT_OBJECT_CONTENT LIKE SOLISTI1 OCCURS 5 WITH HEADER LINE.
DATA: IT_RECEIVER       LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
DATA: ENTRIES LIKE SY-TABIX.
DATA: NAME(20).
Fill the document
WA_DOCUMENT_DATA-OBJ_NAME = 'URGENT'.
WA_DOCUMENT_DATA-OBJ_DESCR = 'Notification !'.
WA_DOCUMENT_DATA-SENSITIVTY = 'P'.
WA_DOCUMENT_DATA-OBJ_LANGU  = SY-LANGU.
IT_OBJECT_CONTENT = 'Hey this is test message !!!'.
APPEND IT_OBJECT_CONTENT.
IT_OBJECT_CONTENT = 'Please reply !'.
APPEND IT_OBJECT_CONTENT.
DESCRIBE TABLE IT_OBJECT_CONTENT LINES ENTRIES.
READ TABLE IT_OBJECT_CONTENT INDEX ENTRIES.
WA_DOCUMENT_DATA-DOC_SIZE = ( ENTRIES - 1 ) * 255 + STRLEN( IT_OBJECT_CONTENT ).
Fill the receiver list
CLEAR IT_RECEIVER.
IT_RECEIVER-RECEIVER = SY-UNAME.
IT_RECEIVER-REC_TYPE = 'B'.
IT_RECEIVER-EXPRESS = 'X'.
APPEND IT_RECEIVER.
CLEAR IT_RECEIVER.
IT_RECEIVER-RECEIVER = '[email protected]'.
IT_RECEIVER-REC_TYPE = 'U'.
IT_RECEIVER-EXPRESS = 'X'.
APPEND IT_RECEIVER.
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
  EXPORTING
    DOCUMENT_DATA                    = WA_DOCUMENT_DATA
   DOCUMENT_TYPE                    = 'RAW'
   PUT_IN_OUTBOX                    = ' '
  COMMIT_WORK                      = ' '
IMPORTING
  SENT_TO_ALL                      =
  NEW_OBJECT_ID                    =
  TABLES
  OBJECT_HEADER                    =
   OBJECT_CONTENT                   = IT_OBJECT_CONTENT
  CONTENTS_HEX                     =
  OBJECT_PARA                      =
  OBJECT_PARB                      =
    RECEIVERS                        = IT_RECEIVER
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 ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Thanks in advance
jaison

Answer 1

Hai
Go through the following Code
DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
DATA: OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
DATA: OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
DATA: DOC_CHNG LIKE SODOCCHGI1.
DOC_CHNG-OBJ_NAME = 'TEST'.
DOC_CHNG-OBJ_DESCR = 'Test-Dokument fur API1 Test'(001).
OBJTXT = 'Mindestgebot : $250000'.
APPEND OBJTXT.
OBJTXT = 'Eine Abbildung des zur Versteigerung stehenden Bildes'.
APPEND OBJTXT.
OBJTXT = 'wurde als Anlage beigefugt.'.
APPEND OBJTXT.
DESCRIBE TABLE OBJTXT LINES TAB_LINES.
READ TABLE OBJTXT INDEX TAB_LINES.
DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
* ERSTELLEN DES EINTRAGS ZUM KOMPRIMIERTEN DOKUMENT
CLEAR OBJPACK-TRANSF_BIN.
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 0.
OBJPACK-BODY_START = 1.
OBJPACK-BODY_NUM = TAB_LINES.
OBJPACK-DOC_TYPE = 'RAW'.
APPEND OBJPACK.
* ERSTELLEN DER ANLAGE FUR DAS DOKUMENT
OBJBIN = '\O/ '. APPEND OBJBIN.
OBJBIN = ' '. APPEND OBJBIN.
OBJBIN = ' / \ '. APPEND OBJBIN.
DESCRIBE TABLE OBJBIN LINES TAB_LINES.
OBJHEAD = 'picasso.txt'. APPEND OBJHEAD.
* Erstellen des Eintrags zur komprimierten Anlage
OBJPACK-TRANSF_BIN = 'X'.
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 1.
OBJPACK-BODY_START = 1.
OBJPACK-BODY_NUM = TAB_LINES.
OBJPACK-DOC_TYPE = 'TXT'.
OBJPACK-OBJ_NAME = 'ANLAGE'.
OBJPACK-OBJ_DESCR = 'Abbildung Objekt 138'.
OBJPACK-DOC_SIZE = TAB_LINES * 255.
APPEND OBJPACK.
* Fullen der Empfangerliste
RECLIST-RECEIVER = SY-UNAME.
RECLIST-REC_TYPE = 'B'.
APPEND RECLIST.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = DOC_CHNG
PUT_IN_OUTBOX = 'X'
TABLES
PACKING_LIST = OBJPACK
OBJECT_HEADER = OBJHEAD
CONTENTS_BIN = OBJBIN
CONTENTS_TXT = OBJTXT
RECEIVERS = RECLIST
EXCEPTIONS
TOO_MANY_RECEIVERS = 1
DOCUMENT_NOT_SENT = 2
OPERATION_NO_AUTHORIZATION = 4
OTHERS = 99.
Regards
Sreeni