Accesso a datos de Exchange

Enan0 · #1 01-09-2005

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..

Código Delphi [-]   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

Cita:

' [Collaboration Data Objects - [E_INVALIDARG(80070057)]]'