Iztrivane na e-mail.....

Problema e slednia :
Izchitam vsichko , svaliam vsichki attachnati files koito mi triabva t, no kato mu dam
pop3.DeleteMailMessage(indexa na message-a)

mi izbiva Exception v chiito message nishto ne pishe , i se izvikva OnFailure .
Syshtite sa rezultatite i kogato mu dam na svoistvoto :
pop3.DeleteOnRead := True

T.e. sled kato go izchete e-maila automat da go iztriva .....

Imate li niakakva idea ?

Ей това например работи, ти как ги триеш ?
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
with NMPOP31 do
begin
Connect;
list;
for i := 1 to MailCount do
begin
GetMailMessage(i);
end;

for i := 1 to MailCount do
begin
DeleteMailMessage(i);
end;

end;
end;

Edinia nachin po koito pravia opiti e tozi koito si pokazal ...Drugia e kato mu dam TRUE nna pop3.DeleteonRead....
I pri dvata sluchaia mi dava greshka ....

Vchera pisah na proizvoditelia na componenta -> NetMasters za problema , i ot tam mi otgovoriha che poniakoga se poluchavali podobni problemi , no vyv sledvashtia Update shteli da go opraviat......Napravo mi se styjni .......


Sega tyrsia drug component ...Niakoi moje li da mi preporycha ot kyde moga da si izteglia /bezplatno !!!/ cmponent za rabota s POP3 ....??????

Пробвай POP3 на Indy
[линк]
или ICS на
[линк]