AW: AW: Determining the SMPT mail address
Becker Stephan (extern)
Stephan.Becker.ext at mchw.siemens.de
Tue Jul 9 05:01:07 EDT 2002
Simon,=20
which release are you on? Here's the code from my 4.6C system..
Hth,
Stephan
FUNCTION BAPI_USER_GET_DETAIL.
*"----------------------------------------------------------------------=
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(USERNAME) LIKE BAPIBNAME-BAPIBNAME
*" EXPORTING
*" VALUE(LOGONDATA) LIKE BAPILOGOND STRUCTURE BAPILOGOND
*" VALUE(DEFAULTS) LIKE BAPIDEFAUL STRUCTURE BAPIDEFAUL
*" VALUE(ADDRESS) LIKE BAPIADDR3 STRUCTURE BAPIADDR3
*" VALUE(COMPANY) LIKE BAPIUSCOMP STRUCTURE BAPIUSCOMP
*" VALUE(SNC) LIKE BAPISNCU STRUCTURE BAPISNCU
*" TABLES
*" PARAMETER STRUCTURE BAPIPARAM OPTIONAL
*" PROFILES STRUCTURE BAPIPROF OPTIONAL
*" ACTIVITYGROUPS STRUCTURE BAPIAGR OPTIONAL
*" RETURN STRUCTURE BAPIRET2
*" ADDTEL STRUCTURE BAPIADTEL OPTIONAL
*" ADDFAX STRUCTURE BAPIADFAX OPTIONAL
*" ADDTTX STRUCTURE BAPIADTTX OPTIONAL
*" ADDTLX STRUCTURE BAPIADTLX OPTIONAL
*" ADDSMTP STRUCTURE BAPIADSMTP OPTIONAL
*" ADDRML STRUCTURE BAPIADRML OPTIONAL
*" ADDX400 STRUCTURE BAPIADX400 OPTIONAL
*" ADDRFC STRUCTURE BAPIADRFC OPTIONAL
*" ADDPRT STRUCTURE BAPIADPRT OPTIONAL
*" ADDSSF STRUCTURE BAPIADSSF OPTIONAL
*" ADDURI STRUCTURE BAPIADURI OPTIONAL
*" ADDPAG STRUCTURE BAPIADPAG OPTIONAL
*" ADDCOMREM STRUCTURE BAPICOMREM OPTIONAL
*" GROUPS STRUCTURE BAPIGROUPS OPTIONAL
*"----------------------------------------------------------------------=
DATA USERNAME_ LIKE USR02-BNAME.
DATA: LOGONDATA_ LIKE USLOGOND,
DEFAULTS_ LIKE USDEFAULTS.
DATA USER_ADDRESS LIKE USADDRESS.
DATA PARAMETER_ TYPE USTYP_T_PARAMETERS OCCURS 0.
DATA PROFILES_ TYPE USTYP_T_PROFILES OCCURS 0.
DATA ACTIVITYGROUPS_ TYPE USTYP_T_AGR OCCURS 0.
DATA ADDR3_COMPLETE TYPE SZADR_ADDR3_COMPLETE.
data t_addr_return like return occurs 0 with header line.
SET LOCALE LANGUAGE sy-langu.
TRANSLATE username TO UPPER CASE. "note =
412103
USERNAME_ =3D USERNAME.
CALL FUNCTION 'SUSR_USER_READ_CHECKS'
EXPORTING
USER_NAME =3D USERNAME_
TABLES
ERRORTABLE =3D RETURN.
READ TABLE RETURN WITH KEY TYPE =3D 'E' TRANSPORTING NO FIELDS.
IF SY-SUBRC =3D 0.
EXIT.
ENDIF.
*-----------------------------------------------------------------------=
* Logondaten, Defaultwerte, Parameter und Adress-Schl=FCssel ermitteln
*-----------------------------------------------------------------------=
USERNAME_ =3D USERNAME.
CALL FUNCTION 'SUSR_USER_READ'
EXPORTING
USER_NAME =3D USERNAME_
* WITH_TEXT =3D
IMPORTING
USER_LOGONDATA =3D LOGONDATA_
USER_DEFAULTS =3D DEFAULTS_
USER_ADDRESS =3D USER_ADDRESS
TABLES
USER_PARAMETERS =3D PARAMETER
EXCEPTIONS
USER_NAME_NOT_EXISTS =3D 1
INTERNAL_ERROR =3D 2
OTHERS =3D 3.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOGONDATA =3D LOGONDATA_.
* Verschl=FCsselte Passwortdaten nicht mit ausgeben!
* Hinweis 319553: Die ZBV ben=F6tigt bei der =DCbernahme von Benutzern =
mit
* Transaktion SCUG den Kennworthashwert. Die Daten werden durch eine
* Berechtigungspr=FCfung gesch=FCtzt. LTIME dient als Kennweichen f=FCr =
die
* Produktiv- bzw. Initialeigenschaft des Kennworthashwertes.
DATA RC LIKE SY-SUBRC.
PERFORM AUTH_CHECK(SAPLSUUC)
USING OBJ_GROUP
LOGONDATA-CLASS
SPACE
ACT_LOCK
RC.
IF RC NE 0.
CLEAR LOGONDATA-BCODE.
CLEAR LOGONDATA-CODVN.
CLEAR LOGONDATA-LTIME.
ENDIF.
DEFAULTS =3D DEFAULTS_.
*parameter[] =3D parameter_[].
*-----------------------------------------------------------------------=
* Adressdaten ermitteln und konvertieren
*-----------------------------------------------------------------------=
IF ( address IS REQUESTED ) OR
( addtel IS REQUESTED ) OR
( addfax IS REQUESTED ) OR
( addttx IS REQUESTED ) OR
( addtlx IS REQUESTED ) OR
( addsmtp IS REQUESTED ) OR
( addrml IS REQUESTED ) OR
( addx400 IS REQUESTED ) OR
( addrfc IS REQUESTED ) OR
( addprt IS REQUESTED ) OR
( addssf IS REQUESTED ) OR
( adduri IS REQUESTED ) OR
( addpag IS REQUESTED ) OR
( addcomrem IS REQUESTED ).
CALL FUNCTION 'ADDR_PERS_COMP_GET_COMPLETE'
EXPORTING
ADDRNUMBER =3D USER_ADDRESS-ADDRNUMBER
* ADDRHANDLE =3D
PERSNUMBER =3D USER_ADDRESS-PERSNUMBER
* pershandle =3D
IMPORTING
ADDR3_COMPLETE =3D ADDR3_COMPLETE
EXCEPTIONS
PARAMETER_ERROR =3D 1
ADDRESS_NOT_EXIST =3D 2
PERSON_NOT_EXIST =3D 3
INTERNAL_ERROR =3D 4
OTHERS =3D 5.
IF SY-SUBRC =3D 0.
* CALL FUNCTION 'ADDR_CONVERT_TO_BAPIADDR3'
* EXPORTING
* ADDR3_COMPLETE =3D ADDR3_COMPLETE
* IMPORTING
* ADDR3_COMPLETE_BAPI =3D ADDRESS.
refresh t_addr_return.
CALL FUNCTION 'ADDR_CONVERT_TO_BAPIADDR3_V2'
EXPORTING
ADDR3_COMPLETE =3D ADDR3_COMPLETE
IMPORTING
ADDR3_COMPLETE_BAPI =3D ADDRESS
TABLES
T_BAPIADTEL =3D AdDTEL
T_BAPIADFAX =3D AdDFAX
T_BAPIADTTX =3D AdDTTX
T_BAPIADTLX =3D AdDTLX
T_BAPIADSMTP =3D AdDSMTP
T_BAPIADRML =3D AdDRML
T_BAPIADX400 =3D AdDX400
T_BAPIADRFC =3D AdDRFC
T_BAPIADPRT =3D AdDPRT
T_BAPIADSSF =3D AdDSSF
T_BAPIADURI =3D AdDURI
T_BAPIADPAG =3D AdDPAG
T_BAPICOMREM =3D addCOMREM
RETURN =3D t_addr_return.
append lines of t_addr_return to return.
ELSE.
CLEAR ADDRESS.
* message 69 Adresse konnte nicht gelesen werden.
CALL FUNCTION 'BALW_BAPIRETURN_GET2'
EXPORTING
TYPE =3D 'W'
CL =3D '01'
NUMBER =3D '069'
IMPORTING
RETURN =3D RETURN.
APPEND RETURN.
ENDIF.
ENDIF. "ADDRESS IS REQUESTED
*-----------------------------------------------------------------------=
* Firmenadresse ermitteln
*-----------------------------------------------------------------------=
IF COMPANY IS REQUESTED.
SELECT SINGLE COMPANY FROM USCOMPANY INTO COMPANY
WHERE ADDRNUMBER =3D USER_ADDRESS-ADDRNUMBER.
IF SY-SUBRC <> 0.
CLEAR COMPANY.
* message 76 Adresse konnte nicht gelesen werden.
CALL FUNCTION 'BALW_BAPIRETURN_GET2'
EXPORTING
TYPE =3D 'W'
CL =3D '01'
NUMBER =3D '076'
IMPORTING
RETURN =3D RETURN.
APPEND RETURN.
ENDIF.
ENDIF. "COMPANY IS REQUESTED
*-----------------------------------------------------------------------=
* Profilzuordnung ermitteln
*-----------------------------------------------------------------------=
IF profiles IS REQUESTED.
CALL FUNCTION 'SUSR_USER_PROFS_PROFILES_GET'
EXPORTING
USER_NAME =3D USERNAME_
WITH_TEXT =3D 'X'
TABLES
USER_PROFILES =3D PROFILES
EXCEPTIONS
USER_NAME_NOT_EXIST =3D 1
OTHERS =3D 2.
*profiles[] =3D profiles_[].
ENDIF. "PROFILES IS REQUESTED
*-----------------------------------------------------------------------=
* Rollenzuordnung ermitteln
*-----------------------------------------------------------------------=
IF activitygroups IS REQUESTED.
CALL FUNCTION 'SUSR_USER_AGR_ACTIVITYGR_GET'
EXPORTING
USER_NAME =3D USERNAME_
WITH_TEXT =3D 'X'
TABLES
USER_ACTIVITYGROUPS =3D ACTIVITYGROUPS
EXCEPTIONS
USER_NAME_NOT_EXIST =3D 1
OTHERS =3D 2.
*activitygroups[] =3D activitygroups_[].
ENDIF. "activitygroups IS REQUESTED.
*-----------------------------------------------------------------------=
* SNC-Daten ermitteln
*-----------------------------------------------------------------------=
IF snc IS REQUESTED.
CALL FUNCTION 'SNC_USER_GET_DATA'
EXPORTING
USER_NAME =3D username
IMPORTING
USER_SNC =3D snc.
ENDIF. "snc IS REQUESTED.
*-----------------------------------------------------------------------=
* Gruppenzugeh=F6rigkeit ermitteln
*-----------------------------------------------------------------------=
IF groups IS REQUESTED.
data: USERGROUPS type table of USGROUPS with header line.
CALL FUNCTION 'SUSR_USER_GROUP_GROUPS_GET'
EXPORTING
bname =3D username
TABLES
usergroups =3D USERGROUPS.
clear groups[].
loop at USERGROUPS.
groups-USERGROUP =3D USERGROUPS-USERGROUP.
append groups.
endloop.
ENDIF. "groups IS REQUESTED
ENDFUNCTION.
-----Urspr=FCngliche Nachricht-----
Von: Simon Freer [mailto:Simon_Freer at eu.fmo.com]
Gesendet: Dienstag, 9. Juli 2002 10:51
An: SAP-WUG at MITVMA.MIT.EDU
Betreff: Re: AW: Determining the SMPT mail address
Arghhhh
Is anything in SAP straight forward !
BAPI_USER_GET_DETAIL does not exist !
Ta
Simon
"Verma Ashish (TTL_LKO)" <ashish at telco.co.in> on 09/07/2002 14:13:07
To: SAP-WUG at MITVMA.MIT.EDU
cc: (bcc: Simon Freer/Bradford2_GB/Federal-Mogul)
Subject: Re: AW: Determining the SMPT mail address
go to se37. give function name BAPI_USER_GET_DETAIL -> click on single =
test
-> give user name -> you will have all the results. The addsmtp gives =
the
smtp address of the user.=20
regards
ashish
> ----------
>> From: Simon Freer[SMTP:Simon_Freer at eu.fmo.com]
> Reply To: SAP Workflow Users' Group
> Sent: Tuesday, July 09, 2002 2:02 PM
> To: SAP-WUG at MITVMA.MIT.EDU
> Subject: Re: AW: Determining the SMPT mail address
>=20
> Thanks for this, I think
>=20
> I'm fairly new to this can you elaborate a little ?
>=20
> Ta
>=20
> Simon=20
>=20
>=20
>=20
>=20
> Nieder Martin <Martin.Nieder at munich-airport.de> on 09/07/2002 =
07:41:00
> To: SAP-WUG at MITVMA.MIT.EDU
> cc: (bcc: Simon Freer/Bradford2_GB/Federal-Mogul)
>=20
> Subject: AW: Determining the SMPT mail address
>=20
>=20
>=20
> Use FM BAPI_USER_GET_DETAIL. In Table ADDSMTP you receive the =
internet
> mail
> address of the user.
>=20
> -----Urspr=FCngliche Nachricht-----
> Von: Simon Freer [mailto:Simon_Freer at eu.fmo.com]
> Gesendet: Montag, 8. Juli 2002 16:36
> An: SAP-WUG at MITVMA.MIT.EDU
> Betreff: Determining the SMPT mail address
>=20
>=20
> Guys
>=20
> When setting up send mail to an internet mail address how do I find =
out
> the
> SMPT address of the workflow initiator.
>=20
> Ta
>=20
> Simon
>=20
>=20
> =
________________________________________________________________________=
__
> __
> ____
> ______________________________________
> The affairs, business and property of Federal-Mogul Bradford Limited =
are
> being
> managed by the Joint Administrators, Simon Freakley, James Gleave and
> Peter
> Holder. Federal-Mogul Bradford Limited is a debtor under Chapter 11 =
of
> Title
> 11
> of the United States Code.
>=20
>=20
>=20
>=20
> =
________________________________________________________________________=
__
> ______
> ______________________________________
> The affairs, business and property of Federal-Mogul Bradford Limited =
are
> being=20
> managed by the Joint Administrators, Simon Freakley, James Gleave and
> Peter=20
> Holder. Federal-Mogul Bradford Limited is a debtor under Chapter 11 =
of
> Title 11=20
> of the United States Code.=20
>=20
________________________________________________________________________=
____
____
______________________________________
The affairs, business and property of Federal-Mogul Bradford Limited =
are
being=20
managed by the Joint Administrators, Simon Freakley, James Gleave and =
Peter=20
Holder. Federal-Mogul Bradford Limited is a debtor under Chapter 11 of =
Title
11=20
of the United States Code.=20
More information about the SAP-WUG
mailing list