topic Re: FM : SO_OBJECT_SEND not working in Application Development and Automation Discussions

FM : SO_OBJECT_SEND not working

Former Member — Wed, 17 May 2006 07:02:40 GMT

Hi i am modifing a standard sap script wherein sap has used FM SO_OBJECT_SEND to send the mails.

I am getting the subrc = 0 but mail is not going.

I have used following parameters

X_RECEIVERS-RECESC = 'U'.

X_RECEIVERS-SNDART = 'MAIL'

Can any one suggest?

Re: FM : SO_OBJECT_SEND not working

Former Member — Wed, 17 May 2006 07:09:04 GMT

Hi,

Check this code it will work.

DATA: T_DOC TYPE TYPE_T_SODOCCHGI1, "#EC NEEDED

T_CONTENT TYPE TYPE_T_SOLISTI1,

T_PACK TYPE TYPE_T_SOPCKLSTI1,

T_REC TYPE TYPE_T_SOMLRECI1.

CONSTANTS :C_SEN TYPE SO_OBJ_SNS VALUE 'F',

C_REC TYPE SO_ESCAPE VALUE 'U',

C_TYPE TYPE SO_OBJ_TP VALUE 'RAW',

C_COMTYPE TYPE SO_RECNAME VALUE 'INT'.

DATA: S_DOC TYPE SODOCCHGI1,

S_REC TYPE SOMLRECI1,

S_CONTENT TYPE SOLISTI1,

S_PACK TYPE SOPCKLSTI1,

S_FILE TYPE STRING.

DATA : V_STRING TYPE STRING.

IF RB_PRES = 'X'.

MOVE RP_PERFILE TO S_FILE.

ELSE.

MOVE RP_AERFILE TO S_FILE.

ENDIF.

*Get the Object name and Subject Description of the Mail

Fill the document data and get size of attachment

CLEAR S_DOC.

S_DOC-OBJ_LANGU = SY-LANGU.

S_DOC-OBJ_NAME = 'PTS_INT306'(022).

CONCATENATE SY-SYSID'List of error rec.'(021)

INTO S_DOC-OBJ_DESCR SEPARATED BY SPACE.

S_DOC-SENSITIVTY = C_SEN.

APPEND S_DOC TO T_DOC.

CLEAR S_DOC.

*Build the Receivers List

S_REC-REC_TYPE = C_REC.

S_REC-RECEIVER = RP_DLIST.

S_REC-COM_TYPE = C_COMTYPE.

APPEND S_REC TO T_REC.

CLEAR S_REC.

*Build Contents of the mail (Body)

CONCATENATE 'File'(019) S_FILE 'downloaded with error records:'(018)

INTO V_STRING.

S_CONTENT-LINE = V_STRING.

APPEND S_CONTENT TO T_CONTENT.

CLEAR S_CONTENT.

S_CONTENT-LINE = V_ERROR_REC.

APPEND S_CONTENT TO T_CONTENT.

CLEAR S_CONTENT.

*Send contents as BODY

S_PACK-HEAD_START = 1.

S_PACK-HEAD_NUM = 1.

S_PACK-BODY_START = 1.

DESCRIBE TABLE T_CONTENT LINES S_PACK-BODY_NUM.

S_PACK-DOC_SIZE = S_PACK-BODY_NUM * 255.

S_PACK-DOC_TYPE = C_TYPE.

APPEND S_PACK TO T_PACK.

CLEAR S_PACK.

*FM for sending mail to the External E-Mail Address

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

DOCUMENT_DATA = S_DOC

PUT_IN_OUTBOX = 'X'

COMMIT_WORK = 'X'

TABLES

PACKING_LIST = T_PACK

CONTENTS_TXT = T_CONTENT

RECEIVERS = T_REC

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.

WRITE: /'Email Failed .'(020).

ELSE.

SKIP 2.

WRITE : 'Error List Send to'(026),RP_DLIST.

ENDIF.

Reward points if it works.

Regards,

Suresh

Re: FM : SO_OBJECT_SEND not working

Former Member — Wed, 17 May 2006 07:15:44 GMT

Hi,

is sap connect is configured if not ask your basis to do that, for config check this link..

http://www.sapgenie.com/interfaces/sapconnect.htm

if already configured then..

and also check that might be in queue , go to transaction SCOT and try to send it manually via Start Send Process (Ctrl+F7).

Regards

vijay

Re: FM : SO_OBJECT_SEND not working

Former Member — Wed, 17 May 2006 07:17:37 GMT

Hi osk,

check this example also..

http://www.sap-img.com/fu016.htm

Regards

vijay

Re: FM : SO_OBJECT_SEND not working

Former Member — Wed, 17 May 2006 07:18:39 GMT

chk this report

RSCONN04

Re: FM : SO_OBJECT_SEND not working

vinod_gunaware2 — Wed, 17 May 2006 07:25:02 GMT

Check <b>SCOT</b> transaction.

If there is pennding mail . Excute transaction.

This is accessed via transaction 'SCOT' and allows various functionality in-order to manage the

transmitting of external email messages.

Manage suported file formats

• Execute transaction SCOT. Expand INT node and select client node i.e. 'DEV500'

Check the internet check box and click the ‘SET’ button

To allow all file types to be sent, insert a '*' in the first line of address area

regards

vinod

Re: FM : SO_OBJECT_SEND not working

Former Member — Wed, 17 May 2006 08:27:30 GMT

Hai Osk Osk

Try with the following Links

http://www.sapgenie.com/abap/code/abap25.htm

http://www.sapgenie.com/abap/code/abap15.htm

Try with the following Code

REPORT ZRICH_0003.

DATA: ITCPO LIKE ITCPO,

TAB_LINES LIKE SY-TABIX.

Variables for EMAIL functionality

DATA: MAILDATA LIKE SODOCCHGI1.

DATA: MAILPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.

DATA: MAILHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.

DATA: MAILBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.

DATA: MAILTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.

DATA: MAILREC LIKE SOMLREC90 OCCURS 0 WITH HEADER LINE.

DATA: SOLISTI1 LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.

PERFORM SEND_FORM_VIA_EMAIL.

************************************************************************

FORM SEND_FORM_VIA_EMAIL *

************************************************************************

FORM SEND_FORM_VIA_EMAIL.

CLEAR: MAILDATA, MAILTXT, MAILBIN, MAILPACK, MAILHEAD, MAILREC.

REFRESH: MAILTXT, MAILBIN, MAILPACK, MAILHEAD, MAILREC.

Creation of the document to be sent File Name

MAILDATA-OBJ_NAME = 'TEST'.

Mail Subject

MAILDATA-OBJ_DESCR = 'Subject'.

Mail Contents

MAILTXT-LINE = 'Here is your file'.

APPEND MAILTXT.

Prepare Packing List

PERFORM PREPARE_PACKING_LIST.

Set recipient - email address here!!!

MAILREC-RECEIVER = 'itsme@whatever.com'.

MAILREC-REC_TYPE = 'U'.

APPEND MAILREC.

Sending the document

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

DOCUMENT_DATA = MAILDATA

PUT_IN_OUTBOX = ' '

TABLES

PACKING_LIST = MAILPACK

OBJECT_HEADER = MAILHEAD

CONTENTS_BIN = MAILBIN

CONTENTS_TXT = MAILTXT

RECEIVERS = MAILREC

EXCEPTIONS

TOO_MANY_RECEIVERS = 1

DOCUMENT_NOT_SENT = 2

OPERATION_NO_AUTHORIZATION = 4

OTHERS = 99.

ENDFORM.

************************************************************************

Form PREPARE_PACKING_LIST

************************************************************************

FORM PREPARE_PACKING_LIST.

CLEAR: MAILPACK, MAILBIN, MAILHEAD.

REFRESH: MAILPACK, MAILBIN, MAILHEAD.

DESCRIBE TABLE MAILTXT LINES TAB_LINES.

READ TABLE MAILTXT INDEX TAB_LINES.

MAILDATA-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( MAILTXT ).

Creation of the entry for the compressed document

CLEAR MAILPACK-TRANSF_BIN.

MAILPACK-HEAD_START = 1.

MAILPACK-HEAD_NUM = 0.

MAILPACK-BODY_START = 1.

MAILPACK-BODY_NUM = TAB_LINES.

MAILPACK-DOC_TYPE = 'RAW'.

APPEND MAILPACK.

Creation of the document attachment
This form gets the OTF code from the SAPscript form.
If you already have your OTF code, I believe that you may
be able to skip this form. just do the following code, looping thru
your SOLISTI1 and updating MAILBIN.

PERFORM GET_OTF_CODE.

LOOP AT SOLISTI1.

MOVE-CORRESPONDING SOLISTI1 TO MAILBIN.

APPEND MAILBIN.

ENDLOOP.

DESCRIBE TABLE MAILBIN LINES TAB_LINES.

MAILHEAD = 'TEST.OTF'.

APPEND MAILHEAD.

Creation of the entry for the compressed attachment

MAILPACK-TRANSF_BIN = 'X'.

MAILPACK-HEAD_START = 1.

MAILPACK-HEAD_NUM = 1.

MAILPACK-BODY_START = 1.

MAILPACK-BODY_NUM = TAB_LINES.

MAILPACK-DOC_TYPE = 'OTF'.

MAILPACK-OBJ_NAME = 'TEST'.

MAILPACK-OBJ_DESCR = 'Subject'.

MAILPACK-DOC_SIZE = TAB_LINES * 255.

APPEND MAILPACK.

ENDFORM.

************************************************************************

Form GET_OTF_CODE

************************************************************************

FORM GET_OTF_CODE.

DATA: BEGIN OF OTF OCCURS 0.

INCLUDE STRUCTURE ITCOO .

DATA: END OF OTF.

DATA: ITCPO LIKE ITCPO.

DATA: ITCPP LIKE ITCPP.

CLEAR ITCPO.

ITCPO-TDGETOTF = 'X'.

Start writing OTF code

CALL FUNCTION 'OPEN_FORM'

EXPORTING

FORM = 'ZTEST_FORM'

LANGUAGE = SY-LANGU

OPTIONS = ITCPO

DIALOG = ' '

EXCEPTIONS

OTHERS = 1.

CALL FUNCTION 'START_FORM'

EXCEPTIONS

ERROR_MESSAGE = 01

OTHERS = 02.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

WINDOW = 'MAIN'

EXCEPTIONS

ERROR_MESSAGE = 01

OTHERS = 02.

Close up Form and get OTF code

CALL FUNCTION 'END_FORM'

EXCEPTIONS

ERROR_MESSAGE = 01

OTHERS = 02.

MOVE-CORRESPONDING ITCPO TO ITCPP.

CALL FUNCTION 'CLOSE_FORM'

IMPORTING

RESULT = ITCPP

TABLES

OTFDATA = OTF

EXCEPTIONS

OTHERS = 1.

Move OTF code to structure SOLI form email

CLEAR SOLISTI1. REFRESH SOLISTI1.

LOOP AT OTF.

SOLISTI1-LINE = OTF.

APPEND SOLISTI1.

ENDLOOP.

ENDFORM.

Thanks & regards

Sreenivasulu P

Re: FM : SO_OBJECT_SEND not working

suresh_datti — Wed, 17 May 2006 08:42:50 GMT

HI Osk,

What version are you on ? You will have to put an explicit COMMIT WORK immediately after the function call.

Regards,

Suresh Datti

Re: FM : SO_OBJECT_SEND not working

Former Member — Wed, 17 May 2006 09:25:56 GMT

Hai Osk Osk

Try with the following Links

http://www.sapgenie.com/abap/code/abap25.htm

http://www.sapgenie.com/abap/code/abap15.htm

Thanks & regards

Sreenivasulu P

Re: FM : SO_OBJECT_SEND not working

Former Member — Wed, 17 May 2006 09:58:39 GMT

Hi osk,

the problem might me 1 of these as under:-

1. In the exporting parameters of..FM use

commit_work = 'X'.

2. Check for Sy-subrc of FM..

if sy-subrc = 0.

SUBMIT rsconn01

WITH mode EQ 'INT'

AND RETURN.

this report program is used to automatically send the e-mails that are pending in the job queue.

ELSE

3. U may have some SMTP Config. problem.

If so u can ask me for details.

Else send ur code what u r using.

Regards

Sachin Dhingra

Re: FM : SO_OBJECT_SEND not working

Former Member — Wed, 17 May 2006 11:22:02 GMT

Hi Sachin.

This is the code I am using.Please suggest

FORM EMAIL.

IF NOT ITCPO-TDPREVIEW IS INITIAL.

ITCPP-TDNOPRINT = 'X'.

CALL FUNCTION 'DISPLAY_OTF'

EXPORTING

CONTROL = ITCPP

IMPORTING

RESULT = ITCPP

TABLES

OTF = HOTFDATA

EXCEPTIONS

OTHERS = 1.

CALL FUNCTION 'CORRESPONDENCE_POPUP_EMAIL'

EXPORTING

I_INTAD = FINAA-INTAD

IMPORTING

E_ANSWER = HANSWER

E_INTAD = FINAA-INTAD

EXCEPTIONS

OTHERS = 1.

ENDIF.

IF HANSWER = SPACE

OR HANSWER = 'J'.

HFORMAT = FINAA-TEXTF.

IF HFORMAT IS INITIAL.

HFORMAT = 'PDF'. "PDF als Default

ENDIF.

CLEAR HTLINE.

REFRESH HTLINE.

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

FORMAT = HFORMAT

MAX_LINEWIDTH = 132

IMPORTING

BIN_FILESIZE = DOC_SIZE

TABLES

OTF = HOTFDATA

LINES = HTLINE

EXCEPTIONS

ERR_MAX_LINEWIDTH = 1

ERR_FORMAT = 2

ERR_CONV_NOT_POSSIBLE = 3

OTHERS = 4.

IF HFORMAT = 'PDF'.

PERFORM TABLE_SHIFT.

ELSE.

CLEAR X_OBJCONT.

REFRESH X_OBJCONT.

LOOP AT HTLINE.

X_OBJCONT = HTLINE.

APPEND X_OBJCONT.

ENDLOOP.

ENDIF.

CLEAR X_OBJECT_HD_CHANGE.

X_OBJECT_HD_CHANGE-OBJNAM = 'EMAIL'.

HKORA = TEXT-204.

X_OBJECT_HD_CHANGE-OBJDES = HKORA.

X_OBJECT_HD_CHANGE-OBJLA = LANGUAGE.

X_OBJECT_HD_CHANGE-OBJSNS = 'O'.

X_OBJECT_HD_CHANGE-OBJLEN = DOC_SIZE.

IF HFORMAT = 'PDF'.

X_OBJECT_HD_CHANGE-FILE_EXT = 'PDF'. "<-

ENDIF.

CLEAR X_RECEIVERS.

REFRESH X_RECEIVERS.

X_RECEIVERS-RECNAM = FINAA-INTAD. "<-

X_RECEIVERS-RECEXTNAM = FINAA-INTAD. "<-

X_RECEIVERS-RECESC = 'U'. "<-

X_RECEIVERS-RECESC = 'E'. "<-

X_RECEIVERS-SNDART = 'INT'. "<-

APPEND X_RECEIVERS.

DESCRIBE TABLE X_OBJCONT LINES LINECNT.

CLEAR X_OBJHEAD.

REFRESH X_OBJHEAD.

IF HFORMAT = 'PDF'.

DOCUMENT_TYPE = 'EXT'. "<-

ELSE.

DOCUMENT_TYPE = 'RAW'.

X_OBJHEAD = LINECNT.

APPEND X_OBJHEAD.

ENDIF.

CALL FUNCTION 'SO_OBJECT_SEND'

EXPORTING

EXTERN_ADDRESS = ' '
FOLDER_ID = ' '
FORWARDER = ' '
OBJECT_FL_CHANGE = ' '

OBJECT_HD_CHANGE = X_OBJECT_HD_CHANGE

OBJECT_ID = ' '

OBJECT_TYPE = DOCUMENT_TYPE

OUTBOX_FLAG = ' '

OWNER = FSABE-USRNAM

STORE_FLAG = ' '
DELETE_FLAG = ' '

SENDER = FSABE-USRNAM

CHECK_ALREADY_SENT = ' '

IMPORTING

OBJECT_ID_NEW =

SENT_TO_ALL = X_SENT_TO_ALL

TABLES

OBJCONT = X_OBJCONT

OBJHEAD = X_OBJHEAD

OBJPARA =
OBJPARB =

RECEIVERS = X_RECEIVERS

PACKING_LIST =
ATT_CONT =
ATT_HEAD =
NOTE_TEXT =

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

X_ERROR = 20

OTHERS = 21.

IF sy-subrc = 0.

SUBMIT rsconn01

WITH mode EQ 'INT'

AND RETURN.

ENDIF.

IF SY-SUBRC = 0

AND NOT FINAA-INTAD IS INITIAL.

CLEAR PROT_AUSGABE.

PROT_AUSGABE-BUKRS = SAVE_BUKRS.

PROT_AUSGABE-EVENT = SAVE_EVENT.

PROT_AUSGABE-REPID = SAVE_REPID.

PROT_AUSGABE-INTAD = FINAA-INTAD.

PROT_AUSGABE-COUNTP = COUNTP.

COLLECT PROT_AUSGABE.

-Hilfskonstrukt damit BKORM fortgeschrieben wird----

ITCPP-TDSPOOLID = '1'.

ENDIF.

ENDFORM.