Differences
This shows you the differences between two versions of the page.
| — |
public:howto:pop3sample [2007/11/30 14:30] (current) |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| + | ====== How To Use POP3 ====== | ||
| + | <code delphi> | ||
| + | var | ||
| + | pop:TPOP3Send; | ||
| + | begin | ||
| + | pop:=TPOP3Send.create; | ||
| + | try | ||
| + | pop.AutoTLS := true; | ||
| + | pop.Username:='yourusername'; | ||
| + | pop.Password:='yourpassword'; | ||
| + | pop.TargetHost:='your.pop3.host.com'; | ||
| + | pop.AuthType:=POP3AuthAll; | ||
| + | pop.login; | ||
| + | pop.list(0); | ||
| + | memo2.lines.Assign(pop.FullResult); | ||
| + | pop.Retr(1); | ||
| + | // pop.top(1,0); | ||
| + | memo1.lines.Assign(pop.FullResult); | ||
| + | pop.logout; | ||
| + | finally | ||
| + | pop.free; | ||
| + | end; | ||
| + | end; | ||
| + | </code> | ||
