Need error notification by email.

[Former Member]

Hi ,

I need to develop a ZEE function module which can be used for all inbound procees to send an E-mail notification . The recipent list , Subject , body of E-mail will be store in the Zee table and Activate and Deactivate button for the paticulr process is also avaliable in the table.Can any one let me know hw can i do this requirement .

Regards,

Sriram

[Former Member]

Hi,

to send mails use this:

FORM docu_send_email USING pv_otfdata TYPE tsfotf

pv_emailid TYPE any

pv_formname TYPE any.

DATA: lv_filesize TYPE i,

lv_buffer TYPE string,

lv_attachment TYPE i,

lv_testo TYPE i.

DATA: li_pdfdata TYPE STANDARD TABLE OF tline,

li_mess_att TYPE STANDARD TABLE OF solisti1,

li_mtab_pdf TYPE STANDARD TABLE OF tline,

li_objpack TYPE STANDARD TABLE OF sopcklsti1,

li_objtxt TYPE STANDARD TABLE OF solisti1,

li_objbin TYPE STANDARD TABLE OF solisti1,

li_reclist TYPE STANDARD TABLE OF somlreci1,

li_objhead TYPE soli_tab.

DATA: lwa_pdfdata TYPE tline,

lwa_objpack TYPE sopcklsti1,

lwa_mess_att TYPE solisti1,

lwa_objtxt TYPE solisti1,

lwa_objbin TYPE solisti1,

lwa_reclist TYPE somlreci1,

lwa_doc_chng TYPE sodocchgi1.

CONSTANTS: lc_u TYPE char1 VALUE 'U',

lc_0 TYPE char1 VALUE '0',

lc_1 TYPE char1 VALUE '1',

lc_pdf TYPE char3 VALUE 'PDF',

lc_raw TYPE char3 VALUE 'RAW',

lc_ordform TYPE char15 VALUE 'ZORDCONFIRM_01',

lc_attachment TYPE char10 VALUE 'ATTACHMENT'.

CALL FUNCTION 'CONVERT_OTF'

EXPORTING

format = lc_pdf

max_linewidth = 132

IMPORTING

bin_filesize = lv_filesize

TABLES

otf = pv_otfdata

lines = li_pdfdata

EXCEPTIONS

err_max_linewidth = 1

err_format = 2

err_conv_not_possible = 3

err_bad_otf = 4

OTHERS = 5.

IF sy-subrc 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT li_pdfdata INTO lwa_pdfdata.

TRANSLATE lwa_pdfdata USING ' ~'.

CONCATENATE lv_buffer lwa_pdfdata INTO lv_buffer.

CLEAR lwa_pdfdata.

ENDLOOP.

TRANSLATE lv_buffer USING '~ '.

DO.

lwa_mess_att = lv_buffer.

APPEND lwa_mess_att TO li_mess_att.

CLEAR lwa_mess_att.

SHIFT lv_buffer LEFT BY 255 PLACES.

IF lv_buffer IS INITIAL.

EXIT.

ENDIF.

ENDDO.

• Object with PDF.

REFRESH li_objbin.

li_objbin] = li_mess_att[.

DESCRIBE TABLE li_objbin LINES lv_attachment.

• Object with main text of the mail.

lwa_objtxt = space.

APPEND lwa_objtxt TO li_objtxt.

CLEAR lwa_objtxt.

DESCRIBE TABLE li_objtxt LINES lv_testo.

• Create the document which is to be sent

lwa_doc_chng-obj_name = text-008.

lwa_doc_chng-obj_descr = text-008.

lwa_doc_chng-sensitivty = lc_0.

lwa_doc_chng-obj_prio = lc_1.

lwa_doc_chng-doc_size = lv_testo * 225.

• Pack to main body.

CLEAR lwa_objpack-transf_bin.

• header

lwa_objpack-head_start = 1.

• The document needs no header (head_num = 0)

lwa_objpack-head_num = 0.

• body

lwa_objpack-body_start = 1.

lwa_objpack-body_num = lv_testo.

lwa_objpack-doc_type = lc_raw.

APPEND lwa_objpack TO li_objpack.

CLEAR lwa_objpack.

• Create the attachment.

• Fill the fields of the packing_list for the attachment:

lwa_objpack-transf_bin = gc_x .

• header

lwa_objpack-head_start = 1.

lwa_objpack-head_num = 1.

• body

lwa_objpack-body_start = 1.

lwa_objpack-body_num = lv_attachment.

lwa_objpack-doc_type = lc_pdf.

lwa_objpack-obj_name = lc_attachment.

lwa_objpack-obj_descr = text-008.

lwa_objpack-doc_size = lv_attachment * 255.

APPEND lwa_objpack TO li_objpack.

CLEAR lwa_objpack.

lwa_reclist-receiver = pv_emailid.

lwa_reclist-rec_type = lc_u.

lwa_reclist-notif_del = gc_x.

lwa_reclist-notif_ndel = gc_x.

APPEND lwa_reclist TO li_reclist.

IF li_reclist IS NOT INITIAL.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = lwa_doc_chng

put_in_outbox = gc_x

TABLES

packing_list = li_objpack

object_header = li_objhead

contents_bin = li_objbin

contents_txt = li_objtxt

receivers = li_reclist

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 'I' NUMBER sy-msgno

• WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDIF.

ENDFORM. " DOCU_SEND_EMAIL

[Former Member]

Hi ,

Tnks for quick responce...

I hve the following enteries in ZEE_table ..

1)SO10 -text ID

2)Active /Deactive Flag

3)Multiple recipent

4)Process ID

My FM should be generic/common it can be used for all inbound procees based on process ID..

Wether ur code will suit for me ..

Regrads,

Sri

[Former Member]

yes it will.

[vijy_mukunthan]

hi

use this way to send the mail.

TYPE-POOLS ABAP.

PARAMETER MAILTO TYPE ADR6-SMTP_ADDR.

DATA: LO_SEND_REQUEST TYPE REF TO CL_BCS,
      LO_DOCUMENT      TYPE REF TO CL_DOCUMENT_BCS,
      LO_RECIPIENT     TYPE REF TO CL_CAM_ADDRESS_BCS ,
      LO_EXCEPTION     TYPE REF TO CX_BCS,
      LV_SENT_TO_ALL   TYPE OS_BOOLEAN,
      LT_HTML          TYPE TABLE OF W3HTML   WITH HEADER LINE.

APPEND '<html><body><p><B>Hi vijay, - normal text </B></p><p><i>Italics - text</i></p></body></html>' TO LT_HTML.{color:red} ------------> if you want the text in the format of HTML {color}


TRY.
    LO_SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).
    LO_DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT( I_TYPE    = 'HTM'
                                                    I_TEXT    = LT_HTML[]   " Html content
                                                    I_SUBJECT = 'Test' ).
    LO_SEND_REQUEST->SET_DOCUMENT( LO_DOCUMENT ).
    LO_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( MAILTO ).
    LO_SEND_REQUEST->ADD_RECIPIENT( EXPORTING I_RECIPIENT = LO_RECIPIENT
                                              I_EXPRESS   = 'X' ).
    LO_SEND_REQUEST->SET_SEND_IMMEDIATELY( 'X' ).
    LV_SENT_TO_ALL = LO_SEND_REQUEST->SEND( 'X' ).
    COMMIT WORK.

  CATCH CX_BCS INTO LO_EXCEPTION.
    EXIT.
ENDTRY.

Regards

vijay