ABAP- Get email address in HR from employee id.

DATA: lv_sender_addr         TYPE adr6-smtp_addr,

lv_bname               TYPE usr01-bname,       “employee number

fs_addr                TYPE addr3_val,

fs_usr03               TYPE usr03,

 

        CALL FUNCTION 'SUSR_USER_ADDRESS_READ'
               EXPORTING
                    user_name              = lv_bname
*           READ_DB_DIRECTLY       = ' '
              IMPORTING
                   user_address           = fs_addr
                   user_usr03             = fs_usr03
              EXCEPTIONS
                   user_address_not_found = 1
                   OTHERS                 = 2.

 

       SELECT SINGLE smtp_addr
          INTO lv_sender_addr
          FROM adr6
          WHERE  addrnumber = fs_addr-addrnumber AND
                 persnumber = fs_addr-persnumber.