Hi Rajasree,
You can get the email address by passing the PERNR of employee and read the infotype '0105' (communication) with subtype '0010'.
DATA: lt_p0105 LIKE p0105 OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
* TCLAS = 'A'
pernr = pernr
infty = '0105'
begda = sy-datum
endda = sy-datum
* BYPASS_BUFFER = ' '
* LEGACY_MODE = ' '
* IMPORTING
* SUBRC =
TABLES
infty_tab = lt_p0105
EXCEPTIONS
infty_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
READ TABLE lt_p0105 WITH KEY subty = '0010'.
email = lt_p0105-usrid_long.
Regards,
Pipit