Recuperare la mail dell'utente SAP

*----------------------------------------------------------------------*
* FORM RETRIEVE_EMAIL                                                  *
*----------------------------------------------------------------------*
FORM retrieve_email USING pv_uname TYPE XUBNAME
                    CHANGING pv_mail TYPE AD_SMTPADR.

  DATA: lv_addrn TYPE AD_ADDRNUM,
        lv_persn TYPE AD_PERSNUM.

  SELECT SINGLE ADDRNUMBER PERSNUMBER
    FROM USR21
    INTO (lv_addrn, lv_persn)
   WHERE BNAME = pv_uname.
  SELECT SINGLE SMTP_ADDR
    FROM ADR6
    INTO pv_mail
   WHERE ADDRNUMBER = lv_addrn
     AND PERSNUMBER = lv_persn
     AND HOME_FLAG  = 'X'.

ENDFORM.