Exchange Anbindung

[franktron]

Hier ein Ausschnitt von einem Prog das Mails von der INBOX Lädt mit Indy 10

Delphi-Quellcode:

If IdIMAP41.Connected then Exit;
   try
      IdIMAP41.Connect(True);
   except
      on E: Exception do
      Begin
         WriteLogFile(E.Message,'Connect');
      End;   
   End;
   try
      If IdIMAP41.SelectMailBox('INBOX') then
      Begin
         IdIMAP41.CheckMailBox;
      End;
      x:=IdIMAP41.MailBox.TotalMsgs;
      For i:=1 to x do
      Begin
         IdMsg.Clear;
         IdIMAP41.Retrieve(i,IdMsg);