Ładny brzuch

Witam!
Mam pewien problem z odbiorem poczty. Zrobiem prosty programik do sprawdzenia tematw e-maili na moim koncie
procedure TForm1.Button1Click(Sender: TObject); var I : Integer; begin IdPOP31.Connect; for I := 1 to 10 do //sprawdza tylko 10 meili begin IdPOP31.RetrieveHeader(I, IdMessage1); Memo1.Lines.Add(IdMessage1.Subject); IdMessage1.Clear; end; end;

(dane konta, s ju wpisane w "Object Inspector") I problem polega na tm, e chc odebra same tematy i to dziaa, ale mi chodzi o sprawdzenie samego tematu i jak jest jaki zacznik np. o wadze 18MB to to idzie STRASZNIE POWOLI poniewa musi go cign i tematy wywietlaj si dopiero po duszym czasie.
Albo czy jest moliwo przeniesienia niektrych wiadomoci do folderw.
Prosz o pomoc!
Uytkownik Login edytowa ten post 21 padziernik 2005, 14:19

Hmm... ma zapisywa tylko tematy? Czy chcesz zrobi maego klienta razem z wywietlaniem tresci itd.. ? Mam co takiego w swoim programie, zmodyfikowaem kod na twoj potrzeb, nie wiem czy chodzilo Ci dokladnie o cos takiego :)

procedure TForm1.SpeedButton13Click(Sender: TObject); var  Ile:Word;  I:Word;  a,t,date,em:string; idAttachment : TidAttachmentFile; begin  try  Mailtext.Clear;  IdPOP31.Connect;  Ile := IdPOP31.CheckMessages;    StatusBar1.Panels[0].Text := '  Liczba wiadomosci w skrzynce: ' + IntToStr(Ile);  StatusBar1.Panels[0].Text := '  Pobieram...';    For I:=1 to Ile do    begin      Mailtext.Lines.Add('<br>_____________________________________<br><br> ');      IdPOP31.Retrieve(i,IdMessage1);      a := IdMessage1.From.User;      em := idmessage1.from.address;      t := idmessage1.Subject;      date := datetostr(idmessage1.Date);      Mailtext.Lines.Add('Data:&nbsp;&nbsp;&nbsp;'+'<b>'+date+' </b><br>');      Mailtext.Lines.Add('Od:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' +'<b><font color="red">'+a+'</font>'+' | '+'['+'<a href="'+em+'"'+'>'+em+'</a>'+']'+'< /b><br>');      Mailtext.Lines.Add('Temat:&nbsp;'+'<b>'+t+'</b>' );      Mailtext.Lines.Add('<br>_____________________________________<br><br> ');      IdMessage1.Clear;    end; IdPOP31.Disconnect; StatusBar1.Panels[0].Text := '  Zakoczono'; StatusBar1.Panels[0].Text := '  Liczba wiadomoci w skrzynce: ' + IntToStr(Ile); if idMessage1.body.text = '' then Mailtext.Lines.Add('Brak wiadomo¶ci w skrzynce!<br>'); if TIdAttachmentFile.InstanceSize <> 0 then Mailtext.Lines.Add('Wiadomo ma zacznik'); // nie jestem pewny ale powinno zadzialac :) Mailtext.Lines.SaveToFile('SCIEZKA'); // sciezka do jakiegos pliku .html Web.Navigate('SCIEZKA'); // j.w. finally  end; end;

Przejrzyj ten kod :) ciek sobie ustal odrazu... chyba, e program bdziesz komu udostpnia to na plikach .INI najlepiej przez OpenDialog. Program najpierw zapisuje wszystko do Memo[Mailtext] pozniej jego zawartosc zapisuje do pliku .html a nastepnie wyswietla w WebBrowserze. Pisaem o tym arta na swojej stronie zajrzyj do dziau Programming ;)

Aaaa bo ty z gry ustaliles pierwsze 10 maili, a tutaj sprawdza ile jest itd. wic moze tutaj byl bd ;) Sprawd
Uytkownik Feratoin edytowa ten post 21 padziernik 2005, 19:33
a wiesz moe jak mona przenie wiadomoci do folderu na koncie??


a wiesz moe jak mona przenie wiadomoci do folderu na koncie??



nigdy nie bawilem sie klientem mailowym ale zauwaz ze foldery na koncie sa zalezne od konta - na wp masz inne, na yahoo inne a na gmail jeszcze inne :]

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •