BeUserEmailAddress
BeUserEmailAddress() – E-Mail Adresse eines Benutzers
Die Funktion gibt die E-Mail Adresse zu einer Benutzer-Nummer zurück.
Hinweis
Ist kein Benutzername hinterlegt oder wird der Benutzer nicht gefunden, ist die Rückgabe immer "".
Parameter | Beschreibung |
---|---|
aUserNo:U | Benutzernummer (numerisch oder alphanumerisch) |
Rückgabewert
Alphanumerisch – E-Mail Adresse
Beispiel
CODE
//##############################################################################
//##############################################################################
// Beschreibung: E-Mail Adresse und Anzeigenamen aller be-User anzeigen
//##############################################################################
//##############################################################################
| m_oDabFIL, m_cUserNo |
m_oDabFil := BeOpen(waDABFIL, 'DABFIL'),
startseq
m_oDabFil.Filter := "DATEI = 999 AND CONTAINS(FELD,'_<em>USR</em>_*')",
m_oDabFil.Filtered := True,
DbGoTop(m_oDabFil),
while not Eof(m_oDabFil) do
m_cUserNo := Right(m_oDabFil:FELD, 3),
writeln(m_cUserNo, BeUserEmailDisplayName(m_cUserNo) + '<' + BeUserEmailAddress(m_cUserNo) + '>'),
DbSkip(1, m_oDabFil),
end,
always
BeClose(m_oDabFil),
stopseq,