SAP Tutorials Blog


class zcl_email definition

  public

  final

  create public .

 

  public section.

 

    class-methods bapiret2_from_sy

      returning

        value(rs_bapiret2) type bapiret2 .

    class-methods validate_email

      importing

        !email_type    type sx_addr_type default 'INT'

        !email_address type sx_addr

      returning

        value(return)  type bapiret2 .

  protected section.

  private section.

endclass.

 

class zcl_email implementation.

 

  method bapiret2_from_sy.

    data: msg type bapiret2.

 

    msg-id         = sy-msgid.

    msg-number     = sy-msgno.

    msg-type       = sy-msgty.

    msg-message_v1 = sy-msgv1.

    msg-message_v2 = sy-msgv2.

    msg-message_v3 = sy-msgv3.

    msg-message_v4 = sy-msgv4.

 

    message id sy-msgid type sy-msgty number sy-msgno

       with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

       into msg-message.

 

    rs_bapiret2  = msg .

 

  endmethod.

 

 

  method validate_email.

 

    data address_unstruct               type sx_address.

 

    address_unstruct-type    = email_type .

    address_unstruct-address = email_address .

 

    call function 'SX_INTERNET_ADDRESS_TO_NORMAL'

      exporting

        address_unstruct    = address_unstruct

      exceptions

        error_address_type  = 1

        error_address       = 2

        error_group_address = 3.

 

    if sy-subrc ne 0 .

      return = bapiret2_from_sy( ) .

    endif.

 

  endmethod.

endclass.


Serkan AKKAVAK

Computer Engineer BSc

SAP Department Manager

Contact : serkurumsal@yandex.com