n := 1;
@While(
n <= @Elements(Members);
tmp1 := @Name([Abbreviate];Members[n]);
tmp2 := @If(@Contains(tmp1; "/"); @Left(tmp1; "/"); tmp1);
tmp3 := @If(@Contains(tmp2;"@"); tmp2; @DbLookup("" : "" ; "" ; "Mitarbeiterliste" ; tmp2 ; "InternetAddress" ));
tmp4 := @If(@IsError(tmp3);"??? - " + tmp2 ; tmp3);
newValue := tmp4;
newEntry := newValue : newEntry;
n := n + 1
);
@Sort(newEntry)