checke mail og slette dem

Hej Jeg har muligvis en løsning på dette men vil ikke spille alt for klog da jeg ikke har delphi ved hånden lige nu... men her kommer der lidt af din egen kode:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
pop3.Connect;
for I := 1 to pop3.MailCount do
begin
pop3.GetMailMessage(i);
if pop3.MailMessage.Subject = blacklist.Items.Text then begin
pop3.DeleteMailMessage(i);
showmessage('Er slettet');
end;
end;
pop3.Disconnect;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
pop3.Connect;
for I := 1 to pop3.MailCount do
begin
pop3.GetMailMessage(i);
if pop3.MailMessage.Subject := blacklist.Items.Text then begin <- : er tilføjet
pop3.DeleteMailMessage(i);
showmessage('Er slettet');
end;
end;
pop3.Disconnect;
end;

det virker sikkert ikke men prøv da lige og måske smid begin væk altså den som er lige efter then....

/Kallesen

viker ikke. := bruge hvis man skal have noget ind i emne linien. Her skal jeg jo tjeke emne linien.

er det nu ikke == du skal bruge!?

...
if pop3.MailMessage.Subject == blacklist.Items.Text then begin
...

virker heller ikke...

Nej.

== er C/C++/C#/Java

Man bruger = i Pascal/Delphi

Prøv lige at lave loopet om så det i stedet kører baglænds...

Det kunne jo tænkes at når du har hentet en mail så bliver MailCount mindre, og så går loopet i smader... Der er flere måder at løse det på:

for I := pop3.MailCount downto 1 do
begin
  bla bla bla
end;

eller:

for I := 1 to pop3.MailCount do
begin
  bla bla bla
  pop3.GetMailMessage(1);
  bla bla bla
end;

Er ikke testet, men prøv!!

//hermandsen

virker heller ikke :(

Når man køre funktionen så kigger den godt nok på mailen, men den sletter den ikke...

Jeg har på serveren en test mail som har 'test' i emnet. Og i min listbox 'blacklist' har jeg ordet 'test'. Men den sletter den ikke...

ingen der kan hjælpe???

Jeg lukker snart hvis ikke der er en der kan hjælpe....

lukker...