Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

E_MAIL program not working

0 Kudos

halo fellow SAPiens,

i worte a program which when executed will mail its vendors (regarding Bid date -- for SRM)......but i dont receive any mail when executed in the SRM server........but when the same prgm is executed in R/3, i do Rx a mail..........

what could be the problem..........

this is the code......

&----


*& Report ZTEST_TIMES

*&

&----


*&

*&

&----


report ZTEST_TIMES.

data : LV_DATE type SY-DATUM .

data : LV_TIME type SY-UZEIT .

data : LV_DATE1(10) type C ."SY-DATUM .

data : LV_TIME1(10) type C ."SY-UZEIT .

data : LV_TIMESTAMP_FROM type TZONREF-TSTAMPS .

data : LV_TIMESTAMP_TO type TZONREF-TSTAMPS .

data : LT_BBP_PDHSB type table of BBP_PDHSB with header line.

data : LW_BBP_PDHSB type BBP_PDHSB .

data: LT_BBP_PDS_PARTNER type table of BBP_PDS_PARTNER.

data : LW_BBP_PDS_PARTNER type BBP_PDS_PARTNER.

data: LS_BBP_PDS_AUC_HEADER_D type BBP_PDS_AUC_HEADER_D.

data: GS_MAILDATA type SODOCCHGI1.

data: IT_MAILTXT type table of SOLISTI1 with header line.

data: IT_MAILREC type table of SOMLREC90 with header line.

data: IT_MAILHDR type table of SOLISTI1 with header line.

data: TEMP_MAIL_ID(50) type C."like LW_BBP_PDS_PARTNER-E_MAIL.

clear: GS_MAILDATA, IT_MAILTXT, IT_MAILREC.

refresh: IT_MAILTXT, IT_MAILREC.

start-of-selection.

LV_DATE = '20071004'."sy-datum .

LV_TIME = '120000' .

call function 'IB_CONVERT_INTO_TIMESTAMP'

exporting

I_DATLO = LV_DATE

I_TIMLO = LV_TIME

I_TZONE = 'CET'

importing

E_TIMESTAMP = LV_TIMESTAMP_FROM.

LV_DATE = LV_DATE + 3 .

LV_TIME = '120000' .

call function 'IB_CONVERT_INTO_TIMESTAMP'

exporting

I_DATLO = LV_DATE

I_TIMLO = LV_TIME

I_TZONE = 'CET'

importing

E_TIMESTAMP = LV_TIMESTAMP_TO.

select * from BBP_PDHSB

into table LT_BBP_PDHSB

where START_TIME between LV_TIMESTAMP_FROM and LV_TIMESTAMP_TO.

"where START_TIME ge LV_TIMESTAMP_FROM

"and START_TIME le LV_TIMESTAMP_TO .

  • BREAK CVSITDEV .

loop at LT_BBP_PDHSB.

call function 'BBP_PD_AUC_GETDETAIL'

exporting

I_GUID = LT_BBP_PDHSB-GUID

  • I_OBJECT_ID =

  • I_ATTACH_WITH_DOC =

  • IT_DYN_ATTR =

I_WITH_ITEMDATA = 'X'

  • I_ITEM_SORTED_BY_HIERARCHY =

  • I_READ_FROM_ARCHIVE = ' '

importing

E_HEADER = LS_BBP_PDS_AUC_HEADER_D

  • ET_ATTACH =

  • ET_DYN_ATTR =

tables

  • E_ITEM =

E_PARTNER = LT_BBP_PDS_PARTNER

  • E_LONGTEXT =

  • E_STATUS =

  • E_ORGDATA =

  • E_CHAT =

  • E_BID_HIST =

  • E_HEADER_REL =

  • E_ITMLIM_REL =

  • E_FAC =

  • E_ACTIVITIES =

  • E_MESSAGES =

  • E_HCF =

  • E_ICF =

  • ET_EXCHRATE =

.

check LT_BBP_PDS_PARTNER[] is not initial.

read table LT_BBP_PDS_PARTNER into LW_BBP_PDS_PARTNER

with key PARTNER_FCT = '00000018'.

if SY-SUBRC = 0.

if LW_BBP_PDS_PARTNER-E_MAIL is not initial.

IT_MAILREC-RECEIVER = LW_BBP_PDS_PARTNER-E_MAIL .

TEMP_MAIL_ID = LW_BBP_PDS_PARTNER-E_MAIL.

IT_MAILREC-REC_TYPE = 'U'.

append IT_MAILREC.

LV_DATE1 = LS_BBP_PDS_AUC_HEADER_D-QUOT_DEAD.

LV_TIME1 = LS_BBP_PDS_AUC_HEADER_D-QUOT_DEAD_TIME.

perform DATE_CONVERSION using LV_DATE1.

perform TIME_CONVERSION using LV_TIME1.

concatenate 'Your Quotation Date is going to End on :' LV_DATE1

'Time :' Lv_TIME1 '.'

into IT_MAILHDR-LINE separated by ''.

IT_MAILTXT-LINE = 'AUCTION.'.

append IT_MAILTXT.

endif.

endif.

*****Mailing Code

GS_MAILDATA-OBJ_NAME = 'TEST-MAIL'.

GS_MAILDATA-OBJ_DESCR = 'Deadline for Auction'.

GS_MAILDATA-OBJ_LANGU = SY-LANGU.

  • IT_MAILTXT-LINE = 'This is a test'.

  • append IT_MAILTXT.

*

  • IT_MAILREC-RECEIVER = 'sajithmenon27@gmail.com'.

  • IT_MAILREC-REC_TYPE = 'U'.

  • append IT_MAILREC.

<b>call function 'SO_NEW_DOCUMENT_SEND_API1'

exporting

DOCUMENT_DATA = GS_MAILDATA

DOCUMENT_TYPE = 'RAW'

COMMIT_WORK = 'X'

tables

OBJECT_HEADER = IT_MAILHDR

OBJECT_CONTENT = IT_MAILTXT

RECEIVERS = IT_MAILREC

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.

else.

write:/ 'Mailed Succesfully to ',TEMP_MAIL_ID.

endif.</b>

***Initiate mail execute program..........

*WAIT UP TO 2 SECONDS.

*submit RSCONN01 with MODE = 'INT'

  • with OUTPUT = 'X'

  • and return.

*******end mail execute program.

clear: IT_MAILREC,IT_MAILTXT, LW_BBP_PDS_PARTNER,LS_BBP_PDS_AUC_HEADER_D.

endloop.

&----


*& Form date_conversion

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


form DATE_CONVERSION using p_LV_DATE1.

data: TEMP(10).

TEMP = p_LV_DATE1.

concatenate TEMP6(2) TEMP4(2) TEMP+0(4) into p_LV_DATE1 separated by '.'.

endform. " date_conversion

&----


*& Form time_conversion

&----


  • text

----


  • -->P_LV_TIME1 text

----


form TIME_CONVERSION using P_LV_TIME1.

data: temp(8).

temp = p_LV_time1.

CONCATENATE temp0(2) TEMP2(2) temp+4(2) into P_LV_TIME1 SEPARATED BY ':'.

endform. " time_conversion

2 REPLIES 2

Former Member
0 Kudos

Hi,

did you check transaction SCOT if everything is configured well?

Greetz Peter

0 Kudos

Check SOST & Check SCOT...

Hope this helps,

Erwan