hi,
erstmal musst du dir die gecheckten mails besorgen, du hast ja bis jetzt nur die header
das würde dann so aussehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
with CheckListBox1 do
begin
if Items.Count = 0 then Exit;
for i := 0 to Items.Count - 1 do if Checked[i] then pop1.retrieve(i)
end
end;
nun hast du aber ein problem, da du nicht weisst ob i auch der messagenummer auf dem server entspricht.
du hast ja die doppelten einträge nicht in die checkbox übernommen.
du solltest die message nummer (TForm1.ffnen1Click -> i) zwischenspeichern, um hinterher auch zu wissen welche message du abholen willst.
außerdem weißt du nicht ob schon neue mails im postfach liegen die du noch nicht in der checklistbox hast.