This Program accepts two Input Parameters :

1) Application Server Folder path

2) Customer number

It fetches Email Id of the given customer; also fetches the PDF files from the given Folder; attaches all the files in a single mail and sends.

*&———————————————————————*

*& Report  YS_MUL_INV_MAIL1                                         *

*&                                                                     *

*&———————————————————————*

*&                                                                     *

*&                                                                     *

*&———————————————————————*

REPORT  ys_mul_inv_mail1 .

*———————————————————————-*

TYPE-POOLS: sx.

DATA: w_path_name          TYPE pfeflnamel,

      w_path_tmp           TYPE pfeflnamel,

      w_path               TYPE string,

      t_file_tbl           TYPE TABLE OF zsalfldir,

      w_file_tbl           TYPE zsalfldir.

DATA:

t_message_body  TYPE bcsy_text ,

g_objcont       TYPE solix_tab,

w_record        TYPE string,

w_pdf_xstring   TYPE xstring,

wo_send_request TYPE REF TO cl_bcs ,

wo_document     TYPE REF TO cl_document_bcs,

wo_sender       TYPE REF TO if_sender_bcs  ,

wo_recipient    TYPE REF TO if_recipient_bcs ,

wx_document_bcs TYPE REF TO cx_document_bcs ,

w_send          TYPE ad_smtpadr,

w_sent_to_all   TYPE os_boolean,

w_subject(50)   TYPE c,

w_adrnr         TYPE kna1-adrnr,

w_name1         TYPE kna1-name1,

w_name(40)      TYPE c,

w_subj          TYPE string, “so_obj_des,

w_invoice       TYPE vbeln_vf,

w_msg           TYPE string.

DATA: BEGIN OF t_file OCCURS 0,

            data(50000) TYPE c,

      END OF t_file.

*———————————————————————-*

*                 Selection-Screen: Parameter Declaration              *

*———————————————————————-*

PARAMETERS: p_kunnr TYPE kunnr OBLIGATORY,           “Customer number

      p_path TYPE rfpdo-rfbifile OBLIGATORY.  “App Serv Path

*———————————————————————*

CLASS cl_bcs DEFINITION LOAD.

CLEAR: w_path_name, t_file_tbl, w_path_tmp.

REFRESH: t_file_tbl.

w_path_name = p_path.

TRANSLATE w_path_name TO LOWER CASE.

CALL FUNCTION ‘ZRZL_READ_DIR_LOCAL’

  EXPORTING

    name           = w_path_name

  TABLES

    file_tbl       = t_file_tbl

  EXCEPTIONS

    argument_error = 1

    not_found      = 2

    OTHERS         = 3.

IF sy-subrc <> 0.

  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

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

ELSE.

  IF t_file_tbl[] IS INITIAL.

* Files not found

    WRITE ‘Files not found.’.                               “text-001.

  ENDIF.

ENDIF.

CLEAR:

      t_message_body,

      w_subj,

      w_msg,

      w_invoice,

      w_adrnr,

      w_name1,

      w_send,

      w_pdf_xstring,

      g_objcont,

      w_subject.

*  Create send request

wo_send_request = cl_bcs=>create_persistent( ).

* Fetch Name of the Customer

SELECT SINGLE name1 INTO w_name1

   FROM kna1

  WHERE kunnr = p_kunnr.

CONCATENATE w_name1 ‘,’ INTO w_name.

* Fetch Address number

SELECT SINGLE adrnr INTO w_adrnr

   FROM kna1

  WHERE kunnr = p_kunnr.

IF sy-subrc EQ 0.

* Fetch email address

  SELECT SINGLE smtp_addr INTO w_send

    FROM adr6

    WHERE addrnumber = w_adrnr.

  IF sy-subrc NE 0.

    MESSAGE ‘Email id is not updated in customer master. ‘ TYPE ‘E’.

  ENDIF.

ENDIF.      “kna1 sy-subrc

CLEAR:

  w_msg.

CONCATENATE ‘Please find the attached INVOICE ‘ ‘.’ INTO w_msg SEPARATED BY space.

* Create message body and name of the attachment

APPEND w_name       TO t_message_body.

APPEND INITIAL LINE TO t_message_body.

APPEND w_msg        TO t_message_body.

APPEND INITIAL LINE TO t_message_body.

APPEND ‘Thank You!’ TO t_message_body.

CONCATENATE ‘ Customer: ‘ p_kunnr INTO w_subj SEPARATED BY space.

* Email Body

wo_document = cl_document_bcs=>create_document(

                              i_type = ‘RAW’

                              i_text = t_message_body

                              i_subject = ‘ ‘ ).

LOOP AT t_file_tbl INTO w_file_tbl WHERE zname_len CS ‘PDF’.

*  CONCATENATE ‘Invoice_’ w_file_tbl-zname_len INTO w_subject.

  w_subject = w_file_tbl-zname_len.

  CLEAR w_path_tmp.

  CLEAR g_objcont.

  CONCATENATE  w_path_name ‘\’ w_file_tbl-zname_len

  INTO w_path_tmp.

  OPEN DATASET w_path_tmp FOR INPUT IN BINARY MODE.

  IF sy-subrc = 0.

    DO.

      CLEAR w_path.

      READ DATASET w_path_tmp INTO w_path.

      IF sy-subrc NE 0.

        EXIT.

      ELSE.

* Append all the Index files’ Data in one Internal Table

        APPEND w_path TO t_file.

        CLEAR w_path.

      ENDIF.

    ENDDO.

    LOOP AT t_file.

      IF t_file-data IS NOT INITIAL.

        CLEAR w_record.

        w_record = t_file-data.

        CONDENSE w_record.

      ENDIF.

    ENDLOOP.

    CALL FUNCTION ‘SCMS_STRING_TO_XSTRING’

    EXPORTING

      text           = w_record

    IMPORTING

      buffer         = w_pdf_xstring

   EXCEPTIONS

     failed         = 1

     OTHERS         = 2 .

* XSTRING format is then converted to Binary Format (SOLIX_TAB) to use in the attachment mail

    CALL FUNCTION ‘SCMS_XSTRING_TO_BINARY’

      EXPORTING

        buffer     = w_pdf_xstring

      TABLES

        binary_tab = g_objcont.

* Add attachment

    TRY.

        CALL METHOD wo_document->add_attachment

          EXPORTING

            i_attachment_type    = ‘PDF’

            i_attachment_subject = w_subject

            i_att_content_hex    = g_objcont.

      CATCH cx_document_bcs INTO wx_document_bcs.

    ENDTRY.

    CLOSE DATASET w_path_tmp.

  ENDIF.

ENDLOOP.

* Pass the document to send request

CALL METHOD wo_send_request->set_document( wo_document ).

* Email Subject (More than 50 characters)

CALL METHOD wo_send_request->set_message_subject

  EXPORTING

    ip_subject = w_subj.

* Create Sender

wo_sender = cl_cam_address_bcs=>create_internet_address( ’email@company.com‘ ). ” Sender Email Id

* Add sender to send request

CALL METHOD wo_send_request->set_sender

  EXPORTING

    i_sender = wo_sender.

* Create recipient

wo_recipient = cl_cam_address_bcs=>create_internet_address( w_send ).

*Set recipient

CALL METHOD wo_send_request->add_recipient

  EXPORTING

    i_recipient = wo_recipient

    i_express   = ‘X’.

* Set send immediately

wo_send_request->set_send_immediately( ‘X’ ).

* Send email

wo_send_request->send(

EXPORTING

i_with_error_screen = ‘X’

RECEIVING

result = w_sent_to_all ).

IF sy-subrc EQ space AND w_sent_to_all EQ ‘X’.

  MESSAGE ‘Mail sent successfully.’ TYPE ‘S’.

  COMMIT WORK.

ELSE.

  MESSAGE ‘Error sending Email’ TYPE ‘E’.

  ROLLBACK WORK.

ENDIF.

Hope this Program will be helpful.

To report this post you need to login first.

2 Comments

You must be Logged on to comment or reply to a post.

    1. Sowmya Sreeram Post author

      Import:
      NAME   LIKE        SALFILE-LONGNAME

      Tables:

      FILE_TBL              LIKE        ZSALFLDIR

      FUNCTION ZRZL_READ_DIR_LOCAL.

      *”———————————————————————-

      *”*”Local interface:

      *”  IMPORTING

      *”     VALUE(NAME) LIKE  SALFILE-LONGNAME

      *”  TABLES

      *”      FILE_TBL STRUCTURE  ZSALFLDIR

      *”  EXCEPTIONS

      *”      ARGUMENT_ERROR

      *”      NOT_FOUND

      *”———————————————————————-

      DATA: BEGIN OF LINE_TBL OCCURS 100.

              INCLUDE STRUCTURE SPFLIST.

      DATA: END OF LINE_TBL.

      DATA: LOC_NAME(200).

      DATA: LOC_DIR(200).

      DATA: TMP_LOC_DIR(200).

      DATA: LOC_DIR_LEN TYPE I.

      DATA: FULL_NAME(400).

      IF NAME <> SPACE.

        LOC_NAME = NAME.

        LOC_DIR = NAME.

        SHIFT LOC_DIR LEFT BY 2 PLACES.

        LOC_DIR_LEN = STRLEN( LOC_DIR ).

        LOC_DIR_LEN = LOC_DIR_LEN – 1.

        SHIFT LOC_DIR CIRCULAR LEFT BY LOC_DIR_LEN PLACES.

        IF LOC_NAME(2) = ‘$(‘ AND LOC_DIR(1) = ‘)’.

         LOC_DIR(1) = SPACE.

         SHIFT LOC_DIR CIRCULAR RIGHT BY LOC_DIR_LEN PLACES.

         CALL ‘C_SAPGPARAM’ ID ‘NAME’   FIELD LOC_DIR

                            ID ‘VALUE’  FIELD LOC_DIR.

         IF SY-SUBRC =  0.

          FULL_NAME = LOC_DIR.

         ELSE.

          FULL_NAME = NAME.

         ENDIF.

        ELSE.

        FULL_NAME = NAME.

        ENDIF.

      ELSE.

        FULL_NAME = NAME.

      ENDIF.

        REFRESH LINE_TBL.

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

      *  Send Request, wait for Response

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

        CALL ‘ALERTS’  ID ‘ADMODE’       FIELD AD_RZL

                       ID ‘OPCODE’       FIELD RZL_OP_RD_DIR

                       ID ‘FILE_NAME’    FIELD FULL_NAME

                       ID ‘DIR_TBL’      FIELD LINE_TBL-*SYS*.

        CASE SY-SUBRC.

          WHEN 0.   LOOP AT LINE_TBL.

                      FILE_TBL-SIZE      = LINE_TBL(10).

                      FILE_TBL-ZNAME_LEN = LINE_TBL+12.

                      APPEND FILE_TBL.

                    ENDLOOP.

          WHEN OTHERS.  RAISE NOT_FOUND.

        ENDCASE.

      ENDFUNCTION.

      (0) 

Leave a Reply