Extract the smtp email address in sap abap

*
* Extract the smtp email address from the User Profile SU01 or
* Vendor Master LFA1
*
* Written by : SAP Basis, ABAP Programming and Other IMG Stuff
*              http://www.sap-img.com
*

REPORT ZSMTPADR.

TABLES: USR21,
       LFA1,
       ADR6.

DATA: BEGIN OF WA,
        BNAME      TYPE USR21-BNAME,
        LIFNR      TYPE LFA1-LIFNR,
        ADRNR      TYPE LFA1-ADRNR,
        PERSNUMBER TYPE ADR6-PERSNUMBER,
        ADDRNUMBER TYPE ADR6-ADDRNUMBER,
        SMTP_ADDR  TYPE ADR6-SMTP_ADDR,
     END OF WA,
     ITAB LIKE SORTED TABLE OF WA
                WITH NON-UNIQUE KEY BNAME LIFNR.

SELECT-OPTIONS: UNAME FOR USR21-BNAME.
SELECT-OPTIONS: LIFNR FOR LFA1-LIFNR.

IF UNAME-LOW <> SPACE.
  SELECT  U~BNAME U~PERSNUMBER U~ADDRNUMBER
          A~SMTP_ADDR
      INTO CORRESPONDING FIELDS OF TABLE ITAB
      FROM ( USR21 AS U
         INNER JOIN ADR6 AS A ON A~PERSNUMBER = U~PERSNUMBER
                             AND A~ADDRNUMBER = U~ADDRNUMBER )
      WHERE U~BNAME IN UNAME.

  LOOP AT ITAB INTO WA.
     WRITE:/ WA-BNAME, WA-SMTP_ADDR(50).
  ENDLOOP.
ENDIF.

IF LIFNR-LOW <> SPACE.
  SELECT  L~LIFNR L~ADRNR
          A~SMTP_ADDR
      INTO CORRESPONDING FIELDS OF TABLE ITAB
      FROM ( LFA1 AS L
         INNER JOIN ADR6 AS A ON A~ADDRNUMBER = L~ADRNR )
      WHERE L~LIFNR IN LIFNR.

   LOOP AT ITAB INTO WA.
      WRITE:/ WA-LIFNR, WA-SMTP_ADDR(50).
   ENDLOOP.
ENDIF.

*-- End of Progra