Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Problem mit email empfang

   
    by Klaus01, 25. Mär 2013
  if mailcount > 0 then
  begin
  for Index := mailCount downto 1 do // wie Sir Rufo schon geschrieben hat
  begin
  memo1.Clear;
  edit1.Clear;
  memo2.Clear;
  idmessage1.clear;
  idPOP31.RetrieveHeader(Index, IdMessage1);
  memo1.text := (IdMessage1.From.Text);;
• Forum: Programmieren allgemein

  AW: Problem mit email empfang

   
    by Klaus01, 25. Mär 2013
  .. wenn Du mails aus der Queue löscht dann
  mache das bitte von oben/hinten nach unten/vorne.
  
  if mailcount > 0 then
  begin
  for Index := pred(mailCount) downto 0 do
  begin
  memo1.Clear;
  edit1.Clear;
  memo2.Clear;
• Forum: Programmieren allgemein

  AW: Problem mit email empfang

   
    by Klaus01, 25. Mär 2013
  if IdPop31.Connected then mailcount:=idpop31.CheckMessages;
  if mailCount > 0 then
  begin
  for Index := 0 to pred(mailcount) do
  begin
  memo1.Clear;
  edit1.Clear;
  //... stuff deleted
  IdPOP31.Disconnect;
  end;