How to get Mail address of an Employee in Workflow ?

Question

Hello Everybody ,
I want  to send mail  to employee   through  workflow    . I  have  Employee  number  PERNR  but  which method and  B.O   should i used  to get   email  address  of  that  employee   .?
Any solution .?
Regards,
Sandeep Jadhav

Answer 1

hi:
Try the function module HR_FBN_GET_USER_EMAIL_ADDRESS
else Create a Z_function module and put the following code as
ORM find_email_address USING    p_uname
                        CHANGING p_recextnam LIKE soos1-recextnam.
  DATA:   t_pernr LIKE pa0105-pernr,
          t_email LIKE pa0105-usrid_long.
STEP 1 - Find personnel number for UNAME
  SELECT SINGLE pernr INTO t_pernr
    FROM pa0105
    WHERE subty = '0001' AND
          endda >= sy-datum AND
          begda <= sy-datum AND
          usrid = p_uname.
Employee record found
  IF sy-subrc = 0.
STEP 2 - Find email address for personnel number
    SELECT SINGLE usrid_long INTO t_email
      FROM pa0105
      WHERE pernr = t_pernr AND
            subty = '0022' AND
            endda >= sy-datum AND
            begda <= sy-datum.
    IF sy-subrc = 0.
      IF NOT p_recextnam IS INITIAL.
        CONCATENATE p_recextnam t_email
          INTO p_recextnam SEPARATED BY ','.
      ELSE.
        p_recextnam = t_email.
      ENDIF.
    ELSE.  "Never found an email address for employee
WHO SHOULD WE SEND TO HERE??? ***
    ENDIF.
Employee number not found. Search in ADR6 table
  ELSE.
See if user name is in the username table.
i.e. The user is not an employee
    SELECT SINGLE addrnumber persnumber
      INTO (usr21-addrnumber, usr21-persnumber)
      FROM usr21
      WHERE bname = p_uname.
    IF sy-subrc = 0.
Found user name now let's get the email address
      SELECT SINGLE smtp_addr INTO t_email
        FROM adr6
        WHERE addrnumber = usr21-addrnumber AND
              persnumber = usr21-persnumber.
      IF sy-subrc <> 0 OR t_email IS INITIAL.
WHO SHOULD WE SEND TO HERE??? ***
      ELSE.  "Found email
        IF NOT p_recextnam IS INITIAL.
          CONCATENATE p_recextnam t_email
            INTO p_recextnam SEPARATED BY ','.
        ELSE.
          p_recextnam = t_email.
        ENDIF.
      ENDIF.
    ELSE.   "UNAME just does not have an email address addigned at all
WHO SHOULD WE SEND TO HERE??? ***
    ENDIF.
  ENDIF.
Regards
Shashi