Всем привет! Удаляю сообщения из почты следующим образом:
IdPOP31.Host:='сервер';
IdPOP31.Port:=110;
IdPOP31.Username:='имя';
IdPOP31.Password:='пароль';
IdMessage1.Clear;
IdPOP31.Connect;
IdMessage1.CharSet:='utf-8';
IdMessage1.Clear;
Application.ProcessMessages;
lb_letters.Clear;
j:=IdPOP31.CheckMessages;
if IdPOP31.CheckMessages>0
then for i:=1 to IdPOP31.CheckMessages do
begin
IdPOP31.RetrieveHeader(i, IdMessage1);
if AnsiCompareText(IdMessage1.From.Address,'webmaster@mark-itt.ru')=0
then begin
IdPOP31.Retrieve(i, IdMessage1);
IdPOP31.Delete(i);
Application.ProcessMessages;
p_attachment.Caption:=IntToStr(i)+'/'+IntToStr(j);
end;
end;
IdPOP31.Disconnect;
В почтовом ящике огромное количество писем от одного получателя, хочу удалить все его письма. В принципе всё работает, однако если я прерву работу "Ctrl+F2", то все письма остаются на месте. Возможно ли сделать так, чтобы те письма, которые уже прошли проверку на совпадения адреса удалялись в случае прерывания работы приложения???
IdPOP31.Disconnect;
перед прерыванием работы программы. Закрывайте ее не по Ctrl+F2, а как обычно. А в событие формыOnClose
добавьтеIdPOP31.Disconnect;
.