topic Mail using ABAP program in Application Development and Automation Discussions

Mail using ABAP program

Former Member — Thu, 03 Apr 2008 10:40:26 GMT

Hi all,

see below it.

TABLES: ZST2.

DATA : BEGIN OF ITAB OCCURS 0,

EMPNO LIKE ZST2-EMPNO,

EMPNAME LIKE ZST2-EMPNAME,

END OF ITAB.

DATA: message_content LIKE soli OCCURS 10 WITH HEADER LINE,

receiver_list LIKE soos1 OCCURS 5 WITH HEADER LINE,

packing_list LIKE soxpl OCCURS 2 WITH HEADER LINE,

listobject LIKE abaplist OCCURS 10,

compressed_attachment LIKE soli OCCURS 100 WITH HEADER LINE,

w_object_hd_change LIKE sood1,

compressed_size LIKE sy-index.

START-OF-SELECTION.

SELECT EMPNO EMPNAME "PERNR ENAME

INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM ZST2."WHERE PERNR < 50.

LOOP AT ITAB.

WRITE :/02 SY-VLINE , ITAB-EMPNO, 15 SY-VLINE , ITAB-EMPNAME.

*SY-VLINE.

ENDLOOP.

Receivers

receiver_list-recextnam = 'ur@company'. "-->

EMAIL ADDRESS

RECEIVER_list-RECESC = 'E'. "<-

RECEIVER_list-SNDART = 'INT'."<-

RECEIVER_list-SNDPRI = '1'."<-

APPEND receiver_list.

General data

w_object_hd_change-objla = sy-langu.

w_object_hd_change-objnam = 'Object name'.

w_object_hd_change-objsns = 'P'.

Mail subject

w_object_hd_change-objdes = 'Message subject'.

Mail body

APPEND 'Message content' TO message_content.

Attachment

CALL FUNCTION 'SAVE_LIST'

EXPORTING

list_index = '0'

TABLES

listobject = listobject.

CALL FUNCTION 'TABLE_COMPRESS'

IMPORTING

compressed_size = compressed_size

TABLES

in = listobject

out = compressed_attachment.

DESCRIBE TABLE compressed_attachment.

CLEAR packing_list.

packing_list-transf_bin = 'X'.

packing_list-head_start = 0.

packing_list-head_num = 0.

packing_list-body_start = 1.

packing_list-body_num = sy-tfill.

packing_list-objtp = 'ALI'.

packing_list-objnam = 'Object name'.

packing_list-objdes = 'Attachment description'.

packing_list-objlen = compressed_size.

APPEND packing_list.

CALL FUNCTION 'SO_OBJECT_SEND'

EXPORTING

object_hd_change = w_object_hd_change

object_type = 'RAW'

owner = sy-uname

TABLES

objcont = message_content

receivers = receiver_list

packing_list = packing_list

att_cont = compressed_attachment.

how prepared it?

thx,

s.suresh

Re: Mail using ABAP program

abapdeveloper20 — Thu, 03 Apr 2008 10:45:37 GMT

Hi ,

Whatz worng in the code?? Pls post your requirement clearly... Thanks

Re: Mail using ABAP program

Former Member — Thu, 03 Apr 2008 10:48:47 GMT

Hi lakshmiraj,

I want send data to email.

Re: Mail using ABAP program

Former Member — Thu, 03 Apr 2008 10:57:14 GMT

hi,

chek this,,

TABLES :VARID. "Variant directory

DATA: GV_NAMES LIKE TSP01-RQ2NAME,

GD_BYTECOUNT LIKE TST01-DSIZE,

GD_BUFFER TYPE STRING,

PDF_LINES TYPE TLINE OCCURS 0 WITH HEADER LINE,

SEND_REQUEST TYPE REF TO CL_BCS,

L_SUBJECT LIKE SOOD-OBJDES,

DOCUMENT TYPE REF TO CL_DOCUMENT_BCS,

BCS_EXCEPTION TYPE REF TO CX_BCS,

V_CTR TYPE I VALUE 0,

IT_INPUT LIKE BDI_LINE OCCURS 0 WITH HEADER LINE,

IT_MESS_ATT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,

IT_BINARY_CONT TYPE SOLIX_TAB,

LEN_OUT TYPE I,

T_SPONO LIKE TSP01SYS OCCURS 0 WITH HEADER LINE.

DATA :GV_RQCRETIME LIKE TSP01-RQCRETIME.

DATA IT_VALUE LIKE RSPARAMS OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF T_VARID OCCURS 0,

VARIANT LIKE VARID-VARIANT,

END OF T_VARID.

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

SELECTION SCREEN *

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

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.

SELECT-OPTIONS: S_VAR FOR VARID-VARIANT.

SELECTION-SCREEN END OF BLOCK B1.

Select the varinat name from the table VARID

SELECT VARIANT INTO TABLE T_VARID

FROM VARID

WHERE REPORT EQ 'ZAMRP003'

AND VARIANT IN S_VAR.

SORT T_VARID.

CHECK NOT T_VARID[] IS INITIAL.

LOOP AT T_VARID.

SUBMIT ZAMRP003 USING SELECTION-SET T_VARID-VARIANT

TO SAP-SPOOL SAP COVER PAGE ' '

DESTINATION ' '

IMMEDIATELY 'X'

KEEP IN SPOOL 'X'

LINE-COUNT 60000

LINE-SIZE 134

LAYOUT 'X_58_170'

WITHOUT SPOOL DYNPRO AND RETURN.

COMMIT WORK AND WAIT.

CONCATENATE SY-DATUM '000000' INTO GV_RQCRETIME.

CONCATENATE 'ZAMRP003_' SY-UNAME+0(3) INTO GV_NAMES.

SELECT * FROM TSP01 INTO TABLE T_SPONO

WHERE RQCLIENT = SY-MANDT

AND RQ0NAME = 'LIST1S'

AND RQ2NAME = GV_NAMES

AND RQOWNER = SY-UNAME

AND RQCRETIME GE GV_RQCRETIME.

SORT T_SPONO BY RQIDENT DESCENDING.

CALL FUNCTION 'RS_VARIANT_CONTENTS'

EXPORTING

REPORT = 'ZAMRP003'

VARIANT = T_VARID-VARIANT

TABLES

VALUTAB = IT_VALUE

EXCEPTIONS

VARIANT_NON_EXISTENT = 1

VARIANT_OBSOLETE = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

MESSAGE E000(ZH) WITH 'Error in processing variant'.

ENDIF.

Create the email request

PERFORM CREATE_EMAIL .

SORT T_SPONO BY RQIDENT DESCENDING.

READ TABLE T_SPONO INDEX 1.

IF SY-SUBRC NE 0.

MESSAGE E000(ZH) WITH 'Error creating spool'

RAISING CONVERSION_ERROR.

ENDIF.

CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'

EXPORTING

SRC_SPOOLID = T_SPONO-RQIDENT

NO_DIALOG = ' '

IMPORTING

PDF_BYTECOUNT = GD_BYTECOUNT

TABLES

PDF = PDF_LINES

EXCEPTIONS

ERR_NO_ABAP_SPOOLJOB = 1

ERR_NO_SPOOLJOB = 2

ERR_NO_PERMISSION = 3

ERR_CONV_NOT_POSSIBLE = 4

ERR_BAD_DESTDEVICE = 5

USER_CANCELLED = 6

ERR_SPOOLERROR = 7

ERR_TEMSEERROR = 8

ERR_BTCJOB_OPEN_FAILED = 9

ERR_BTCJOB_SUBMIT_FAILED = 10

ERR_BTCJOB_CLOSE_FAILED = 11

OTHERS = 12.

IF SY-SUBRC <> 0.

MESSAGE E000(ZH) WITH 'Error converting spool to PDF'

RAISING CONVERSION_ERROR.

ENDIF.

Transfer the 132-long strings to 255-long strings

LOOP AT PDF_LINES.

TRANSLATE PDF_LINES USING ' ~'.

CONCATENATE GD_BUFFER PDF_LINES INTO GD_BUFFER.

ENDLOOP.

TRANSLATE GD_BUFFER USING '~ '.

DO.

IT_MESS_ATT = GD_BUFFER.

APPEND IT_MESS_ATT.

SHIFT GD_BUFFER LEFT BY 255 PLACES.

IF GD_BUFFER IS INITIAL.

EXIT.

ENDIF.

ENDDO.

Convert format of PDF data to that required for email

REFRESH IT_BINARY_CONT.

PERFORM CONVERT_134_TO_255_STR TABLES IT_MESS_ATT

IT_BINARY_CONT.

Now add it as an attachment

CONCATENATE 'ZAMRP003' '.pdf' INTO L_SUBJECT.

TRY.

CALL METHOD DOCUMENT->ADD_ATTACHMENT

EXPORTING

I_ATTACHMENT_TYPE = 'PDF'

I_ATTACHMENT_SUBJECT = L_SUBJECT

I_ATT_CONTENT_HEX = IT_BINARY_CONT.

Add document to send request

CALL METHOD SEND_REQUEST->SET_DOCUMENT( DOCUMENT ).

CATCH CX_BCS INTO BCS_EXCEPTION.

Send the message that occurred and then exit

MESSAGE ID BCS_EXCEPTION->MSGID

TYPE BCS_EXCEPTION->MSGTY

NUMBER BCS_EXCEPTION->MSGNO

WITH BCS_EXCEPTION->MSGV1 BCS_EXCEPTION->MSGV2

BCS_EXCEPTION->MSGV3 BCS_EXCEPTION->MSGV4.

EXIT.

ENDTRY.

Send the email now

PERFORM SEND_THE_EMAIL CHANGING SEND_REQUEST.

COMMIT WORK.

ENDLOOP.

&----

*& Form convert_134_to_255_str

&----

text

----

FORM CONVERT_134_TO_255_STR TABLES PT_134

PT_255.

DATA: L_DSN(100).

L_DSN = 'c:\temp\text_workarea.txt'.

Output file in 134 byte blocks

OPEN DATASET L_DSN FOR OUTPUT IN BINARY MODE.

IF SY-SUBRC NE 0.

WRITE 😕 'Error in PDF Conversion'.

STOP.

ENDIF.

LOOP AT PT_134.

TRANSFER PT_134 TO L_DSN.

ENDLOOP.

CLOSE DATASET L_DSN.

Read file in 255 byte blocks

OPEN DATASET L_DSN FOR INPUT IN BINARY MODE.

IF SY-SUBRC NE 0.

WRITE 😕 'Error in PDF Conversion'.

STOP.

ENDIF.

READ DATASET L_DSN INTO PT_255.

WHILE SY-SUBRC = 0.

APPEND PT_255.

READ DATASET L_DSN INTO PT_255.

ENDWHILE.

APPEND PT_255.

CLOSE DATASET L_DSN.

Clear file

OPEN DATASET L_DSN FOR OUTPUT IN BINARY MODE.

CLOSE DATASET L_DSN.

ENDFORM. " convert_134_to_255_str

&----

*& Form send_the_email

&----

text

----

FORM SEND_THE_EMAIL CHANGING P_SEND_REQUEST TYPE REF TO CL_BCS.

DATA: L_RECIPIENT TYPE REF TO IF_RECIPIENT_BCS,

L_SENT_TO_ALL TYPE OS_BOOLEAN,

LT_RECIP_ERROR TYPE BCSY_RE,

LT_ORIG_ERROR TYPE BCSY_ERCP,

LV_STR TYPE SZA5_D0700-SMTP_ADDR.

TRY.

Add recipients (e-mail address) ----------------------

LOOP AT IT_VALUE WHERE SELNAME = 'S_USER'.

Create recipient

LV_STR = IT_VALUE-LOW.

L_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS(

LV_STR ).

Add recipient with its respective attributes to send request

SEND_REQUEST->ADD_RECIPIENT( L_RECIPIENT ).

ENDLOOP.

Send document ---------------------------------------

CALL METHOD SEND_REQUEST->SEND_WITHOUT_DIALOG(

IMPORTING

E_RECIPIENTS_WITH_ERROR = LT_RECIP_ERROR

E_ORIG_RECS_WITH_ERROR = LT_ORIG_ERROR

E_SENT_TO_ALL = L_SENT_TO_ALL ).

For internet addresses, this should always be OK. It is only later
that an express message is sent if it fails. Hence no need to do
much error processing here.

IF L_SENT_TO_ALL = 'X'.

MESSAGE I217(ZH). "Sent to all recipients.

ENDIF.

CATCH CX_BCS INTO BCS_EXCEPTION.

Send the message that occurred and then exit

MESSAGE ID BCS_EXCEPTION->MSGID

TYPE BCS_EXCEPTION->MSGTY

NUMBER BCS_EXCEPTION->MSGNO

WITH BCS_EXCEPTION->MSGV1 BCS_EXCEPTION->MSGV2

BCS_EXCEPTION->MSGV3 BCS_EXCEPTION->MSGV4.

EXIT.

ENDTRY.

ENDFORM. " send_the_email

&----

*& Form create_email

&----

FORM CREATE_EMAIL.

DATA: SUB TYPE SO_OBJ_DES,

WA_TEXT TYPE SOLI,

LT_TEXT TYPE SOLI_TAB.

TRY.

-------- create persistent send request ------------------------

SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).

SEND_REQUEST->SET_STATUS_ATTRIBUTES( 'E' ).

SEND_REQUEST->SEND_REQUEST->SET_LINK_TO_OUTBOX( 'X' ).

-------- create and set document with attachment ---------------

WA_TEXT = 'Dear Recipient,'.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = ' '.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = ' '.

APPEND WA_TEXT TO LT_TEXT.

wa_text = 'We apologise for the inaccurate Fixed Asset '.
APPEND wa_text TO lt_text.
wa_text = 'Reports sent to you and any inconvenience caused by'.
APPEND wa_text TO lt_text.
wa_text = 'this error.'.
APPEND wa_text TO lt_text.
wa_text = ' '.
APPEND wa_text TO lt_text.
wa_text = 'The changing of the report from a manual to '.
APPEND wa_text TO lt_text.
wa_text = 'automatic process could not be fully tested in a test'

APPEND wa_text TO lt_text.
wa_text = ' environment and this has led to the problems that'.
APPEND wa_text TO lt_text.
wa_text = ' you have seen. We have now corrected these errors '.
APPEND wa_text TO lt_text.
wa_text = 'and the automated process will continue from now on'.
APPEND wa_text TO lt_text.

wa_text = ''.
APPEND wa_text TO lt_text.

wa_text = 'Thank you for your patience during this time.'.
APPEND wa_text TO lt_text.

wa_text = ''.
APPEND wa_text TO lt_text.
wa_text = ''.
APPEND wa_text TO lt_text.

WA_TEXT = 'This is the monthly fixed asset report for your'.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = 'cost centre(s) which shows assets'.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = 'for the previous calendar month.'.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = ' '.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = ' '.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = 'N.B. The asset locations shown on this report'.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = 'may be long out-of-date and are offered for'.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = 'guidance only.'.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = 'Please note that it is your responsibility to'.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = 'know: Where each asset is; What it is; and Why'.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = 'it is needed?'.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = ' '.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = ' '.

APPEND WA_TEXT TO LT_TEXT.

WA_TEXT = 'For any queries regarding the email or report'.

APPEND WA_TEXT TO LT_TEXT.

*-- Start of changes by SPUSA (001)

wa_text = 'please contact abc@com'.

WA_TEXT = 'please contact abc@com'.com'.

*-- End of changes by SPUSA (001)

APPEND WA_TEXT TO LT_TEXT.

SUB = 'Asset Management'.

DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(

I_TYPE = 'RAW'

I_TEXT = LT_TEXT

I_LENGTH = '24'

I_SUBJECT = SUB ).

CATCH CX_BCS INTO BCS_EXCEPTION.

Send the message that occurred and then exit

MESSAGE ID BCS_EXCEPTION->MSGID

TYPE BCS_EXCEPTION->MSGTY

NUMBER BCS_EXCEPTION->MSGNO

WITH BCS_EXCEPTION->MSGV1 BCS_EXCEPTION->MSGV2

BCS_EXCEPTION->MSGV3 BCS_EXCEPTION->MSGV4.

EXIT.

ENDTRY.

ENDFORM. " create_email

reward if helpful,

N.Rekha