Checklistbox/Pop3 - Error Message ?

[c4st0rtr0y]

hmm...ja bei den CIS iss halt SSL sehrschön integriert. also mit den verschiedenen beispielen da unten wie auch das aktuelle von dir (Chris) kommen die mails zwar wunderbar in die checkliste rein allerdings werden die mails die einen anhang besitzen und komischerweise nur die, doppelt eingetragen. ka woran das wohl liegen könnte. ich meine ist ja nicht so schlimm wenn man doppelte einfach rausfiltern könnte ?.


procedure TForm1.ffnen1Click(Sender: TObject);
var
i:integer;
begin
pop1.Server := labelededit1.Text;
pop1.Port := StrToInt(labelededit2.text);
pop1.UserName := labelededit3.Text;
pop1.Password := maskedit1.Text;
pop1.TimeOut := 20000;
pop1.UseSSL := true ;
pop1.Open;
//for i := 0 to pop1.MessageCount -1 do
//for i := pop1.MessageCount - 1 to 0 do
begin
for i := pop1.MessageCount -1 downto 0 do
begin
pop1.RetrieveHeader(i);
checklistbox1.Items.Add(Message1.Subject);
end;
end;
end;
//begin
//pop1.RetrieveHeader(i, Message1);
//if Message1.Subject = 'News vom 16.02.05' then checklistbox1.Items.Add(Message1.Subject);
//checklistbox1.Items.Add(Message1.Subject);
//Message1.Clear;
//end;
[/delphi]