Önceki Sayfa

SAP ABAP Programming, Functional and Basis Component Reference Books

Extract the smtp email address

*

* Extract the smtp email address from the User Profile SU01 or

* Vendor Master LFA1

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 Program

Copyright © 2010. KM Group. All Rights Reserved.