Online Tutorials & Training Materials | STechies.com
Register Login
Advertisement

Function module for sending SMS

|| 0

Function module for sending SMS
Stechies

You have to use the below codes to send the SMS

FORM SENDMESSAGE USING   P_PA_MOBILE   

P_PA_TXT.

  DATA: send request       TYPE REF TO cl_bcs.

  DATA: text               TYPE bcsy_text.

  DATA: document           TYPE REF TO cl_document_bcs.

  DATA: sender             TYPE REF TO cl_sapuser_bcs.

  DATA: recipient          TYPE REF TO if_recipient_bcs.

  DATA: bcs_exception      TYPE REF TO cx_bcs.

  DATA: sent_to_all        TYPE os_boolean.

  Data lp_sms_num         type AD_PAGNMBR.

  TRY.

·             - Generate determined refer request -
      Send request = cl_bcs=>create persistent ( ).

·             -Generate and fix document --
·             Generate  document from internal table using text
      Add P_PA_TXT to text.

      Document = cl_document_bcs=>create document (

                      Type    = 'RAW'

                      Intent    = text

                      Length  = '12'

                      i_subject = '' ).


·             Append document to send request
      CALL METHOD send request->set document( document ).


·             -set -
      Sender = cl_sapuser_bcs=>create( sy-uname ).

      CALL METHOD send request->set_sender

        EXPORTING

          i_sender = sender.


·            - Append recipient (e-mail address) -
      lp_sms_num = P_PA_MOBILE.

      Recipient = cl_cam_address_bcs=>create_sms_address(

                                         lp_sms_num ).


·             Append recipient with its respective attributes to send request
      CALL METHOD send request->add recipient

        EXPORTING

          i_recipient = recipient

          i_express   = 'X'.


·             Fix  instant dispensation, as a substitute of queues
      Send request->set_send_immediately (‘X’).


·             -send document -
      CALL METHOD send request->send (

        DISSEMINATING

          i_with_error_screen = 'X'

          RECEIVING

          Result              = sent_to_all).

      IF sent_to_all = 'X'.


      ENDIF.

      OBLIGATE EFFORT.

    CATCH cx_bcs INTO bcs_exception.

      Increase SMS_SENDING_FAILED.

      EXIT.

  ENDTRY.

ENDFORM.

The below function module can also help you to send SMS

  • SO_NEW_DOCUMENT_ATT_SEND_API1
  • SO_OBJECT_SEND

Hope this article might help you to sort out the above issue


Advertisement
Advertisement
Advertisement