Auf öffentlichen Ordner in ExchangeServer ohne Outlook zugreifen

[Jumpy]

Zitat von shmia:

"Eigentlich" wäre das Protokoll IMAP genau das Richtige für deine Anforderungen.
Meine Tests um auf einen Exchange-Server mit Thunderbird zuzugreifen haben allerdings nicht funktioniert.
Man müsste wohl IMAP im Exchange-Server explizit freischalten.

Hallo,
habs heute morgen mal mit IMPA4 und folgendem Code versucht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  t,s:TStringList;
  msg:TIdMessageCollection;
  mp:TIdHeaderList;
  i,j:Integer;
begin
  t:=Tstringlist.Create;
  s:=Tstringlist.Create;
  msg:=TIdMessageCollection.Create(TIdMessageItem);
  IM.Connect();
  Memo1.Lines.Add(IM.GreetingBanner);
  IM.SelectMailBox('Kontakte');

  IM.RetrieveAllMsgs(msg);
  for i := 0 to msg.Count - 1 do
   begin
   msg.Messages[i].SaveToFile('c:/Test/Test'+IntToStr(i)+'.txt');
   Memo1.Lines.Add(IntToStr(i));
   Memo1.Lines.Add(msg.Messages[i].Body.Text);
   Memo1.Lines.Add('-------------------------------------');
   end;
  IM.Disconnect(True);
  t.Free;
  s.Free;
  msg.Free;
end;

Connection klappt, ich krieg auch den Inhalt des Kontaktordners, aber irgendwie als Mail bzw. Messages interpretiert. Schau ich mir davon den Body usw. an, finde ich aber nicht die Einträge der Kontaktem z.B. Adresse.
Kann das sein, das IMAP da doch nicht das richtige ist?