[Delphi 7] Exchange

[alanf1981]

Ciao a tutti! Il mio applicativo si connette via LDAP a un pc remoto ed ottiene informazioni riguardanti gli utenti Exchange attraverso gli oggetti ADO. Come faccio ad ottenere gli indirizzi SMTP di un certo utente? Per ora riesco ad ottenere solo l'indirizzo predefinito!
ecco il mio codice :

var Rs : Variant;
ADOConnection1.Connected := true;
rs := ADOConnection1.Execute('select adspath,userPrincipalName from ...... where samaccountname = ......');

In pratica ho bisogno di sapere il nome del campo SMTP!!
Grazie!!!!!

[alanf1981]

Ho risolto!!! Il nome dell'attributo è ProxyAddresses! Ecco il codice (magari puo' aiutare qualcuno di voi)
var
temp, Rs,conn, com : Variant;
i, j : integer;

begin
try
ADOConnection1.Connected := true;
rs := ADOConnection1.Execute('select proxyAddresses from ''LDAP://........'' where samaccountname = .......''');
if Rs.Recordcount = 0 then
begin
Memo1.Lines.Add('niente');
end
else
begin
while not rs.EOF do
begin
for i := 0 to rs.Fields.Count - 1 do
begin
if (VarIsArray(rs.Fields[i].Value)) and not (VarIsNull(rs.Fields[i].Value)) then
begin
temp := rs.Fields[i].value;
for j := VarArrayLowBound(temp, 1) to VarArrayHighBound(temp, 1) do
Memo1.Lines.Add(copy(temp[j], 6, 200));
end
else if (not (VarIsNull(rs.Fields[i].Value))) then
Memo1.Lines.Add(rs.Fields[i].Value);
end;
rs.MoveNext;
end;
Rs := NULL;
end;

except
on E: Exception do
begin
....
end;
end;