[Delphi]POP3

Witam :!

Mam taki problem( to już cyba 3 w tym dniu ;) ).Chciałbym zrobić program,który będzie podobny do np. Microsoft Outlook,tzn. odbierał i wysyłał pocztę.Największy problem stanowi odbieranie poczty.Prosiłbym o jakieś komponenty,bądź kody.

Z góry dzięki 8)

Zasady są po to,aby je łamać... :crowd:

---

Ąciągnij Indy poszukaj na googlach tutoriali i kodów i wszytko będziesz wiedział.

//----------------------
gg :3183960
SZUKAM BETATESTERÓW - chętnych prosze o kontakt mail/gg
PS jak chcesz coś spytać mnie na GG to się najpierw PRZEDSTAW

O protokole POP3 po polsku nie ma za dużo w sieci:), jest tylko jeden dokument w formacie pdf:), jako że nie pamientam adresu zapodam kod który kiedys tam napisalem :))

POP3: TIdPOP3;
EMm: TIdMessage;
//bleblelble :)
pop3.host:=serwer;
pop3.Port:=StrToInt(port);
pop3.Username:=user;
pop3.Password:=haslo;
///
pop3.Connect();
EmCount:=pop3.CheckMessages;
BoxSize:=pop3.RetrieveMailBoxSize div 1024;
/////
for i:=1 to (EmCount) do
Begin
emm.Clear;
Pop3.Retrieve(i,EMm);
memo.Lines.Add('###NeVeS###Begin# - nagłówek');
memo.Lines.Add(emm.From.Text); //skąd?
memo.Lines.Add('###NeVeS###End# - nagłówek');
memo.Lines.AddStrings(Emm.Body);
End;
////////A tu kasowanie :)
for i:=1 to (EmCount) do
Begin
pop3.Delete(i);
End;
pop3.Disconnect;
end;

To jest wycinek z mojego programu wiec zawiera wiele śmieci :), ale wystarczy do nauczenia sie obsługi Pop'u.

XXXXXXXXXXXXX XXXXXXXX
XXXXXXXXXXXXXX XXXXXXX
XXXXXXXXXXXXXX XXXXXXX
XXXXXXXXXXXXXX XXXXXXX
XXXXXXXXXXXXXX XXXXXXX

cytat:NeVeS napisał:

Thx,Neves :! :! :! :!

Zasady są po to,aby je łamać... :crowd:

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl