[ivankom]

Всем привет!
Есть такая программка, которая будет через imap4 обрабатывать входящие сообщения, и затем удалять.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

var   i: integer; begin     IdIMAP41.Host := 'host';     IdIMAP41.Port := 993;     IdIMAP41.Username := 'login';     IdIMAP41.Password := 'pass';     IdIMAP41.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdIMAP41);     IdIMAP41.UseTLS := utUseImplicitTLS;     IdIMAP41.Connect;     idIMAP41.SelectMailBox('INBOX'); for i := 1 to IdIMAP41.MailBox.TotalMsgs do     begin         idIMAP41.Retrieve(i, idMessage1);         Memo1.Text := Memo1.Text+'Тема: '+idMessage1.Subject+#13#10+'Отправитель: '+idMessage1.From.Text+#13#10+'Сообщение: '+idMessage1.Body.Text+#13#10+'---///---'+#13#10;           idIMAP41.DeleteMsgs(i);         idIMAP41.ExpungeMailBox;     end;     IdIMAP41.Disconnect;     IdIMAP41.IOHandler.Free; end;     end.

Как правильно написать код, чтобы письма в ящике обрабатывались последовательно, сначала обработалось первое сообщение, удалилось, а потом переходило ко второму.
Сейчас работает так: обрабатываются первые несколько писем и удаляются, а остальные остаются.

[Alegun]

Проверок на ошибки явно не хватает, вот что-то подобное

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

// Автор: Альф  (2006-01-11 12:42) function CheckMailByUID(): integer; var  i: integer;  path, msguid: string;  filename: TFileName;  amsglist: TIdMessageCollection; begin  result:= 0;  path:= "D:\mail\inbox.msg\";  IdIMAP.Connect();  if IdIMAP.Connected  then try    if IdIMAP.SelectMailBox("INBOX")    then try      amsglist := TIdMessageCollection.Create(TIdMessageItem);      if IdIMAP.UIDRetrieveAllEnvelopes(amsglist)      then begin        for i := 0 to amsglist.Count -1 do begin          Application.ProcessMessages();            msguid := (amsglist.Items[i] as TIdMessageItem).IdMessage.UID;          if IdIMAP.UIDRetrieve(msguid, IdMessage)          then begin            filename := MsgIdToFileName(IdMessage.MsgId);            IdMessage.SaveToFile(path + filename);              if FileExists(path + filename)            then begin // После этого можно со спокойной совестью удалять письмо из ящика              if not IdIMAP.UIDDeleteMsg(msguid)              then begin // Ошибка - Удаление не прошло              end;              result := result + 1;            end else begin // Ошибка - Сохранить не получилось            end;          end else begin // Ошибка - Не получилось принять сообщение # + IntToStr(i)          end;        end; // Перепаковать выбраный ящик        if not IdIMAP.ExpungeMailBox()        then begin // Ошибка - Ликвидация провалилась        end;      end else begin      end;      finally      amsglist.Free();    end else begin // Ошибка - Не удалось выбрать почтовый ящик    end;  finally    IdIMAP.Disconnect();  end else begin // Ошибка - Не удалось подключиться к IMAP4  end; end;

[ivankom]

В общем замут в IDшниках сообщений.
Поменял

Код:

1	for i := 1 to IdIMAP41.MailBox.TotalMsgs do

на

Код:

1	for i := IdIMAP41.MailBox.TotalMsgs downto 1 do

после этого они начали нормально обрабатываться и удаляться.