RERAIV - Real Estate Invoice mailing - BADI_RECP_SF

Question

I am working for emailing of the smart form and found the same badi BADI_RECP_SF. But to update the recepient details i hope, i need to use cs_mail_recepeint. Please let me know how i need to fill this details. If not this CS_MAIL_RECEIPIENT, is there any other option to provide the mail id. I want to send the invoice to the mail-id updated in BP transaction.
My business requirement is when we creates the invoice through RERAIV, the output should go to customer through mail.
one way of doing is select check box "Email" in RECPA520, but my business don't want to execute this manually. And through this process i can send output only to one emial id (standard) which is maintained in business partner master.
Is there any way to send mail to other mail-ids which are maintained in business partner?
For achieving this functionality, we have badi: BADI_RECP_SF. But I am trying to know how to update or pass the parameters for this BADI method 'PRINT'.
If you have achieved this, please let me know.
Thanks in advance.

Answer 1

Hi Vipul,
Sorry to reply you late, our client doesn't have internet access.
Standard process, doesn't give you mail body as per my analysis.
If you want mail body then u need to customize whole process. Maintain the mail body in SO10, using READ_TEXT attach mail body.
Eg.
  ld_guid = id_docguid.
CLEAR ls_doc_output.
READ TABLE is_job_output_info-spoolids ASSIGNING <gv_spoolid> INDEX 1.
if sy-subrc = 0.
SELECT SINGLE RQCLIEnt RQO1NAME INTO (lv_client, lv_rqname) FROM tsp01 WHERE rqident = <gv_spoolid>.
CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
EXPORTING
AUTHORITY     = 'SP01'
CLIENT        = lv_client
NAME          = lv_rqname
PART          = 1
IMPORTING
*           CHARCO        =
*           CREATER       =
*           CREDATE       =
*           DELDATE       =
*           MAX_CREDATE   =
*           MAX_DELDATE   =
*           NON_UNIQ      =
*           NOOF_PARTS    =
*           RECTYP        =
*           SIZE          =
*           STOTYP        =
TYPE          = type
OBJTYPE       = objtype
EXCEPTIONS
FB_ERROR      = 1
FB_RSTS_OTHER = 2
NO_OBJECT     = 3
NO_PERMISSION = 4.
if objtype(3) = 'OTF'.
is_otf = 'X'.
else.
is_otf = space.
endif.
if is_otf = 'X'.
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
EXPORTING
SRC_SPOOLID                    = <gv_spoolid>
NO_DIALOG                      = ' '
*       DST_DEVICE                     =
*       PDF_DESTINATION                =
IMPORTING
PDF_BYTECOUNT                  = numbytes
PDF_SPOOLID                    = pdfspoolid
*       OTF_PAGECOUNT                  =
BTC_JOBNAME                    = jobname
BTC_JOBCOUNT                   = jobcount
TABLES
PDF                            = pdf
EXCEPTIONS
ERR_NO_OTF_SPOOLJOB            = 1
ERR_NO_SPOOLJOB                = 2
ERR_NO_PERMISSION              = 3
ERR_CONV_NOT_POSSIBLE          = 4
ERR_BAD_DSTDEVICE              = 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.
IF sy-subrc = 0.
CONCATENATE LINES OF pdf INTO l_string RESPECTING BLANKS.
l_len = strlen( l_string ).
EXPORT my_data = l_string(l_len) TO DATA BUFFER l_buffer.
IMPORT my_data TO ls_doc_output-pdf FROM DATA BUFFER l_buffer IN CHAR-TO-HEX MODE.
ENDIF.
endif.
ENDIF.
CHECK ls_doc_output-pdf IS NOT INITIAL.
l_mm = sy-datum+4(2) + 1.
IF ( strlen( l_mm ) = 1 ).
CONCATENATE '0' l_mm INTO l_mm.
ENDIF.
CONCATENATE l_mm '/' sy-datum+0(4) '.' INTO l_mmyyyy.
TRY .
*       create persistent send request
lo_send_request = cl_bcs=>create_persistent( ).
*       get PDF xstring and convert it to BCS format
ld_pdf_size = XSTRLEN( ls_doc_output-pdf ).
ld_pdf_content = cl_document_bcs=>xstring_to_solix(
ip_xstring = ls_doc_output-pdf ).
CALL FUNCTION 'READ_TEXT'
EXPORTING
*            CLIENT                        = SY-MANDT
ID                            = 'ST'
LANGUAGE                      = 'E'
NAME                          = 'ZRE_INVOICE_MAIL'
OBJECT                        = 'TEXT'
*            ARCHIVE_HANDLE                = 0
*            LOCAL_CAT                     = ' '
*          IMPORTING
*            HEADER                        =
TABLES
LINES                         = lt_tlines
EXCEPTIONS
ID                            = 1
LANGUAGE                      = 2
NAME                          = 3
NOT_FOUND                     = 4
OBJECT                        = 5
REFERENCE_CHECK               = 6
WRONG_ACCESS_TO_ARCHIVE       = 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.
LOOP AT lt_tlines INTO ls_tlines.
IF ls_tlines-tdline cs 'MM/YYYY.'.
REPLACE FIRST OCCURRENCE OF 'MM/YYYY.' IN ls_tlines-tdline WITH l_mmyyyy .
ENDIF.
IF ls_tlines-tdline cs 'DD/MM/YYYY'.
REPLACE FIRST OCCURRENCE OF 'DD/MM/YYYY' IN ls_tlines-tdline WITH '01/08/2013' .
ENDIF.
ls_message_body-line = ls_tlines-tdline.
APPEND ls_message_body to lt_message_body.
ENDLOOP.
ld_subject  = is_options-tdtitle.
lo_document = cl_document_bcs=>create_document(
i_type    = 'RAW'
i_text    = lt_message_body
i_subject = ld_subject ).
CONCATENATE 'Invoice statement_' is_doc-buskey+4(13) INTO lv_filename.
TRY.
CALL METHOD LO_DOCUMENT->ADD_ATTACHMENT
EXPORTING
I_ATTACHMENT_TYPE    = 'PDF'
I_ATTACHMENT_SUBJECT = lv_filename
I_ATTACHMENT_SIZE    = ld_pdf_size
I_ATT_CONTENT_HEX    = ld_pdf_content.
CATCH CX_DOCUMENT_BCS .
ENDTRY.
*       add document to send request
lo_send_request->set_document( lo_document ).
*           add recipient (e-mail address)
select single customer INTO lv_kunnr FROM but000 as a INNER JOIN
cvi_cust_link as b ON b~partner_guid = a~partner_guid
WHERE partner = is_doc-partner.
select single adrnr into lv_addrcomm FROM kna1 WHERE kunnr = lv_kunnr.
if lv_addrcomm is NOT INITIAL.
select smtp_addr from adr6 INTO TABLE lt_recipient WHERE addrnumber = lv_addrcomm.
LOOP AT lt_recipient INTO lw_recipient.
ls_recipient-smtp_addr = lw_recipient-smtp_addr.
lo_recipient = cl_cam_address_bcs=>create_internet_address(
i_address_string = ls_recipient-smtp_addr ).
*       add recipient to send request
lo_send_request->add_recipient( i_recipient = lo_recipient ).
ENDLOOP.
*       send document
lf_sent_to_all = lo_send_request->send(
i_with_error_screen = 'X' ).
IF lf_sent_to_all = 'X'.
*          message i022(so). "Delete DEVK917667
ENDIF.
*   ---------- explicit 'commit work' is mandatory! ----------------
COMMIT WORK.
endif.
* *            exception handling
* * replace this very rudimentary exception handling
* * with your own one !!!
CATCH cx_bcs INTO lo_bcs_exception.
WRITE: text-002.
WRITE: text-003, lo_bcs_exception->error_type.
EXIT.
ENDTRY.
*  endif.