"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?