Enan0
01-09-2005, 20:25:30
Hola a todos, Bueno hoy me encuentro trabajando, el bendito Exchange, necesito acceder los datos de la agenda y otros, (ya que el exchange(server) lo soporta).
Como nexo de conexion estoy utilizando el MAPI_TLB (HelpString: Microsoft CDO 1.21 Library, Version: 1.21).
He podido loguearme, obtener el nombre del usuario actual, EL ID..
le nombre de algonos stores pero no puedo acceder al Inbox ni a ninguna carpeta..
Aqui pongo el coodigo que me funciona..
Var
login :Session;
a:variant;
i,b:integer;
begin
login:=CoSession.Create;
a:='zafiro'+#10+'scalello'; //servidor exchange (ip o nombre) Usuario
login.Logon('','',false,true,0,false,a);
memo1.lines.add(string(login.CurrentUser)); //Nombre de usuario
memo1.lines.add(string(login.Session)); // Valor de la Sesion
for i:=1 to login.InfoStores.Count do // levanto la cantidad de Stores que tiene
begin
memo1.lines.add(login.InfoStores.Item[i].name); //muestra el valor de Store
//Puede ser Carpetas publias o la carpeta privada
memo1.lines.add(login.InfoStores.Item[i].ID); //ID de la Carpeta
login.InfoStores.item[i].fields; //Encuentra los fields
Try
for b:=1 to login.InfoStores.item[i].fields.count do // da error, existe el .Count
// pero me tira un error
memo1.lines.add(login.InfoStores.item[i].fields[b].name);
except
end;
end;
el mensaje de error que me da es el siguiente
' [Collaboration Data Objects - [E_INVALIDARG(80070057)]]'
Como nexo de conexion estoy utilizando el MAPI_TLB (HelpString: Microsoft CDO 1.21 Library, Version: 1.21).
He podido loguearme, obtener el nombre del usuario actual, EL ID..
le nombre de algonos stores pero no puedo acceder al Inbox ni a ninguna carpeta..
Aqui pongo el coodigo que me funciona..
Var
login :Session;
a:variant;
i,b:integer;
begin
login:=CoSession.Create;
a:='zafiro'+#10+'scalello'; //servidor exchange (ip o nombre) Usuario
login.Logon('','',false,true,0,false,a);
memo1.lines.add(string(login.CurrentUser)); //Nombre de usuario
memo1.lines.add(string(login.Session)); // Valor de la Sesion
for i:=1 to login.InfoStores.Count do // levanto la cantidad de Stores que tiene
begin
memo1.lines.add(login.InfoStores.Item[i].name); //muestra el valor de Store
//Puede ser Carpetas publias o la carpeta privada
memo1.lines.add(login.InfoStores.Item[i].ID); //ID de la Carpeta
login.InfoStores.item[i].fields; //Encuentra los fields
Try
for b:=1 to login.InfoStores.item[i].fields.count do // da error, existe el .Count
// pero me tira un error
memo1.lines.add(login.InfoStores.item[i].fields[b].name);
except
end;
end;
el mensaje de error que me da es el siguiente
' [Collaboration Data Objects - [E_INVALIDARG(80070057)]]'